?? chklogin.asp
字號:
<!--#include file="mdb.asp"-->
<!--#include file="md5.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write("<script language=javascript>alert('你提交的路徑有誤');this.location.href='login.asp';</script>")
response.end
end if
dim login
dim action,mofei
dim title,email,url,leibie,link,memo
action=request.form("action")
mofei=trim(request.form("mofei"))
sql="select login from O3888_title"
set rs=conn.execute(sql)
login=rs("login")
rs.close
set rs=nothing
if login=0 then
Response.Write "<table width=100% height=60%/><tr><td width=100% height=100% align=center>"
Response.Write "暫時關閉會員和游客系統,請稍后再來"
Response.Write "</td></tr></table>"
Response.End
end if
if action="add_wz" and login=1 then
if mofei="" then
Response.Write("<script language=javascript>alert('驗證碼不能為空');this.location.href='login.asp';</script>")
response.end
end if
if cstr(session("CheckCode"))<>cstr(mofei) then
Response.Write("<script language=javascript>alert('你輸入的驗證碼有誤');this.location.href='login.asp';</script>")
response.end
end if
if request.form("leibie")=0 then
Response.Write("<script language=javascript>alert('請選擇分類');this.location.href='login.asp';</script>")
response.end
end if
if request.form("title")="" then
Response.Write("<script language=javascript>alert('請輸入網站名稱');this.location.href='login.asp';</script>")
response.end
end if
if request.form("url")="" then
Response.Write("<script language=javascript>alert('請輸入網站地址');this.location.href='login.asp';</script>")
response.end
end if
if request.form("email")="" then
Response.Write("<script language=javascript>alert('請輸入E-mail');this.location.href='login.asp';</script>")
response.end
end if
if request.form("memo")="" then
Response.Write("<script language=javascript>alert('請輸入網站簡介');this.location.href='login.asp';</script>")
response.end
end if
If IsValidEmail(request.form("Email")) = False Then
Response.Write("<script language=javascript>alert('你輸入的Email有誤');this.location.href='login.asp';</script>")
response.end
End If
if strLength(request.form("memo"))>100 then
Response.Write("<script language=javascript>alert('網站簡介已經超過50字');this.location.href='login.asp';</script>")
response.end
End If
memo=iHTMLEncode(Trim(request.form("memo")))
title=ReplaceBadChar(Trim(request.form("title")))
link=ReplaceBadChar(Trim(request.form("link")))
email=ReplaceBadChar(Trim(request.form("email")))
url=Replace(Trim(request.form("url")),"'","")
leibie=ReplaceBadChar(Trim(request.form("leibie")))
set rss=server.createobject("adodb.recordset")
rss.open "select * from O3888_website",conn,1,3
rss.addnew
rss("title")=title
rss("link")=link
rss("url")=url
rss("classid")=leibie
rss("email")=email
rss("memo")=memo
rss("userid")=0
rss("verity")=0
rss.update
rss.close
set rss=nothing
response.write "<table width='750' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='140'></td></tr><tr><td>"
response.write "<p align='center'><font color='#FF0000'>你的網站信息已經提交成功!</font></p>"
response.write "<p align='center'><font color='#FF0000'>我們會在5個工作日內審核你的網站是否收錄!</font></p>"
response.write "</td></tr></table>"
Response.End
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -