save.asp

不是我做的一个留言板

<%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<%
'----------------读取数据------------------------------
txtname=left(request("txtname"),30)
txtemail=left(request("txtemail"),30)
txthomepage=left(request("txthomepage"),30)
txtoicq=left(request("txtoicq"),10)
pic=request("txthead")
sex=request("sex")
txtcontent=left(request("txtcontent"),500)

if txthomepage="" or txthomepage="http://" then txthomepage="help.html"

if txtname="" then '--------------判断名字
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('你忘记填入你的名字啦~！~');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
'--------------------判断email函数----------
If txtemail="" or IsValidEmail(txtemail)=false then
	    response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('错误的email输入');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
'-------------------下次写个全的OICQ的判断(nami)--------------
if Isnumeric(txtoicq) =false then
response.write "<script language='javascript'>" & vbcrlf
response.write "alert('哎呀！你要么没写qq！要么就是qq不全是数字！：（');"& vbcrlf
response.write "history.go(-1);" & vbcrlf
response.write "</script>" & VbCRLF
response.end
end if
'-------------------输入内容检测------------------------
if txtcontent=""  then
	    response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('你想干什么？搞破坏啊~~~');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
'else 
'response.write txtcontent
'response.end
end if
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
'--------------------------------检测qq是否为数字（有待研究啊！！！）-------------
'function Isnumeric(qq)
'dim n
'n=qq
'if left(n,1)<>1 then
'Isnumeric=false
'end if
'end function
'---------------------------数据编码---------暂时无UBB码功能，下个版本吧~：）
txtname=server.htmlencode(txtname)
txtemail=server.htmlencode(txtemail)
txthomepage=txthomepage
txtoicq=server.htmlencode(txtoicq)

reply = "斑竹很快就会回复你的哦 :-)"
'---------------pichead=!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

'------以下写入留言---------------
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from iZzgbook"
rs.open sql,conn,3,2
rs.addnew

		rs("name")=txtname
		rs("email")=txtemail
		rs("homepage")=txthomepage
		rs("oicq")=txtoicq
		rs("content")=txtcontent
		rs("head")=pic
		rs("dateandtime")=now()
		rs("reply")=reply
		rs("ip")=Request.ServerVariables("REMOTE_HOST")
		rs("writename")=txt_writename
		rs("sex")=cstr(sex)
		rs.update
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
		
response.redirect "index.asp"




%>