myinfook.asp

此程序为网上下载

<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%
Response.Expires = 0
Response.CacheControl = "Private"
nickname=Session("hxf_u_nickname")
If nickname = "" Then Response.Redirect "error.asp?id=210"
If nickname = "聊天室管理员" Then Response.Redirect "error.asp?id=301"
Dim f(15)
f(0) = Trim(Request.Form("f0"))
f(1) = Trim(Request.Form("f1"))
f(2) = Trim(Request.Form("f2"))
f(3) = Trim(Request.Form("f3"))
f(4) = Trim(Request.Form("f4"))
f(5) = Trim(Request.Form("f5"))
f(6) = Trim(Request.Form("f6"))
f(7) = Trim(Request.Form("f7"))
f(8) = Trim(Request.Form("f8"))
f(9) = Trim(Request.Form("f9"))
f(10) = Trim(Request.Form("f10"))
f(11) = Trim(Request.Form("f11"))
f(12) = Trim(Request.Form("f12"))
f(13) = Trim(Request.Form("f13"))
f(14) = Trim(Request.Form("f14"))
f(15) = Trim(Request.Form("f15"))
f16 = Trim(Request.Form("f16"))
email = Trim(Request.Form("email"))
If Len(email) > 50 Or Len(f(1)) > 20 Or Len(f(2)) > 2 Or Len(f(3)) > 12 Or Len(f(4)) > 12 Or Len(f(5)) > 20 Or Len(f(6)) > 50 Or Len(f(7)) > 20 Or Len(f(8)) > 20 Or Len(f(9)) > 20 Or Len(f(10)) > 20 Or Len(f(11)) > 50 Or Len(f(12)) > 20 Or Len(f(13)) > 30 Or Len(f(14)) > 30 Or Len(f(15)) > 30 Or Len(f16) > 4096  Then Response.Redirect "error.asp?id=106"
If f(0) <> "1" Then f(0) = "0"
If f(0) = "1" And f(1) = "" Then Response.Redirect "error.asp?id=211"
If f(1) <> Server.URLEncode(f(1)) Then Response.Redirect "error.asp?id=104"
If f(2) <> "男" And f(2) <> "女" Then f(2) = ""
If f(6) = "http://" Then f(6) = ""
For i = 0 To 15
 f(i) = Server.HTMLEncode(f(i))
 f(i) = Replace(f(i), Chr(13) & Chr(10), "")
 f(i) = Replace(f(i), "{]", "{<!>]")
Next
v = Join(f, "{]")
If Instr(v, Chr(34)) <> 0 Then Response.Redirect "error.asp?id=105"
f16 = Server.HTMLEncode(f16)
f16 = Replace(f16, Chr(13) & Chr(10), "<br>")
f16 = Replace(f16, "{]", "{<!>]")
v = v & "{]" & f16
If email <> "" Then
 If Not IsMail(email) Then Response.Redirect "error.asp?id=227"
End If
set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql = "SELECT email, info FROM reginfo WHERE kill = '0' AND grade > 0 AND username = '" & nickname & "'"
rs.Open sql, conn, 1, 3
If rs.Eof And rs. Bof Then
 rs.Close
 conn.Close
 Set rs = Nothing
 Set conn = Nothing
 Response.Redirect "error.asp?id=229"
End If
rs("email") = email
rs("info") = v
rs.Update
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Response.Redirect "ok.asp?id=110"
Function IsMail(v)
 lenv = Len(v)
 For i = 1 To lenv
  zhasc = Asc(Mid(v, i, 1))
  If zhasc < 0 Then
   IsMail = False
   Exit Function
  End If
 Next
 If lenv < 7 Or InStr(v, "@") = 0 Or InStr(v, ".") = 0 Or InStr(v, "@") <> InStrRev(v, "@") Or InStrRev(v, "@") > (lenv - 5) Or InStrRev(v, ".") > (lenv - 2) Then
  IsMail = False
  Exit Function
 Else
  IsMail = True
 End If
 v1 = Replace(v, "@", "")
 v1 = Replace(v1, ".", "")
 v1 = Replace(v1, "-", "")
 v1 = Replace(v1, "_", "")
 For i = 0 To 9
  v1 = Replace(v1, i, "")
 Next
 If Server.URLEncode(v1) <> v1 Then
  IsMail = False
  Exit Function
 End If
End Function
%>