asp企业网站源码部分
ASP的网页文件的格式是.asp，现在常用于各种动态网站中。
PHP是一种 HTML 内嵌式的语言，PHP与微软的ASP颇有几分相似，都是一种在服务器端执行的嵌入HTML文档的脚本语言，语言的风格有类似于C语言，现在被很多的网站编程人员广泛的运用。
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Function.asp"-->
<!--#include file="Inc/Web_safe.asp"-->
<!--#include file="Inc/PublicFunction.asp"-->
<!--#include file="Inc/webClose.Asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5)" >
<meta content="<%=WebAbout%>" name="description">
<meta content="<%=KeysWord%>" name="keywords">
<title><%=WebName%>-关于我们</title>
<%
Dim id
Id =Request.QueryString("Id")
If Id ="" Or Not IsNumeric(Id) Or IsNull(Id) Then
Id = 2
End If
Function webTitle(Id)
Select Case Id
Case 2 webTitle = "gsjj.png"
Case 5 webTitle = "zzry.png"
Case 6 webTitle = "zzjg.png"
Case Else webTitle = "gsjj.png"
End Select
End Function
%>
<script language=JavaScript src="js/scroll.js"></script>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</head>
<link rel="stylesheet" type="text/css" href="css/style.css" />
<body>
<div id="bodymain">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="35" valign="bottom"><!--#include file="An.Asp"--></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25%"><img src="data:images/logo.png" width="224" height="72" /></td>
<td width="75%"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','500','height','72','src','flash/menu','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','wmode','transparent','movie','flash/menu' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="500" height="72">
<param name="movie" value="flash/menu.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="flash/menu.swf" width="500" height="72" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</noscript></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="69%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','691','height','228','src','flash/center','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','wmode','transparent','movie','flash/center' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="691" height="228">
<param name="movie" value="flash/center.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="flash/center.swf" width="691" height="228" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</noscript></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><img src="data:images/<%=webTitle(Id)%>" /></td>
</tr>
<tr>
<td valign="top">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#4B4B4B"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td width="2%"> </td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="300" align="left" valign="top">
<%
If Id = 5 Then
Set Rs=server.CreateObject("adodb.recordset")
Sql="select title,About,id,Sm_img,Addtime from Content where BoardId="&id&" and Isdel = 0 order by IsTop Desc,IfGood Desc,Addtime Desc"
Rs.Open Sql,Conn,1,1
If Rs.Eof Then
Response.Write("没有信息")
Else
Rs.PageSize =20
pre = true
last = true
page = trim(Request.QueryString("page")) If len(page) = 0 then
intpage = 1
pre = false
else
If cint(page) =< 1 then
intpage = 1
pre = false
else
If cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end If
end If
end If
If not rs.eof then
rs.AbsolutePage = intpage
end If
for i=1 to rs.PageSize
If rs.EOF or rs.BOF then exit for
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="26%">
<a href="showImg.Asp?idd=<%=Rs("id")%>" target="_blank">
<img src=" <%=Rs("Sm_img")%>" width="170" height="110" border="0">
</a>
</td>
<td width="74%" valign="top"><table width="96%" border="0" align="right" cellpadding="6" cellspacing="0">
<tr>
<td height="20" valign="top" style="border-bottom:dashed 1px #d9683b">
<%=Rs("title")%> [ <%=FormatDate(Rs("Addtime"),2)%> ]
</td>
</tr>
<tr>
<td height="70" valign="top" style="border-bottom:dashed 1px #d9683b">
<%=Rs("About")%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<%
Rs.movenext
Next
End If
%>
<%
Call showpage("?id="&id&"&")
Set Rs=Nothing
Else
Echo(OneMsg(Id))
End If
%>
</td>
</tr>
</table>
</td>
<td width="2%"> </td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<tr>
<tr><td height="20"> </td></tr>
<!--#include file="footer.Asp"-->
</table></td>
<td width="31%" valign="top"><table width="95%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="About.Asp?id=2"><img src="data:images/gyhs_gsjj.png" width="271" height="48" border="0" /></a></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><a href="About.Asp?id=5"><img src="data:images/gyhs_zzry.png" width="271" height="48" border="0" /></a></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><a href="About.Asp?id=6"><img src="data:images/gyhs_zzjg.png" width="271" height="48" border="0" /></a></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="4b4b4b" height="30"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="data:images/lxfs.jpg" width="120" height="14" /></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15" bgcolor="4b4b4b"><%=OneMsg(23)%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<div id=divMenu style="Z-INDEX: 1; LEFT: 715px; WIDTH: 271px; POSITION: absolute; TOP: 7px; HEIGHT: 48px;">
<a href="lxwm.Asp"> <img src="data:images/fdlx.png" width="271" height="48" border="0"></a>
</div>
<script language=JavaScript src="js/scroll.js"></script>
</div>
<script type="text/javascript" src="/Web_Stat/stat.js"></script>
</body>
</html>
<!--#include file="../Inc/Conn.asp"-->
<!--#include file="../Inc/Function.asp"-->
<!--#include file="Web_Save.asp"-->
<!--#include file="../Inc/Web_Safe.asp"-->
<%
Dim BoardId,Id,BoardName,style,Action,Classification
Dim Title,About,Content,AddMan,MyPx,IfGood,IsTop,Pic,nfrom,PicNews,Sm_Img,IsColse,Big_Img,Att,AddTime,Http,Articlekey BoardId = Request("BoardId")
Id = Request("Id")
BoardName = Trim(Request("BoardName"))
style = Request.QueryString("style")
Action = Request.Form("Action")
Title = Trim(Request.Form("Title"))
Content = Request.Form("Content")
About = Request.Form("About")
AddMan = Request.Form("AddMan")
Articlekey = Request.Form("Articlekey")
MyPx = Request.Form("MyPx")
IfGood = Request.Form("IfGood")
IsTop = Request.Form("IsTop")
Pic = Request.Form("Pic")
web_url = Request.Form("web_url")
Http = Request.Form("Http")
nfrom = Request.Form("nfrom")
PicNews = Request.Form("PicNews")
IsColse = Request.Form("IsColse")
Sm_img = Request.Form("Sm_img")
Big_Img = Request.Form("Big_Img")
Att = Request.Form("Att")
AddTime = Request.Form("AddTime")
Classification = Request.Form("Classification")
If MyPx="" Then
MyPx=0
End If
If IsColse="" Then
IsColse=0
End If
If PicNews="" Then
PicNews=0
End If
If IsTop="" Then
IsTop=0
End If
If IfGood="" Then
IfGood=0
End If
If Classification = "" Then
Classification = 0
End If
Sub Do_Add(DoId)
Set Rs=server.CreateObject("adodb.recordset")
Sql="select * from Content"
Rs.Open Sql,Conn,1,3
Rs.addnew
Rs("BoardId") = BoardId
Rs("Title") = Title
Rs("About") = About
Rs("Content") = Content
Rs("Articlekey") = Articlekey
Rs("MyPx") = MyPx
Rs("IfGood") = IfGood
Rs("IsTop") = IsTop
Rs("Pic") = Pic
Rs("nfrom") = nfrom
Rs("PicNews") = PicNews
Rs("Sm_Img") = Sm_Img
Rs("IsColse") = IsColse
Rs("Big_Img") = Big_Img
Rs("web_url") = web_url
Rs("Http") = Http
Rs("Att") = Att
Rs("Classification") = Classification
Rs("AddTime") = now()
Rs.Update
Call Show_Msg("信息添加成功！","Public_List.asp?Boardid="&Boardid&"&Boardname="&Boardname)
Rs.Close
Set Rs=Nothing
End Sub Sub Do_Edit(DoId) Set Rs=server.CreateObject("adodb.recordset")
Sql="select * from Content where Id= "&DoId
Rs.Open Sql,Conn,1,3
Rs("BoardId") = BoardId
Rs("Title") = Title
Rs("About") = About
Rs("Content") = Content
Rs("AddMan") = AddMan
Rs("Articlekey") = Articlekey
Rs("MyPx") = MyPx
Rs("IfGood") = IfGood
Rs("IsTop") = IsTop
Rs("Pic") = Pic
Rs("nfrom") = nfrom
Rs("PicNews") = PicNews
Rs("Sm_Img") = Sm_Img
Rs("IsColse") = IsColse
Rs("Big_Img") = Big_Img
Rs("web_url") = web_url
Rs("Http") = Http
Rs("Att") = Att
Rs("AddTime") = AddTime
Rs("Classification") = Classification
Rs.Update
Call Show_Msg("信息修改成功！","Public_List.asp?Boardid="&Boardid&"&Boardname="&Boardname)
Rs.Close
Set Rs=Nothing End Sub If style="del" Then
'Conn.Execute("update Content set IsDel=1 where Id in("&Id&")")
Conn.Execute(" Delete * From Content where Id in("&Id&")")
Call Show_Msg("删除成功！","Public_List.asp?Boardid="&Boardid&"&Boardname="&Boardname)
End If Select Case action
Case "DoAdd" Call Do_Add(BoardId)
Case "DoEdit" Call Do_Edit(Id)
End Select
%>
asp企业网站源码部分的更多相关文章
- java 企业网站源码模版 有前后台 springmvc SSM 生成静态化
java 企业网站源码 前后台都有 静态模版引擎, 代码生成器大大提高开发效率 系统介绍 点击:获取地址 : 1.网站后台采用主流的 SSM 框架 jsp JSTL,网站后台采用freemaker静态 ...
- java自适应响应式 企业网站源码 SSM freemaker生成静态化 手机 平板 PC springmvc
java 企业网站源码 前后台都有 静态模版引擎, 代码生成器大大提高开发效率 前台: 支持两套模版, 可以在后台切换 系统介绍: 1.网站后台采用主流的 SSM 框架 jsp JSTL,网站后台采用 ...
- java自适应响应式 企业网站源码 SSM 生成静态化 手机 平板 PC
java 企业网站源码 前后台都有 静态模版引擎, 代码生成器大大提高开发效率 系统介绍: 1.网站后台采用主流的 SSM 框架 jsp JSTL,网站后台采用freemaker静态化模版引擎生成ht ...
- 响应式Asp.net MVC企业网站源码
最近时间充裕,自己写了一个响应式MVC企业网站系统,用于回顾自己的MVC知识.网站源码后台和前台都采用响应式布局,可以适应不同的屏幕. 一.源码描述 响应式企业网站系统,前台和后台都采用了响应式布局, ...
- java 企业 网站源码 后台 springmvc SSM 前台 静态化 代码生成器
前台: 支持四套模版, 可以在后台切换 系统介绍: 1.网站后台采用主流的 SSM 框架 jsp JSTL,网站后台采用freemaker静态化模版引擎生成html 2.因为是生成的html,所以访问 ...
- java 企业网站源码模版 屏幕自适应 有前后台 springmvc SSM 生成静态化引擎
前台: 支持四套模版, 可以在后台切换 系统介绍: 1.网站后台采用主流的 SSM 框架 jsp JSTL,网站后台采用freemaker静态化模版引擎生成html 2.因为是生成的html,所以访问 ...
- java 企业 网站源码 模版 屏幕自适应 有前后台 springmvc SSM 生成静态化
前台: 支持四套模版, 可以在后台切换 系统介绍: 1.网站后台采用主流的 SSM 框架 jsp JSTL,网站后台采用freemaker静态化模版引擎生成html 2.因为是生成的html,所以访问 ...
- 一个由正则表达式引发的血案 vs2017使用rdlc实现批量打印 vs2017使用rdlc [asp.net core 源码分析] 01 - Session SignalR sql for xml path用法 MemCahe C# 操作Excel图形——绘制、读取、隐藏、删除图形 IOC,DIP,DI,IoC容器
1. 血案由来 近期我在为Lazada卖家中心做一个自助注册的项目,其中的shop name校验规则较为复杂,要求:1. 英文字母大小写2. 数字3. 越南文4. 一些特殊字符,如“&”,“- ...
- VS2010不能打开预编译的网站源码的原因是什么？（转之csdn）
原问题: 今天将写好的一个网站源码目录拷贝到另一台电脑上,但打开时提示: 你要打开一个预编译的网站,你可以查看该站点,但对它进行更改可能会造成该网站停止运行,若要修改站点,建议先编辑原始网站中的 ...
随机推荐
- 独家 | 蚂蚁金服TRaaS技术风险防控平台解密
小蚂蚁说: 在金融行业,风险防控能力的重要性不言而喻.而蚂蚁金服可实现高达99.999%的异地多活容灾,千亿级资金秒级实时核对“账.证.实”等能力也让业界有目共睹. 今年位于杭州的蚂蚁金服ATEC科技 ...
- vue中eslintrc.js配置最详细介绍
本文是对vue项目中自带文件eslintrc.js的内容解析, 介绍了各个eslint配置项的作用,以及为什么这样设置. 比较详细,看完能对eslint有较为全面的了解,基本解除对该文件的疑惑. /* ...
- 分散的配置文件VS集中的注册表
假设有这样一个工程,是这样设计的: 1整个软件.服务被切分为 由若干独立的多道程序(多个进程/微服务): 2 这些多道程序只是“机制mechanism”,而“策略strategy”写在各自用到的配置文 ...
- Nordic SDK例程目录结构
Nordic SDK例程目录结构为:SDK版本/ examples /协议角色/例子名称/开发板型号/协议栈型号/工具链类型/具体工程 Nordic每一个例子都支持5种工具链:Keil5/Keil4/ ...
- MYSQL去除"/r/n"
#去除回车符号/r/n UPDATE t_week_power_line_loss SET `line_loss_rate` = REPLACE( REPLACE( `line_loss_rate` ...
- Python生成pyd文件
Python的脚本文件是开源的,量化策略的安全性没有保障.因此需要保护源码.那么要对Python代码进行混淆.加密保护. 混淆代码,我准备使用pyminifier.而加密处理,就比较麻烦. Pytho ...
- Python全栈开发-Day12-Mysql数据库和ORM
本节内容 数据库介绍 mysql 数据库安装使用 mysql管理 mysql 数据类型 常用mysql命令 创建数据库 外键 增删改查表 权限 事务 索引 python 操作mysql ORM sql ...
- Axure 第一次交互 实现跳转页面
- 雷林鹏分享：jQuery EasyUI 树形菜单 - 创建带复选框的树形菜单
jQuery EasyUI 树形菜单 - 创建带复选框的树形菜单 easyui 的树(Tree)插件允许您创建一个复选框树.如果您点击一个节点的复选框,这个点击的节点信息将向上和向下继承.例如:点击 ...
- AngularJS参数绑定 --AngularJS
AngularJS参数绑定有三种方式.第一种插值表达式“{{}}”表示,第二种在标签中使用ng-bind属性表示,第三种针对input框(标签)的ng-module属性表示.针对三种参数绑定方式,设定 ...