write.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=""
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"))

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 
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_bl=rs("u_bl")
				g_homepage=rs("u_homepage")
				sql = "insert into gbook (g_title,g_name,g_email,g_face,g_qq,g_homepage,g_content,g_bl) values('"&g_title&"','"&g_name&"','"&g_email&"',"&g_face&",'"&g_qq&"','"&g_homepage&"','"&g_content&"',"&g_bl&")"
				conn.Execute(sql)
				Response.Write "&datatxt=您的留言已经成功加入"
				Response.Write "&gbname="&g_name&"&gbpass="&g_Pass&"&gblevel="&rs("u_level")&"&gbface="&rs("u_face")
				else
				Response.Write "&datatxt=保留用户密码不正确！"
				end if
		else
		Response.Write "&datatxt=该用户名已经注册，请更换用户名"
		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) values('"&g_title&"','"&g_name&"','"&g_email&"',"&g_face&",'"&g_qq&"','"&g_homepage&"','"&g_content&"',1)"
	conn.Execute(sql)
	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) values('"&g_title&"','"&g_name&"','"&g_email&"',"&g_face&",'"&g_qq&"','"&g_homepage&"','"&g_content&"')"
	conn.Execute(sql)
	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=&gbpass=&gbface="
end if
%>