admin_error_editsave.asp
来自「完整的网址站」· ASP 代码 · 共 118 行
ASP
118 行
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
founderr=true
errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
call diserror()
response.end
end if
if session("flag")>1 then
errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
call diserror()
response.end
end if
id=Request("id")
if trim(Request("web"))="" then
response.write"<SCRIPT language=JavaScript>alert('站点名称不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
web=trim(Request("web"))
end if
if trim(Request("url"))="" then
response.write"<SCRIPT language=JavaScript>alert('站点地址不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
url=trim(Request("url"))
if right(url,1)="/" then url=left(url,len(url)-1)
end if
if Request("sort")="" then
response.write"<SCRIPT language=JavaScript>alert('站点分类不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
sort=trim(Request("sort"))
end if
if Request("hits")="" then
response.write"<SCRIPT language=JavaScript>alert('站点分类不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
hits=trim(Request("hits"))
end if
if Request("shuju")="2" and trim(Request("txtcontent"))="" then
response.write"<SCRIPT language=JavaScript>alert('站点内容描述不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
content=trim(Request("txtcontent"))
end if
dim sql
dim rs
if Request("shuju")="1" then
set rs=server.createobject("adodb.recordset")
sql="select * from happywz_WEB where wwwid="&id
rs.open sql,conn,1,2
rs("wwwsort")=sort
rs("wwwweb")=web
rs("wwwurl")=url
rs("hits")=hits
rs("addtime")=now()
rs.update
rs.close
set rs=nothing
elseif Request("shuju")="2" then
set rs=server.createobject("adodb.recordset")
sql="select * from happywz_WEBURL where id="&id
rs.open sql,conn,1,2
rs("sort")=sort
rs("lang")=lang
rs("web")=web
rs("hits")=hits
rs("url")=url
rs("info")=content
rs("adate")=now()
rs.update
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
%>
<html>
<head>
<title>网址登陆</title> <LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body topmargin="0" LEFTMARGIN="0"><script>if(top==self)top.location="index.asp" </script>
<TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#0099CF" >
<TR BGCOLOR="#0099CF"> <TD HEIGHT="22" COLSPAN="2" ALIGN="center"><B>站点信息修改</B></TD></TR>
<TR BGCOLOR="#ffffff"> <TD WIDTH="70" HEIGHT="30" BGCOLOR=""#0099CF""><B>管理导航：</B></TD><TD HEIGHT="30">☆<A HREF="Admin_error_Index.asp">返回报错网址列表</A></TD></TR>
</TABLE><BR><TABLE WIDTH="88%" BORDER="0" CELLSPACING="1" CELLPADDING="3" ALIGN="center" BGCOLOR="#0099CF">
<TR BGCOLOR="#0099CF" > <TD CLASS="td1" COLSPAN="2" HEIGHT="25"> <B>站点信息修改成功！</B></TD></TR>
<TR> <TD CLASS="td1" WIDTH="16%" ALIGN="right" BGCOLOR=""#0099CF"" HEIGHT="26"><B>站点名称：</B></TD><TD CLASS="td1" WIDTH="84%" BGCOLOR="#ffffff"><%=web%></TD></TR>
<TR> <TD CLASS="td1" WIDTH="16%" ALIGN="right" BGCOLOR=""#0099CF"" HEIGHT="26"><B>站点地址：</B></TD><TD CLASS="td1" WIDTH="84%" BGCOLOR="#ffffff"><%=url%></TD></TR>
<TR> <TD CLASS="td1" WIDTH="16%" ALIGN="right" BGCOLOR=""#0099CF"" HEIGHT="26"><B>站点分类：</B></TD><TD CLASS="td1" WIDTH="84%" BGCOLOR="#ffffff"><%=sort%></TD></TR>
<TR> <TD CLASS="td1" WIDTH="16%" ALIGN="right" BGCOLOR=""#0099CF"" HEIGHT="26"><B>报错数目：</B></TD><TD CLASS="td1" WIDTH="84%" BGCOLOR="#ffffff"><%=hits%></TD></TR>
<TR> <TD CLASS="td1" WIDTH="16%" ALIGN="right" BGCOLOR=""#0099CF"" HEIGHT="26"><B>站点描述：</B></TD><TD CLASS="td1" WIDTH="84%" BGCOLOR="#ffffff"><%=content%></TD></TR>
<TR BGCOLOR="#ffffff"> <TD CLASS="td1" COLSPAN="2" ALIGN="center" HEIGHT="30">［<A HREF="Admin_error_Index.asp">返回报错网址列表</A>］
</TD></TR>
</TABLE><BR><BR><TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#0099CF" >
<TR BGCOLOR="#0099CF"> <TD HEIGHT="22"
COLSPAN="2" ALIGN="center"><B>操作说明</B></TD></TR> <TR BGCOLOR="#ffffff"> <TD WIDTH="87" HEIGHT="30"><B>操作说明：</B></TD><TD
HEIGHT="30"><LI>网址库数据修改项目中<FONT COLOR="#FF0000">站点描述</FONT>为非填写项目</TD></TR> </TABLE>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?