gform.asp

来自「一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊」· ASP 代码 · 共 40 行

<!--#include file = "public.asp"-->
<!--#include file = "md5.asp"-->
<%
Email=Request.Form("Email")
SiteName=Request.Form("SiteName")
URL=Request.Form("URL")
linktype=Request.Form("linktype")
Description=Request.Form("Description")
logo=request.Form("logo")
if logo="http://" then logo=" "
Set rso=conn.Execute("select * from foption")

Set rsc=Server.CreateObject("ADODB.RecordSet")
rsc.open "Select * From friend where name='" & request("name")& "'" ,Conn,1,1
if not (rsc.eof or rsc.bof) then 
response.Redirect "join_err.asp?type=usrname"
end if
rsc.close
set rsc=nothing
Set rsc=Server.CreateObject("ADODB.RecordSet")
rsc.open "Select * From friend where url='" & request("url")& "'" ,Conn,1,1
if not (rsc.eof or rsc.bof) then 
response.Redirect "join_err.asp?type=url"
end if
rsc.close
set rsc=nothing

sql="insert into Friend(email,SiteName,url,Description,MyDate,linktype,mark,sitelogo,siteclick) values('"
sql=sql & email &"','"& SiteName &"','"& url &"','" & Description &"','"&now&"','"& linktype &"','0','"&logo&"',0)"
conn.execute sql
if rso("auto") then 
	response.Redirect "succeed.asp?mode=add1" 
else 
	response.Redirect "succeed.asp?mode=add"
end if
conn.close
set conn=nothing

%>