user_save_url.asp

大概说明: 一:登陆后台前请先smszzun_admin,找到IP_report.asp这个文件,把里面的IP地址更换成你的本机IP 如果IP不符合则不能打开后台页面,这是为了数据安全

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="unconfig.asp"-->
<%
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 or server_v1="" or server_v1="" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
founderr=false
if isnull(session("UserName")) or session("UserName")="" or isnull(session("PassWord")) or session("PassWord")="" then
	errmsg=errmsg+"<SCRIPT language=JavaScript>alert(' 对不起, 您还没有登陆! ');javascript:top.window.close();</SCRIPT>"
	call error()
	Response.End 
end if
username=session("username")
%>
<!--#include file="codeid.asp"-->
<%
savetime=Now()+webtime/24
set rs=server.CreateObject("ADODB.RecordSet")             
if request.form("webname")="" then errmsg=errmsg & "网站名称不能为空 \n"              
if request.form("weburl")="" then errmsg=errmsg & "访问路径不能为空! \n"
if errmsg<>"" then
   response.write("<script>alert('" & errmsg & "');history.go(-1)</script>") 
else
		sql="select * from user_url where (id is null)"
		rs.open sql,conn,1,3
		rs.addnew
		rs("webname")=request("webname")
		rs("weburl")=request("weburl")
		rs("unionid")=id
		rs("time")=savetime
		rs.update
		rs.close		
response.write("<script>alert('提交成功');location.href='user_url.asp'</script>") 
response.end
end if
set rs=nothing
conn.close
set conn=nothing%>