addok.asp

1、改进了数据库的md5加密算法。 2、可自主设置每页显示的页数。 3、加强了回复功能

<% @LANGUAGE = VBScript %>
<!--#include file="inc/conn.asp"-->

<%
If Request( "btnSubmit" )<>"" Then
Dim  content,num
content=Trim( Request("content") )
If len( content )>500 Then
	session( "wrong" )="留言内容超出限制！"
	Response.Redirect ("error.asp")
End If

End If
%>


<%
name=replace(trim(request.form("name")),"'","")
face=replace(trim(request.form("face")),"'","")
qq=replace(trim(request.form("qq")),"'","")
email=replace(trim(request.form("email")),"'","")
homepage=replace(trim(request.form("homepage")),"'","") 
title=replace(trim(request.form("title")),"'","")
content=replace(trim(request.form("content")),"'","")
repcontent=replace(trim(request.form("repcontent")),"'","")
ip=request.form("ip")

if name="" then
	response.write "<SCRIPT language=JavaScript>alert('用户昵称不能为空 或 输入字符非法！');"
	response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
	response.end
end if
if title="" then
	response.write "<SCRIPT language=JavaScript>alert('留言主题不能为空 或 输入字符非法！');"
	response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
	response.end
end if
if content="" then
	response.write "<SCRIPT language=JavaScript>alert('留言内容不能为空 或 输入字符非法！');"
	response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
	response.end
end if %>

<%
dim usercode
usercode=trim(Request.Form("verifycode"))
if usercode<>Session("verifycode") then
response.write "<SCRIPT language=JavaScript>alert('您输入的验证码和系统产生的不一致！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
else
end if
%>


<%
exec1="insert into gb(name,face,qq,email,homepage,title,content,repcontent,ip) values('"+name+"','"+face+"','"+qq+"','"+email+"','"+homepage+"','"+title+"','"+content+"','"+repcontent+"','"+ip+"')"
conn.execute exec1
conn.close
set conn=nothing
response.redirect "index.asp"
%>