regsave.asp

中介之家房产中介系统 V4.0企业共享版

<!--#include file="conn.asp"-->
<%
type1=request("type")
SiteName1=request("SiteName")
SiteUrl1=request("SiteUrl")
LogoUrl1=Request("LogoUrl")
SiteAdmin1=Request("SiteAdmin")
SiteIntro1=Request("SiteIntro")
Isok1=false '修改此处为true,则系统在用户自助加入链接后不经站长审核就会显示在首页上
	If Len(Trim(LogoUrl1))=0 Then
    LogoUrl1="http://www.nxmm.com/link/link/logo/no.gif"
	End If
	If Len(Trim(SiteName1))=0 Then
	response.write"<SCRIPT language=JavaScript>alert('网站名称不能为空，请按确定返回！');"
    response.write"javascript:history.go(-1)</SCRIPT>"
    response.end
	End If
	If Len(Trim(SiteUrl1))=0 Then
	    response.write"<SCRIPT language=JavaScript>alert('网站地址不能为空，请按确定返回！');"
        response.write"javascript:history.go(-1)</SCRIPT>"
        response.end
	End If
		If Len(Trim(SiteAdmin1))=0 Then
	    response.write"<SCRIPT language=JavaScript>alert('网站站长是谁？');"
        response.write"javascript:history.go(-1)</SCRIPT>"
        response.end
	End If
	If Len(Trim(SiteIntro1))=0 Then
	    response.write"<SCRIPT language=JavaScript>alert('网站简介不能为空，请按确定返回！');"
        response.write"javascript:history.go(-1)</SCRIPT>"
        response.end
	End If
	Set rs=Server.CreateObject("ADODB.Recordset")
	sql="SELECT * FROM link"
	rs.Open sql,conn,1,3
	rs.Addnew
	rs("type")=type1
	rs("SiteName")=SiteName1
	rs("SiteUrl")=SiteUrl1
	rs("LogoUrl")=LogoUrl1
	rs("SiteAdmin")=SiteAdmin1
	rs("SiteIntro")=SiteIntro1
    rs("Isok")=Isok1
	rs.Update
	rs.Close
	Set rs=Nothing
		response.write "<script language='javascript'>" & chr(13)
		response.write "alert('成功加入本站连接数据库,待站长确认后即生效，谢谢');" & Chr(13)
		response.write "window.document.location.href='linkreg.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
		Response.End
%>