setrs=server.createobject("adodb.recordset")
sql="SELECT*fromtxtwhere用户='"&user&"'orderby年*10000+月*100+日desc"
rs.opensql,conn,1,1
cc=1
ifnotisempty(request("page"))then
pagecount=cint(request("page"))
else
pagecount=1
endif
rs.PageSize=rs1("page")
rs.AbsolutePage=pagecount
ForiPage=1Tors.PageSize
Ifrs.EOFThenExitFor
%>
1.3.修改日记参数模块的核心代码,changepass.asp用于修改日记的相关参数,参数如详细设计章节所列,其主要代码如下:
<%
add=request("add")
user=request("user")
setconn=server.createobject("ADODB.CONNECTION")
conn.open"DBQ="+server.mappath("pfcr1015.asp")+";DRIVER={MicrosoftAccessDriver(*.mdb)};"
setrs1=server.createobject("adodb.recordset")
sql1="SELECT*fromadmin"
rs1.opensql1,conn,1,1
setrs2=server.createobject("adodb.recordset")
sql2="SELECT*fromuserwhereuser='"&user&"'"
rs2.opensql2,conn,1,1
ifnotrs2.eofthen
pass=rs2("pass")
url=rs2("url")
mail=rs2("mail")
bm0=rs2("bm")
logo=rs2("logo")
endif
iflogo=""orisnull(logo)thenlogo="images/girl.gif"
ifsession("root")<>passorpass=""then
response.redirect"index.asp?user="&user&""
endif
ifadd="add"then
ok="yes"
url=request.form("url")
mail=request.form("mail")
pass1=request.form("password1")
pass2=request.form("password2")
bm=request.form("bm")
wenti=request.form("wenti")
daan=request.form("daan")
logo=request.form("logo")
SetConn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("pfcr1015.asp")
Conn.open"Driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
Setrs=Server.CreateObject("ADODB.RecordSet")
rs.open"Select*Fromuserwhereuser='"&user&"'",Conn,2,3
ifpass1<>pass2then
ok="no"
endif
ifok="yes"andmail<>""andurl<>""then
rs("mail")=mail
rs("url")=url
rs("bm")=bm
rs("wenti")=wenti
rs("daan")=daan
rs("logo")=logo
ifpass1<>""thenrs("pass")=pass1
rs.update
rs.close
setrs=nothing
conn.close
setconn=nothing
ifpass1<>""thensession("root")=pass1
response.redirect"adminindex.asp?user="&user&""
endif
endif
endif
endif
endif
%>
2.参考文献:
[1](美)StephenC.Perry.C#和.NET核心技术[M].北京:清华大学出版社.2006
[2]曹锰,舒新峰.C#与ASP.NET程序设计[M].西安:西安交通大学出版社.2006
[3]田原,李素若,文斌.C#程序设计[J].2005
[4]曹锰,舒新峰.C#与ASP.NET程序设计[M].西安:西安交通大学出版社.2006
[5]刘庆国,屈艳莲.ASP.NET企业级开发[M].上海:人民邮电出版社.2006
[6]邹建峰,周山峰,项细威.C#企业级开发[M].上海:人民邮电出版社.2006
[7](美)Foxall,j.著陈秋萍译.VisualC#N2005入门经典.[M]上海:人民邮电出版社2007
??
??
??
??
2
编号_____________
1
上一篇:
ASP网上图书销售系统(论文和程序)
下一篇:
关于武汉地名的语言文化考察