向高手请教代码!怎么修改代码才能达到这样的目的
作者:中学生大副 转贴自:本站冟创 点击数:58587
下面这段代码,添加好资料和留言提交后,仍在留言板上,我想让它提交后跳到另个一页面(假如这个页面是abc.asp)上去。请问怎么修改?我是外行,麻烦详细说明,谢谢了!
<%@ Language=VBScript %> <!--#INCLUDE FILE=conn.asp --> <!--#INCLUDE FILE=config.asp --> <%
response.buffer=true Response.Expires=0
usercookies=Request.Cookies(usercookies) if not session(password)<> then if usercookies > 0 then name=Request.Cookies(username) password=Request.Cookies(password) sql=select * from admin where id=1 set rs8=conn.execute(sql) if not(rs8.bof and rs8.eof) then if password=rs8(userpass) and name=rs8(username) then session(user)=name session(password)=wpassword end if end if end if end if
Set rs9 = Server.CreateObject(ADODB.Recordset) sql9 =SELECT * From about Order By id DESC RS9.open sql9,Conn,3,3 mypagesize=cint(rs9(num)) '每页显示留言数 badnicks=rs9(badnicks) badwords=rs9(badwords)
Set rs = Server.CreateObject(ADODB.Recordset) sql = Select * FROM guestbook Order By dateandtime Desc rs.open sql,conn,1,1
IF not IsNumeric(Request(page)) Or IsEmpty(Request(page)) Then page=1 Else Page=Int(Abs(Request(page))) End if rs.pagesize = mypagesize total = rs.RecordCount rs.absolutepage = page
if request(test)=insert then
'校验码判断开始 If Request(checkcode)= Then MessageBox 请返回输入验证码吧! response.end Elseif Session(CheckCode)= then MessageBox 请返回并刷新登录页面,重新输入正确的信息:) response.end ElseIf Cstr(Session(CheckCode))<>Cstr(Trim(Request(checkcode))) Then MessageBox 您输入的验证码不对,请重新输入。 response.end End if '校验码判断结束
'防止垃圾留言功能开始 dim ComeUrl,cUrl ComeUrl=lcase(trim(request.ServerVariables(HTTP_REFERER))) if ComeUrl= then ' MessageBox 错误信息:对不起,为了系统安全,不允许直接输入地址访问本页面。 ' response.end else cUrl=trim(http:// & Request.ServerVariables(SERVER_NAME)) if mid(ComeUrl,len(cUrl)+1,1)=: then cUrl=cUrl & : & Request.ServerVariables(SERVER_PORT) end if cUrl=lcase(cUrl & request.ServerVariables(SCRIPT_NAME)) if lcase(left(ComeUrl,instrrev(ComeUrl,/)))<>lcase(left(cUrl,instrrev(cUrl,/))) then ' MessageBox 错误信息:留言本防垃圾留言功能已经打开,禁止从外部链接地址提交留言。 ' response.end end if end if '防止垃圾留言功能结束
txtname=left(request(txtname),30) txtemail=left(request(txtemail),30) txthomepage=left(request(txthomepage),50) txtoicq=left(request(txtoicq),10) if request.form(xxx)= then pic=images/1.gif else pic=request.form(xxx) end if txtcome=left(request(txtcome),20) sex=request(sex) txtcontent=left(request(txtcontent),500)
'设置灌水限制 posttime=60 if cint(posttime)<>0 then if not isnull(session(posttime)) or cint(posttime)>0 then if DateDiff(s,session(posttime),Now())<cint(posttime) then MessageBox 错误信息:灌水功能开启,限制&posttime&秒内不能重复留言。 response.end end if end if end if
if txtemail<> and IsValidEmail(txtemail)=false then MessageBox 错误信息:邮件地址填写出错:请修改你的邮件地址。 response.end end if
if txtname= then MessageBox 请输入内容! response.end end if
if txtcontent= then MessageBox 错误信息:请填入你的名字! response.end end if
if txtemail= then txtemail=我就不填啦! if txtoicq= then txtoicq=打死我也不说! if txtcome= then txtcome=保密! if txthomepage= or txthomepage=http:// then txthomepage=先不填了,空着算了!
function MessageBox(strOutput) response.write <script language='&#106avascript'> & VbCRlf response.write alert(' & strOutput & '); & VbCrlf response.write history.go(-1); & vbCrlf response.write </script> & VbCRLF response.end end function
function IsValidEmail(email) dim names, name, i, c IsValidEmail = true names = Split(email, @) if UBound(names) <> 1 then IsValidEmail = false exit function end if for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = . or Right(name, 1) = . then IsValidEmail = false exit function end if next if InStr(names(1), .) <= 0 then IsValidEmail = false exit function end if i = Len(names(1)) - InStrRev(names(1), .) if i <> 2 and i <> 3 then IsValidEmail = false exit function end if if InStr(email, ..) > 0 then IsValidEmail = false end if
end function
function IsLongStr(str) dim longStrs,longstr IsLongStr = true longStrs = Split(str,) for each longStr in longStrs if len(longstr) > 50 then ISlongStr = false end if next end function
txtname=server.htmlencode(txtname) txtcome=server.htmlencode(txtcome) txtemail=server.htmlencode(txtemail) txtcome=server.htmlencode(txtcome) txthomepage=txthomepage txtoicq=server.htmlencode(txtoicq) txtcontent=server.htmlencode(txtcontent) reply = 没有
'使用屏蔽昵称 check_name=txtname badnicks=split(badnicks,,) for i = 0 to ubound(badnicks) if instr(check_name,badnicks(i))>0 then MessageBox 错误信息:您使用了屏蔽的昵称。 response.end exit for end if next
'使用屏蔽字符 check_content=txtcontent badwords=split(badwords,,) for i = 0 to ubound(badwords) if instr(check_content,badwords(i))>0 then MessageBox 错误信息:您使用了非法的留言内容。 response.end exit for end if next
Set rs= Server.CreateObject(ADODB.Recordset) sql=select * from guestbook rs.open sql,conn,3,2 rs.addnew
rs(name)=txtname rs(email)=txtemail rs(homepage)=txthomepage rs(come)=txtcome rs(oicq)=txtoicq rs(content)=txtcontent rs(head)=pic rs(dateandtime)=now() rs(reply)=reply rs(ip)=Request.ServerVariables(REMOTE_HOST) rs(sex)=cint(sex) rs.update rs.close if cint(posttime)<>0 then session(posttime)=now() end if response.redirect index.asp end if %> <HTML> <HEAD> <TITLE><%=rs9(name)%>互动平台</TITLE> <meta http-equiv=Content-Type content=text/html; charset=gb2312> <meta name=Keywords CONTENT=<%=rs9(name)%>,留言本> <meta name=description content=<%=rs9(name)%>的留言本> <style> <!-- BODY{ SCROLLBAR-FACE-COLOR: #cccccc; FONT-SIZE: 10px; SCROLLBAR-HIGHLIGHT-COLOR: #cccccc; SCROLLBAR-SHADOW-COLOR: #cccccc; COLOR: #333333; SCROLLBAR-3DLIGHT-COLOR: #ffffff; LINE-HEIGHT: normal; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #efefef; FONT-STYLE: normal; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; SCROLLBAR-DARKSHADOW-COLOR: #999999 } table, td{ font:9pt 宋体 } A { COLOR: #000000; TEXT-DECORATION: none } A:hover { COLOR: #000000; TEXT-DECORATION:none } .td{ font-family:宋体;font-size:9pt;line-height:150% } .big{ font:14.8px 宋体 } input{ height:18px;border-left:1px ridge #ffffff;border-top:1px ridge #ffffff;border-bottom:1px ridge;border-right:1px ridge;background-color:#efefef;font-style:normal; font-variant:normal; font-weight:normal; font-size:9pt; font-family:宋体 } select{background-color: #FFFFFF;border: 1px dotted #999999;font-size: 9pt;color: #999999;} --> </style> <script language=&#106avascript> <!-- function check() { if(document.login.txtname.&#118alue==) {alert(您想留言吗?“网友”一栏还没有填呢,网名、真名都行啊,呵呵:));return false} if(document.login.txtcontent.&#118alue==) {alert(留言内容还没有填呢,呵呵:));return false} if(document.login.checkcode.&#118alue==) {alert(校验码还没有填呢,呵呵:));return false} if(document.login.txtoicq.&#118alue==) {alert(希望留下个QQ号码,方便时联系,好吗?);return false}
} --> </script> <LINK HREF=../images/text.css TYPE=text/css REL=stylesheet> <base target=_top> </head>
<body leftMargin=0 topMargin=0> <center><script src=../top.js></script></center>
<BR> <table width=880 border=0 cellspacing=0 cellpadding=0 align=center> <tr> <td background=images/bg_left.gif valign=top width=100%> <table width=100% border=0 cellspacing=0 cellpadding=0> <tr> <td colspan=3><img src=images/left_kuang_top.gif width=100% height=4></td> </tr> <tr> <td width=4 background=images/left_kuang_left.gif><img src=images/left_kuang_left.gif width=4 height=2></td> <td width=100% valign=top> <table width=100% border=0 cellspacing=0 cellpadding=5 height=100%> <tr> <td class=td valign=top> <table align=center border=0 cellpadding=0 cellspacing=1 bgcolor=<%=rs9(bian)%> width=100%> <tbody> <% dim i i=1 do while not rs.eof and mypagesize>0 id=rs(gbookid) name=rs(name) email=rs(email) homepage=rs(homepage) oicq=rs(oicq) head=rs(head) content=rs(content) content=Autolink(content) dateandtime=rs(dateandtime) reply=rs(reply) reply=addlink(reply) sex=rs(sex) %> <tr> <td bgcolor=<%=rs9(bgss)%> rowspan=2 width=80> <center> <% if rs9(textonly)=0 then %><img border=0 src=<%=head%>> <br><% end if %> <br> <%=name%> </center> </td> <td bgcolor=<%=rs9(bgss)%> height=20> <table border=0 cellpadding=0 cellspacing=0 width=99%> <tbody> <tr> <td valign=bottom width=50%><font class=cha2> 发表于:<%=dateandtime%></font> </td> <td align=right width=50%><img align=absBottom alt=<%=name%>来自<%=rs(come)%> border=0 height=16 src=images/icon_profile.gif width=16> <a <% if right(email,1)<>! then %> href=mailto:<%=email%> <% end if %> title=<%=name%>的电子邮箱是<%=email%>><img align=absBottom border=0 height=16 src=images/icon_email.gif width=16></a> <a title=<%=name%>的QQ号是<%=oicq%>><img align=absBottom border=0 height=16 src=images/icon_editor_oicq.gif width=16></a> <a <% if right(homepage,1)<>! then %> href=<%=homepage%> <% end if %> target=_blank title=<%=name%>的主页地址是:<%=homepage%>><img align=absBottom border=0 height=16 src=images/icon_homepage.gif width=16></a> <img align=absBottom alt=<%=name%>的IP地址是<%=rs(ip)%> height=16 src=images/icon_ip.gif width=16> <% if session(password)=wpassword then %> <a href=reply.asp?gbookid=<%=id%> title=只有管理员才能回复><img align=absBottom src=images/icon_reply_topic.gif width=16 height=16 border=0></a> <a href=del.asp?gbookid=<%=id%> title=只有管理员才能删除留言><img align=absBottom src=images/icon_delete_reply.gif width=16 height=16 border=0></a> <% end if %> </td> </tr> </tbody> </table> </td> </tr> <tr> <td bgcolor=<%=rs9(bgsrc)%> height=80> <table border=0 cellpadding=0 cellspacing=2 width=100%> <tbody> <tr> <td><%=content%></td> </tr> <tr> <td> <%if reply<>没有 then%> <br> <hr size=1> <font color=#000000>管理员回复:</font><font color=#B08291><%=reply%></font> <%end if%> </td> </tr> </tbody> </table> </td> </tr> <% mypagesize=mypagesize-1 i=i+1 rs.movenext loop %> <tr> <td bgcolor=<%=rs9(bgs)%> colspan=2 height=18 valign=bottom> <div align=center> <table width=100% border=0 cellspacing=0 cellpadding=0> <form name=form2 method=post action=index.asp> <tr><td align=left> <A name=语文大本营></A><font color=#FF0000>请填下表写自己的留言</font><font color=#008080>●</font><a target=_top href=http://www.wenmowang.com/ywdby/luL/index.asp> <font color=#0000FF>点这里查看全部留言</font></a></td> <td align=right height=22><font color=#000000>共<b><%=rs.pagecount%></b>页<b><%=total%></b>条留言 当前第<b><%=page%></b>页 <a href=?page=1 class=black>首页</a> <%if page>1 then%> <a href=?page=<%=page-1%> class=black>上一页</a> <%else%> 上一页 <%end if%> <%if page<rs.pagecount then%> <a href=?page=<%=page+1%> class=black>下一页</a> <%else%> 下一页 <%end if%> <a href=?page=<%=rs.pagecount%> class=black>尾页</a> <!-- <select name=page class=bottom> <%for i=1 to rs.pagecount%> <option &#118alue=<%=i%> <% if i=page then response.write selected end if %> ><%=i%></option> <%next%> </select> <input type=submit name=Submit22 &#118alue=转向 class=bottom> </font> --> <BR>
<%for i=1 to rs.pagecount if i=page then response.write [<font color=#666666><b>+Cstr(i)+</b></font>] else response.write [<b>+<a href='?page=+cstr(i)+'>+Cstr(i)+</a></b>] end if next%> </td> </tr> </form> </table> </div> </td> </tr> </tbody> </table> <table align=center border=0 cellpadding=2 cellspacing=1 bgcolor=#D1DCE5 width=100%> <form action=index.asp method=post name=login onSubmit=return check()> <input type=hidden name=test &#118alue=insert> <tr> <td bgcolor=#FFFFFF valign=top> <table border=0 cellpadding=0 cellspacing=2> <tbody> <tr> <td align=right width=20><img height=16 src=images/icon_edit_topic.gif width=16></td> <td width=33><font class=cha2>网友</font></td> <td> <input maxlength=20 name=txtname size=20> <input name=username type=hidden> </td> </tr> <tr> <td align=right><img border=0 height=16 src=images/icon_email.gif width=16></td> <td width=33><font class=cha2>Email</font></td> <td> <input maxlength=100 name=txtemail size=20> </td> </tr> <tr> <td align=right><img height=16 src=images/icon_homepage.gif width=16></td> <td width=33><font class=cha2>主页</font></td> <td> <input maxlength=100 name=txthomepage size=20 &#118alue=http://> </td> </tr> <tr> <td align=right><img border=0 height=16 src=images/icon_editor_oicq.gif width=16></td> <td width=33>QQ号</td> <td> <input maxlength=9 name=txtoicq size=20> </td> </tr> <tr> <td align=right><img height=16 src=images/icon_profile.gif width=16></td> <td width=33><font class=cha2>来自</font></td> <td> <select name=txtcome size=1> <option selected &#118alue=世界一角>请选择.. <option &#118alue=北京>北京 <option &#118alue=广东>广东 <option &#118alue=上海>上海 <option &#118alue=新疆>新疆 <option &#118alue=辽宁>辽宁 <option &#118alue=广西>广西 <option &#118alue=海南>海南 <option &#118alue=湖南>湖南 <option &#118alue=甘肃>甘肃 <option &#118alue=河北>河北 <option &#118alue=湖北>湖北 <option &#118alue=江西>江西 <option &#118alue=江苏>江苏 <option &#118alue=西藏>西藏 <option &#118alue=山东>山东 <option &#118alue=浙江>浙江 <option &#118alue=安徽>安徽 <option &#118alue=福建>福建 <option &#118alue=吉林>吉林 <option &#118alue=黑龙江>黑龙江 <option &#118alue=山西>山西 <option &#118alue=云南>云南 <option &#118alue=贵州>贵州 <option &#118alue=四川>四川 <option &#118alue=陕西>陕西 <option &#118alue=重庆>重庆 <option &#118alue=天津>天津 <option &#118alue=河南>河南 <option &#118alue=青海>青海 <option &#118alue=宁夏>宁夏 <option &#118alue=台湾>台湾 <option &#118alue=香港>香港 <option &#118alue=澳门>澳门 <option &#118alue=亚洲>亚洲 <option &#118alue=美洲>美洲 <option &#118alue=欧洲>欧洲 <option &#118alue=澳洲>澳洲 <option &#118alue=非洲>非洲 <option &#118alue=其它地区>其它地区</option> </select> </td> </tr> <tr> <td align=right><img height=16 src=images/icon_delete_reply.gif width=16></td> <td width=33><font class=cha2>校验</font></td> <td> <input maxlength=10 name=checkcode size=8> <img src=checkcode.asp align=absbottom> </td> </tr> </tbody> </table> </td> <td bgcolor=#FFFFFF valign=top align=center> <table border=0 cellpadding=1 cellspacing=0> <tbody> <tr> <td colspan=3 height=100> <textarea class=editbox2 cols=85 name=txtcontent rows=10 type=text></textarea> </td> </tr> <tr> <td><% if rs9(textonly)=0 then %> <img alt=个人形象代表 height=32 id=face src=images/1.gif width=32></td> <td>头像</td> <td> <select name=xxx onChange=document.images['face'].src=options[selectedIndex].&#118alue; size=1> <option selected &#118alue=images/1.gif select>头像1 <option &#118alue=images/2.gif>头像2 <option &#118alue=images/3.gif>头像3 <option &#118alue=images/4.gif>头像4 <option &#118alue=images/5.gif>头像5 <option &#118alue=images/6.gif>头像6 <option &#118alue=images/7.gif>头像7 <option &#118alue=images/8.gif>头像8 <option &#118alue=images/9.gif>头像9 </option> </select> <% end if %> <input class=bottom name=Submit type=submit &#118alue=提交> <input class=bottom name=reset type=reset &#118alue=重填> </td> </tr> </tbody> </table> </td> </tr> </form> </table> </td> </tr> </table> </td> <td width=4 background=images/left_kuang_left.gif><img src=images/left_kuang_left.gif width=4 height=2></td> </tr> <tr> <td colspan=3><img src=images/left_kuang_bottom.gif width=100% height=4></td> </tr> </table> <table width=100% border=0 cellspacing=0 cellpadding=0> <tr> <td colspan=3><img src=images/left_kuang_top.gif width=100% height=4></td> </tr> <tr> <td width=4 background=images/left_kuang_left.gif><img src=images/left_kuang_left.gif width=4 height=2></td> <td width=100% height=25 bgcolor=#D1DCE5 align=center> [ <a href=../>网站首页</a> ] [ <a href=index.asp>查看留言</a> ] [ <a href=login.asp>管理登录</a> ] [ <a href=logout.asp>退出管理</a> ] </td> <td width=4 background=images/left_kuang_left.gif><img src=images/left_kuang_left.gif width=4 height=2></td> </tr> <tr> <td colspan=3><img src=images/left_kuang_bottom.gif width=100% height=4></td> </tr> </table> </td> <td width=8 bgcolor=#FFFFFF></td> </tr>
</table> </body> </html>
|