save.asp

图书管理系统是用VC++做的有兴趣的可以来共同研究研究

<!-- 
'========================================================================================
' 文 件 名: save.asp
' 版    本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说    明: 留言存储文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网    站: http://lingfengnet.com,
' 电子邮件: [e-mail]
' 联系ＱＱ: 85112407
'========================================================================================
-->
<%@language=vbscript codepage=936 %>
<!-- #include file="inc/setup.asp" -->
<!-- #include file="inc/sub_inc.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<!-- #include file="inc/contencrypt.asp" -->
<%flg="save"%>
<!-- #include file="inc/purview_default.asp" -->
<!-- #include file="inc/connect.asp" -->
<!-- #include file="inc/checkru.asp" -->
<%
ip=Request.ServerVariables("REMOTE_HOST")
if lingfengnet_ms_messdoor=0 and Request.cookies("lingfengnet_ms_messdoortime")<>"" then
	if DateDiff("n",Request.cookies("lingfengnet_ms_messdoortime"),now())<lingfengnet_ms_messdoortimes then
		Response.Write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script Language=Javascript>alert('"& lingfengnet_ms_language_save_mes_1 &""&lingfengnet_ms_messdoortimes&""& lingfengnet_ms_language_save_mes_2 &"');window.close();</script>"
	    response.end
	end if
end if

if lingfengnet_ms_messdoorday=0 and Request.cookies("lingfengnet_ms_messdoorday_times")<>"" then
if int(Request.cookies("lingfengnet_ms_messdoorday_times"))>lingfengnet_ms_messdoorday_times then
    Response.Write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script Language=Javascript>alert('"& lingfengnet_ms_language_save_mes_3 &""&lingfengnet_ms_messdoorday_times&""& lingfengnet_ms_language_save_mes_4 &"，"& Request.cookies("lingfengnet_ms_messdoorday_times") &""& lingfengnet_ms_language_save_mes_5 &"。');window.close();</script>"
	    response.end
end if
end if

username=left(trim(request.form("username")),16)
post=left(trim(request.form("post")),30)
tel=trim(request.form("tel"))
email=trim(request.form("email"))
mes_s=request.form("mes_s")
ys2=request.form("ys2")
reg=trim(request.form("reg"))
reg1=request.form("reg1")
mess=trim(request.form("mess"))
face=trim(request.form("face"))
content=left(trim(request.form("content")),500)
'content=replace(content,""& Chr(13) &"","<br>")
'content=replace(content,""& Chr(10) &"","<br>")

if username="" then
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_6 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if lingfengnet_ms_messchina=0 then
chrname=len(username)
for i=1 to chrname
	lingfengnet_ms_messchina=mid(username,i,1)
	lingfengnet_ms_messchina_1=asc(lingfengnet_ms_messchina)
	if lingfengnet_ms_messchina_1>0 or (chrname<2 or chrname>5) then 
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_7 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
	end if	
next
else
	if len(username)<2 or len(username)>30 then 
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_8 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
	end if
end if

if InStr(username,"|")<>0 then
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_9 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if InStr(username,chr(34))<>0 then
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_10 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if post="" then
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_11 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if InStr(post,"|")<>0 then
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_12 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if InStr(post,chr(34))<>0 then
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_13 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if tel<>"" and not IsNumeric(tel) then
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_14 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if tel<>"" and (len(tel)<8 or len(tel)>12) then
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_15 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if mes_s<>"no" and (mes_s<>"pp" and mes_s<>"msn")  and  not IsNumeric(mess)  then
		response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_16 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

If email="" or IsValidEmail(email)=false then
	    response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_17 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if content=""  then
	    response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_18 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if

if lingfengnet_ms_messreg=1 then
if reg<>reg1 then
	    response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_19 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if
end if

if lingfengnet_ms_messreg=2 then
if int(reg)<>int(session("SafeCode")) then
	    response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>" 
	    response.write "alert('"& lingfengnet_ms_language_save_mes_19 &"。');" 
	    response.write "history.go(-1);" 
	    response.write "</script>" 
	    response.end
end if
end if

select case mes_s
case "qq"
mess=lingfengnet_ms_language_save_mes_20&mess
case "msn"
mess=lingfengnet_ms_language_save_mes_21&mess
case "pp"
mess=lingfengnet_ms_language_save_mes_22&mess
case "uc"
mess=lingfengnet_ms_language_save_mes_23&mess
case "yahoo"
mess=lingfengnet_ms_language_save_mes_24&mess
case "no"
mess=lingfengnet_ms_language_save_mes_25
end select

if tel="" then tel=lingfengnet_ms_language_save_mes_26

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 

%>
<!-- #include file="inc/filtrate.asp" -->
<%

username=server.htmlencode(username)
email=server.htmlencode(email)
post=server.htmlencode(post)
mess=server.htmlencode(mess)
content=server.htmlencode(content)

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from lfmessb"
rs.open sql,conn,3,2
rs.addnew
        
		if lingfengnet_ms_messconten=0 then
			rs("username")=EnCrypt(username)
			rs("post")=EnCrypt(post)
			rs("ip")=EnCrypt(ip)
			rs("tel")=EnCrypt(tel)
			rs("email")=EnCrypt(email)
			rs("mess")=EnCrypt(mess)
			rs("content")=EnCrypt(content)
			rs("encrypt")=1
		elseif lingfengnet_ms_messconten=1 then
			rs("username")=username
			rs("post")=post
			rs("ip")=ip
			rs("tel")=tel
			rs("email")=email
			rs("mess")=mess
			rs("content")=content
			rs("encrypt")=0
		end if
			rs("addtime")=now()
		if rs("silentlywords")<>"" then
			rs("silentlywords")=1
		else
			rs("silentlywords")=0
		end if
		if session("Auditingmess")="ok" then
			rs("Auditing")=2
		elseif session("Auditingmess")="bad" then
			rs("Auditing")=3
		else
			rs("Auditing")=0
		end if
		if lingfengnet_ms_web_bs=0 then
			rs("face")=face
		else
			rs("face")="1.jpg"
		end if

		rs.update
		rs.close
		conn.close
		set rs=nothing
		set conn=nothing		

		if lingfengnet_ms_messdoor=0 then
			Response.cookies("lingfengnet_ms_messdoortime") = now()
			Response.cookies("lingfengnet_ms_messdoortime").Expires = now()+lingfengnet_ms_messdoortimes
		end if
		
		if lingfengnet_ms_messdoorday=0 then
		
		if Request.cookies("lingfengnet_ms_messdoorday_times")="" then 
			lingfengnet_ms_messdoorday_times_lin=0
		else  
			lingfengnet_ms_messdoorday_times_lin=Request.cookies("lingfengnet_ms_messdoorday_times")
		end if
			Response.cookies("lingfengnet_ms_messdoorday_times") = lingfengnet_ms_messdoorday_times_lin+1
			Response.cookies("lingfengnet_ms_messdoorday_times").Expires = now()+1		
		end if		
		
			Response.Write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script Language=Javascript>alert('"& lingfengnet_ms_language_save_mes_27 &"');window.close();</script>"
			response.end
%>