rwrite.asp

asp+flash宾客留言系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<%
dim g_face,g_name,g_pass,g_qq,g_email,g_homepage,g_title,g_content
dim exec,rs,out,sql
foundErr=""
'转换和去除不规范的字符，encodestr函数写在conn.asp
g_face=encodestr(Request.form("g_face"))
g_name=encodestr(Request.form("g_name"))
g_pass=encodestr(Request.form("g_pass"))
g_qq=encodestr(Request.form("g_qq"))
g_email=encodestr(Request.form("g_email"))
g_homepage=encodestr(Request.form("g_homepage"))
g_title=encodestr(Request.form("g_title"))
g_content=encodestr(Request.form("g_content"))
g_id=request("id")
'检查错误
if len(g_name)=0 then
 	foundErr=foundErr& "请填写用户名！！<br>"
end if
if len(g_name)>10 then
 	foundErr=foundErr&"用户名不可以超过10个字符！！<br>"
end if
if len(g_title)<3 then
	foundErr=foundErr&"请认真填写留言标题！！<br>"
end if
if len(g_title)>40 then
 	foundErr=foundErr&"留言标题不可以超过40个字符！！<br>"
end if
if len(g_content)<2 then
	foundErr=foundErr&"请认真填写留言内容！！<br>"
end if

if foundErr="" then 
'**----------------------------------------------------------------------------------------------------------------
'下面是判断几个问题
'判断是否注册用户，
'判断有否填写密码
'情况会如下：
'是注册用户：1.有填写密码，则检查密码是否正确，如果正确，则用注册资料填写留言。
'            2.没有填写密码，则提示错误！
'不是注册用户：1.有填写密码，则检测该用户名是否已经注册，如果没有则自动注册并保留资料和留言内容，否则提示出错。
'              2.没有填写密码，视为过客身份留言
'**----------------------------------------------------------------------------------------------------------------
set rs=server.CreateObject("adodb.recordset")
sql="select * from users where u_name='"&g_name&"'"
rs.open sql,conn,1,1
if not rs.eof then		'判断该用户是否已经存在
		if g_pass <> "" then	'判断是否有写密码，如果有则
			if g_pass=rs("u_pass") then	'检查密码，同时将注册用户的资料连同留言内容写入数据库
				g_face=rs("u_face")
				g_name=rs("u_name")
				g_qq=rs("u_qq")
				g_email=rs("u_email")
				g_homepage=rs("u_homepage")
				g_bl=rs("u_bl")
				'读取注册资料
				sql = "insert into gbook (g_title,g_name,g_email,g_face,g_qq,g_homepage,g_content,g_bl,g_id) values('"&g_title&"','"&g_name&"','"&g_email&"',"&g_face&",'"&g_qq&"','"&g_homepage&"','"&g_content&"',"&g_bl&","&g_id&")"
				'写入留言
				conn.Execute(sql)
				conn.Execute("Update gbook set g_rhit=g_rhit+1 where id="&g_id)	'留言计数器自加
				Response.Write "&datatxt=您回复的留言已经成功加入"
				Response.Write "&gbname="&g_name&"&gbpass="&g_Pass&"&gblevel="&rs("u_level")&"&gbface="&rs("u_face")
				'这一行是为了记录用户名和密码、头像用的，
				'输出返回资料				
				else		'否则，用户密码错误
				Response.Write "&datatxt=保留用户密码不正确！"
				Response.Write "&gbname="&g_name&"&gbpass=&gbface="&g_face '这一行是为了记录用户名和密码、头像用的，
				end if		'判断注册用户密码结束
		else	'如果用户名已经存在，则出错！
		Response.Write "&datatxt=该用户名已经注册，请更换用户名"
		Response.Write "&gbname="&g_name&"&gbpass=&gbface="&g_face'这一行是为了记录用户名和密码、头像用的，
		end if
	elseif g_pass <> "" then	'用户名不存在，密码不为空～
	sql = "insert into users (u_name,u_pass,u_email,u_face,u_qq,u_homepage) values('"&g_name&"','"&g_pass&"','"&g_email&"',"&g_face&",'"&g_qq&"','"&g_homepage&"')"
	'注册其资料
	conn.Execute(sql)
	sql = "insert into gbook (g_title,g_name,g_email,g_face,g_qq,g_homepage,g_content,g_bl,g_id) values('"&g_title&"','"&g_name&"','"&g_email&"',"&g_face&",'"&g_qq&"','"&g_homepage&"','"&g_content&"',1,"&g_id&")"
	'留言写入数据库
	conn.Execute(sql)
	conn.Execute("Update gbook set g_rhit=g_rhit+1 where id="&g_id)	'留言计数器自加
	Response.Write "&datatxt=您回复的留言已经成功加入,并且已经注册成功!"
	Response.Write "&gbname="&g_name&"&gbpass="&g_Pass&"&gbface="&g_face'这一行是为了记录用户名和密码、头像用的，
	'输出返回资料
	else		'密码为空，则视为过客身份留言
	sql = "insert into gbook (g_title,g_name,g_email,g_face,g_qq,g_homepage,g_content,g_id) values('"&g_title&"','"&g_name&"','"&g_email&"',"&g_face&",'"&g_qq&"','"&g_homepage&"','"&g_content&"',"&g_id&")"
	conn.Execute(sql)
	conn.Execute("Update gbook set g_rhit=g_rhit+1 where id="&g_id)	'留言计数器自加
	Response.Write "&datatxt=您回复的留言已经成功加入"
	Response.Write "&gbname="&g_name&"&gbpass=&gbface="&g_face'这一行是为了记录用户名和密码、头像用的，
	end if
    
rs.close
set rs=nothing
else
Response.Write "&datatxt="&foundErr
Response.Write "&gbname="&g_name&"&gbpass=&gbface="&g_face'这一行是为了记录用户名和密码、头像用的，
end if
%>