admin_linksave.asp

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

<!--#include file=../conn/conn1.asp --><!--#include file="char.inc"-->
<% if request.cookies("okadmin")="" and request.cookies("rank")="" then
  response.redirect "login.asp"
end if %>
<%
ID=Request.QueryString("ID")
set rs=server.createobject("adodb.recordset")
         sql="select * from link where ID=" & ID
        rs.open sql,conn,1,3
ID=request.QueryString("id")
Type1=trim(request.form("type"))
SiteName1=trim(request.form("SiteName"))
SiteUrl1=trim(request.form("SiteUrl"))
LogoUrl1=trim(request.form("LogoUrl"))
SiteAdmin1=trim(request.form("SiteAdmin"))
SiteIntro1=trim(request.form("SiteIntro"))
Isok1=request("Isok")
	If Len(Trim(LogoUrl1))=0 Then
    LogoUrl1="http://ningxiang.com/img/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
	
	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>alert('成功修改，请按确定返回！');"
        response.write"javascript:history.go(-2)</SCRIPT>"
        response.end
%>