<%
session.timeout=20
'***********************************************************xHAQX74J0X
dimobjcon,objrs,strsql,objkehu
setobjcon=server.createobject（"ADODB.connection">
objcon.connectionstring="provider=microsoft.jet.oledb.4.0。
"&_LDAYtRyKfE
"datasource="&server.mappath（"db/xsj.mdb">
objcon.open
'***********************************************************Zzz6ZB2Ltk
dimktime'记录开始日期
dimzs'记录访问总人数
dimsf'是否开始统计标志
dimjtime'记录今日日期
dimid'最近记录访问记录ID
dimjs'记录今日访问人数
dimtian'统计天数
strsql="select*fromz"
setobjrs=server.createobject（"ADODB.recordset">
objrs.openstrsql,objcon,1,3,1
ktime=objrs（"ktime">
zs=objrs（"zs">
sf=objrs（"sf">
objrs.close
'判断是否初始化
ifsf=1then
strsql="selecttop1*fromrorderbyiddesc"
setobjrs=server.createobject（"ADODB.recordset">
objrs.openstrsql,objcon,1,3,1
jtime=objrs（"jtime">
id=objrs（"id">
js=objrs（"js">
objrs.close
'判断是否已登陆过
ifsession（"objkehu">=emptythen
'判断是否有今日记录<即今日是否有人防问）
ifdatediff（"d",jtime,date（>><>0then
'今日无人访问添加今天访问记录,即第一个人访问。
strsql="insertintor（jtime,js>values（'"&date（>&"',1>"dvzfvkwMI1
objcon.execute（strsql>
js=1
jtime=date（>
else
'今天访问数加一
strsql="updatersetjs=js+1whereid="&id
objcon.execute（strsql>
js=js+1
endif
'总访问数加一
strsql="updatezsetzs=zs+1"
objcon.execute（strsql>
zs=zs+1
session（"objkehu">="true"
endif
endif
setobjrs=nothing
objcon.close
setobjcon=nothing
%>
<5）数据库连接文件（link_db.asp>
<%
subsetconn（filename>
setconn=server.createobject（"ADODB.connection">
conn.connectionstring="provider=microsoft.jet.OLEDB.4.0。
datasource="&server.mappath（filename>rqyn14ZNXI
conn.open
endsub
%>
<6）数据库关闭文件（close_db.asp>
<%
conn.close
setconn=nothing
%>
<7）图片上传处理文件详细内容看fupload.inc文件。
4．2后台系统管理员页面的设计
<1）后台登陆口的制作。
有4个文件，分别：
登陆文件（login.asp>、登陆处理程序文件登陆文件（login.asp>
………
<%
fori=0toSecond（Now>
seed=rnd*100
next
Session（"seed">=seed
%>
……………
SixE2yXPq5
functioncheck_input（>
{
if（form2.username.value=="">
{alert（"请输入管理员账号！
">。
form2.username.focus。
returnfalse。
}
if（form2.password.value=="">
{alert（"请输入账号密码！
">。
form2.password.focus。
returnfalse。
}
document.form2.password.value=MD5（document.form2.password.value+document.form2.seed.value>。
6ewMyirQFL
returntrue。
}
……….
">kavU42VRUs
cellSpacing=0class="fontzc"id=Table1
style="WIDTH:
300px。
BORDER-COLLAPSE:
collapse。
HEIGHT:
61px">M2ub6vSTnP
22px"vAlign=centerwidth=285bgColor=#ff9900>0YujCfmUCw
登eUts8ZQVRd
录系统
|
22px">sQsAEJkW5T
用户：
99px。
HEIGHT:
21px"GMsIasNXkA
tabIndex=1size=11name=username>
|
24px"bgColor=#e7e7e7>密码：
TIrRGchYzg
style="WIDTH:
99px。
HEIGHT:
21px"tabIndex=2type=passwordsize=117EqZcWLZNX
name=password>
|
24px"bgColor=#e7e7e7>%>"maxlength="20">lzq7IGf02E
|
22px"bgColor=#e7e7e7>
zvpgeqJ1hk
NrpoJac3v1
。
。
。
1nowfTG4KI
|
22px"bgColor=#e7e7e7height=22>fjnFLDa5Zo
|
…………
登陆处理程序文件<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
--#includefile="public/md5.asp"-->
--#includefile="public/link_db.asp"-->
UntitledDocument
tfnNhnE6e5
<%
seed=Session（"seed">
username=request.Form（"username">
sql="select*fromadminwhereusername='"&username&"'andtype='0'"HbmVN777sL
'response.Write（sql>
'response.End（>
Setrs=Server.CreateObject（"ADODB.recordset">
rs.opensql,conn,1,1
%>
<%
ifrs.EOFthen
%>
window.alert（"您的账号、密码输入不正确！
">
history.back（>。
<%
rs.close
setrs=nothing
conn.close
setconn=nothing
response.End（>
%>
<%
elseifMD5（rs（"Password">&seed><>Request.Form（"password">thenV7l4jRB8Hs
%>
window.alert（"您的账号、密码输入不正确！
">
history.back（>。
<%
rs.close
setrs=nothing
conn.close
setconn=nothing
response.End（>
else
Session（"username">=trim（rs（"username">>
Session（"type">=trim（cint（rs（"type">>>
response.Redirect（"admin/news_list.asp">
rs.close
setrs=nothing
conn.close
setconn=nothing
response.End（>
endif
%>
登陆加密文件这两个文件看盘上。
<2）信息发布管理看第12章的内容。
<3）产品类型管理这两个文件流程相同。
………..
…………
……….
<%
ifrequest（"tj"><>""then
tj=request（"tj">
str="insertintopinpai（pinpai>values（'"&tj&"'>"
conn.execute（str>
endif
ifrequest（"xg"><>""then
xg=request（"xg">
id=request（"hed">
str="updatepinpaisetpinpai='"&xg&"'whereid="&idmZkklkzaaP
conn.execute（str>
endif
ifrequest（"bl">="sc"then
id=request（"id">
sql="deletefrompinpaiwhereid="&id
'response.Write（sql>
'response.End（>
conn.execute（sql>
endif
%>
………………….
………………….
…………………
AVktR43bpw
bl=tj">添加品牌ORjBnOwcEd <% str="select*frompinpai" Setrs=Server.CreateObject（"ADODB.recordset"> rs.openstr,conn,1,3,1 ifrs.recordcount<>0then %> 。 。 。
序号 | 2MiJTy0dTT现有品牌gIiSpiue7A
操作uEh0U1Yfmh
<%fori=1tors.recordcount%>
<%=i%> |
<%=rs（"pinpai">%>
。 。 。 bl=xg&id=<%=rs（"id">%>">修改 。 。 。 bl=sc&id=<%=rs（"id">%>">删除
| IAg9qLsgBX
<%
rs.movenext
ifrs.eofthenexitfor
next%>
<%else
%>
数据库没有记录
|