?? chklogin.asp
字號(hào):
<!--#include file="mdb.asp"-->
<%
mofei=trim(request.form("mofei"))
if mofei="" then
response.write "驗(yàn)證碼為空!"
response.end
end if
if cstr(session("getcode"))<>cstr(mofei) then
response.write "驗(yàn)證碼輸入有誤!請(qǐng)核對(duì)!"
response.end
end if
action=request("action")
memo=request("memo")
title=request("title")
email=request("email")
url=request("url")
classname=request("classname")
leibie=request("leibie")
if action="add_wz" then
if title="" or memo="" or url="" or email="" or leibie="" then
Response.Write "表單填寫不完整!"
Response.End
end if
if Session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from detail",conn,1,3
rss.addnew
rss("title")=title
rss("url")=url
rss("classid")=leibie
rss("email")=email
rss("memo")=memo
rss("verity")=0
rss.update
rss.close
set rss=nothing
Session("lastaddedwz")=title
Response.Write "<table width=100% height=100%\><tr><td width=100% height=100% align=center>"
Response.Write "你的網(wǎng)站信息已經(jīng)成功提交!我們會(huì)在72小時(shí)內(nèi)審核你的網(wǎng)站是否收錄!"
Response.Write "</td></tr></table>"
Response.End
end if
end if
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -