shiset.asp

来自「闲置物品免费交易的平台」· ASP 代码 · 共 42 行

<!--#include file="conn.asp"-->
<%
dim shengid,shiname,shiurl,addemail
if request("action")="add" then
	shengid=request.form("shengid")
	shiname=trim(request("shiname"))
	shiurl=trim(request("shiurl"))
	addemail=trim(request("addemail"))
	If shiname="" Then
		response.write "网站名称不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end
	end if
	If shiurl="" Then
		response.write "连接地址不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end
	end if
		If addemail="" Then
		response.write "站长邮箱不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end
	end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from addmeng where shiname='"&shiname&"' or shiurl='"&shiurl&"' ",conn,1,3
if rs.recordcount<>0 then
        response.write "你的站名或域名已经加盟，请不要重复申请！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		rs.close
		else 
		
rs.addnew
rs("shiname")=shiname
rs("shengid")=shengid
rs("shiurl")=shiurl
rs("addemail")=addemail
rs.update
rs.close
set rs=nothing
conn.close

set conn=nothing
response.write "<script language=javascript>alert('加盟申请成功，请等待站长为你开通！');window.location.href='index.asp';</script>"
end if
end if
%>