2022年网页制作教程chch部分程序源代码 .pdf

第十章部分源代码用户身份验证adlogin.asp文件源代码： %Response.Expires=0 if request（ adminname） then username=request（adminname）password=request（password）sql=select * from admin where username=&username& and password=&password& set rs=server.createobject（adodb.recordset）set rs=conn.execute（sql ）if not rs.EOF then session（adpass）=passed response.redirect admin.asp else response.write & chr（13 ） & alert（密码不正确 , 请重新输入！ ）; & history.back（） & end if else% 管 理 登 陆 管理员名称： * 字 母 或 数 字 管理员密码： * 字母或数字 版权所有：信息中心 连接对象conn.asp文件源代码： 管理员身份验证程序admin.asp 源代码： %Response.Expires=0 if session（adpass）passed then response.redirect adlogin.asp end if Set rs= Server.CreateObject （ADODB.RecordSet）sql = select * from news order by 时间 desc rs.open sql, conn,1,3 if rs.bof then response.write response.write 没有消息 ! response.end end if rs.MoveFirst 到第一条记录MaxPerPage=15 定义每页记录数rs.pagesize=MaxPerPage If trim（Request（Page） ） then CurrentPage= CLng（request（Page） ）If CurrentPage rs.PageCount then CurrentPage = rs.PageCount End If Else CurrentPage= 1 End If totalPut=rs.recordcount totalput=总记录数if CurrentPage1 then if（currentPage-1）*MaxPerPage 新闻管理 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 20 页 - - - - - - - - - function winopen（url） window.ope （ url,search,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,width=550,height=450,top=0,left=0）; function MM_openBrWindow（theURL,winName,features） /v2.0 window.open（theURL,winName,features）; function MM_goToURL（） /v3.0 var i, args=MM_goToURL.arguments; document.MM_returnValue = false; for （i=0; i（args.length-1）; i+=2）eval（argsi+.location=+argsi+1+）; 页数:/  新闻数 :  添加综合新闻 序号 主   题 浏览 发表时间 管理 %do while not rs.eof and i maxperpage Response.Write response.write &i+1& response.write &rs（ 标题 ） & response.write &rs（ 点击 ） & response.write & （rs （ 时间 ） ）& response.write 删除 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 20 页 - - - - - - - - - Response.Write i=i+1 rs.movenext loop % 跳转页数 option value=admin.asp?Page= % if （totalPut mod MaxPerPage）=0 then n表示总页数n= totalPut MaxPerPage else n= totalPut MaxPerPage + 1 end if k=currentPage if k1 then response.write +首页 response.write +上 一 页 else Response.Write 首页 上一页 end if if kn then response.write +下 一 页 response.write +尾页 else Response.Write 下一页 尾页 end if rs.close set rs=nothing conn.close set conn=nothing % 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 20 页 - - - - - - - - - 添加新闻add.asp 文件源代码： % if session（adpass）passed then response.redirect adlogin.asp end if if request（ subject） = empty then % 新闻添加 新 闻 添 加 主题 : 图 片 : 新闻 : 版 权 所 有 ： 信 息 中 心 % response.end end if subject = cstr（Trim （Request（subject） ） ）image = cstr（Trim （Request（image） ） ）message = Request（message）if subject = empty or message =empty then response.write & alert（ 主题和内容不能为空！ ）; & history.back（） & response.end 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 20 页 - - - - - - - - - end if sql=insert into news （ 标 题 , 图 片 , 内 容 , 时 间 ）values （ &subject& , &image& , &message&,now） set rs=conn.execute（sql ）Response.Write Response.Write 添加成功！ Response.Write Conn.Close Set Conn=Nothing% 删除新闻del.asp文件源代码： % Response.Expires=0 if session（adpass）passed then response.redirect adlogin.asp end if id=request（ id）sql=delete * from news where trim（Cstr（ID ） ）=&id& set rs=conn.execute（sql ）Conn.Close Set Conn=Nothing Response.Write Response.Write 删除成功！ Response.Write % 显示新闻内容read.asp文件源代码： % if not isnull（rs （ 图片 ） ） and rs （ 图片 ） http:/ then response.write end if %            本条 消 息被 浏 览 了 回 关闭本窗口 版权所有：信息中心 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 20 页 - - - - - - - - - 第十三章部分源代码index.asp文件的源代码： 领导信箱 td font-size: 9pt; line-height: 12pt a:link color: #0080FF; text-decoration: none a:visited color: #0080FF; text-decoration: none a:hover color: #ee9c00; text-decoration: underline 姓名:  主题: 内 容 :    您的位置： >> %if request(page) then%>> 第 页 修改资料退出登陆信 箱 管 理 % 实现分页显示totalPut=rsu.recordcount if currentpagetotalput then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 20 页 - - - - - - - - - if (totalPut mod MaxPerPage)=0 then currentpage= totalPut MaxPerPage else currentpage= totalPut MaxPerPage + 1 end if end if if currentPage=1 then else if (currentPage-1)*MaxPerPage 还没有留言！   姓名： 主题： a href=re.asp?id= target=_self回复a href=del.asp?id= target=_self删除&nbsp内容：     %if rsu(re) then%领导回复：     留言时间： =MaxPerPage then exit do rsu.movenext 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 20 页 - - - - - - - - - loop % 分页 :% pageno=request(page) if MaxPerPage= or isempty(MaxPerPage) or MaxPerPage1 then MaxPerPage=15 end if rsu.pagesize=MaxPerPage 得到每页数 mpage=rsu.pagecount 得到总页数 if isempty(pageno) or cint(pageno)mpage then pageno=1 end if for pno=1 to mpage if pno=cint(pageno) then% a href=index.asp?page= target=_self 版权所有：信息中心制作 addsave.asp文件的源代码： % name=request.form(name) if name= then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 20 页 - - - - - - - - - name= 过客 end if zhuti=request.form(zhuti) ly=request.form(ly) 检查是否填写了所有项，如果不是则自动返回留言发布页面if ly= then errmsg=errmsg & 请填写留言 内容 ！n end if if zhuti= then errmsg=errmsg & 请填写留言 主题 ！n end if if request.cookies(ly)=ly then errmsg=errmsg & 请不要重复提交相同的留言！n end if response.cookies(ly)=ly if errmsg then Conn.Close Set conn = nothing Set rsc = nothing response.write(alert( & errmsg & );history.go(-1) response.end end if set rs=server.createobject(adodb.recordset) sql=select * from book where (id is null) rs.open sql,conn,1,3 rs.addnew rs(name)=name rs(zhuti)=zhuti rs(ly)=ly rs.update rs.close set rs=nothing conn.close set conn=nothing % 添加留言 td font-size: 9pt; line-height: 12pt 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 20 页 - - - - - - - - - a:link color: #0080FF; text-decoration: none a:visited color: #0080FF; text-decoration: none a:hover color: #ee9c00; text-decoration: underline 提交成功！3 秒后自动 返回信箱 版权所有：信息中心制作 包含文件dbpath.asp 的源代码： 用户登录页login.asp的源代码如下： %if user and pwd then% % set rsadm=server.createobject(adodb.recordset) sqladm=select * from user where user=&user& rsadm.open sqladm,conn,1,1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 20 页 - - - - - - - - - if not rsadm.eof then if pwd=rsadm(pwd) then session(user)=rsadm(user) session(pwd)=rsadm(pwd) response.redirect index.asp else response.write(alert(密码不对哦！);history.go(-1) end if else response.write(alert(用户名不存在！请重新输入！);history.go(-1) end if rsadm.close set rsadm=nothing conn.close set conn=nothing end if% 用户登录 td font-size: 9pt; line-height: 12pt a:link color: #0080FF; text-decoration: none a:visited color: #0080FF; text-decoration: none a:hover color: #000000; text-decoration: underline 用户登录 用户名：input name=user size=13 maxlength=20 style=font-family: 宋体 ; font-size: 9pt; border-style: solid; border-width: 1 value=密   码 ： 版权所有：信息中心制作 留言回复页re.asp 的源代码：%if session(user) and session(pwd) then% 领导信箱 回复留言 td font-size: 9pt; line-height: 12pt a:link color: #0080FF; text-decoration: none 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 20 页 - - - - - - - - - a:visited color: #0080FF; text-decoration: none a:hover color: #ee9c00; text-decoration: underline 回复留言 form method=POST action=re.asp?id=&d=edit target=_self 回复:留 言 :     您 的 位 置 ：>>>> 回复留言 版权所有：信息中心制作 % rs.close set rs=nothing rsadm.close 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 20 页 - - - - - - - - - set rsadm=nothing conn.close set conn=nothing else response.write(alert(请登陆后进行回复！);history.go(-1) end if % 留言删除页del.asp的源代码： % if session(user) and session(pwd) then % 删除留言 是 否 删 除 此 留 言 ？form method=POST action=del.asp?id=版 权 所 有 ： 信 息 中 心 制 作 % end if end if else response.write(alert(请登陆后进行删除！);history.go(-1) end if% 信箱基本信息管理页edit.asp 的源代码：%if session(user) and session(pwd) then% % if request(edit)=ok then user=request.form(user) pwd1=request.form(pwd1) pwd2=request.form(pwd2) bookname=request.form(bookname) welcome=request.form(welcome) dept=request.form(dept) 检查是否填写了必添项，如果不是则报错if user= or pwd1= or pwd2= or dept= or bookname= then errmsg=errmsg & 请填写所有内容！n end if if pwd1pwd2 then errmsg=errmsg & 两次输入的密码不相同！n end if 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 20 页 - - - - - - - - - if errmsg then Conn.Close Set conn = nothing Set rs = nothing response.write(alert( & errmsg & );history.go(-1) response.end end if rs(user)=user session(pwd)=pwd1 rs(pwd)=pwd1 rs(bookname)=bookname rs(welcome)=welcome rs(dept)=dept rs.update % 修改信箱资料 td font-size: 9pt; line-height: 12pt a:link color: #0080FF; text-decoration: none a:visited color: #0080FF; text-decoration: none a:hover color: #ee9c00; text-decoration: underline 修 改 信 息 成 功 ！ 2 秒 后 自 动 返 回 信 箱 首 页 修改信箱资料 用 户 名 ： input type=text name=user size=20 value=* 密码：input type=password name=pwd1 size=20 maxlength=15 value=* 1-15个 字 节 重 复 密 码 ： input type=password name=pwd2 size=20 maxlength=15 value=* 1-15个字节 单 位 名 称 ： input type=text size=50 maxlength=100 name=dept value=*信 箱 欢 迎 语 ： input type=text size=50 maxlength=20 name=welcome value=*信 箱 名 称 ： input type=text name=bookname size=50 maxlength=100 value=* 您的位置：>>>> 修改信箱资料 版权所有：信息中心制作 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 20 页，共 20 页 - - - - - - - - -