📄 admin_url_edit.asp
字号:
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin_login.asp';</script>")
Response.End
End if
dim id
dim pw1,pw2,pw3,pw4,pw5,pw6,pw7,pw8
dim title,url,classid,userid,Comes,Exits,topid,memo,recommend,link,Wrong,verity
id=request("id")
if Session("level")<2 then
Call outcome("你的权限不足")
Response.End
End if
if id="" then
Call outcome("非法操作")
Response.End
end if
if request("modify")="edit" then
if request("pw1")="" or request("pw2")="" or request("pw4")="" or request("pw6")="" or request("pw9")="" or request("pw10")="" or request("pw11")="" or request("pw14")="" or request("pw15")="" then
Call outcome("<font color='red'>表单不完整</font>")
Response.End
end if
if request("pw3")="" then
Call outcome("<font color='red'>请选择分类</font>")
Response.End
end if
if strLength(request("pw8"))>100 then
Call outcome("<font color='red'>网站简介已经超过50个汉字</font>")
Response.End
end if
pw1=ReplaceBadChar(Trim(request("pw1")))
pw2=Replace(Trim(request("pw2")),"'","")
pw3=ReplaceBadChar(Trim(request("pw3")))
pw4=ReplaceBadChar(Trim(request("pw4")))
pw6=ReplaceBadChar(Trim(request("pw6")))
pw7=ReplaceBadChar(Trim(request("pw7")))
pw8=ReplaceBadChar(Trim(request("pw8")))
pw9=ReplaceBadChar(Trim(request("pw9")))
pw10=ReplaceBadChar(Trim(request("pw10")))
pw11=ReplaceBadChar(Trim(request("pw11")))
pw13=ReplaceBadChar(Trim(request("pw13")))
pw14=ReplaceBadChar(Trim(request("pw14")))
pw15=ReplaceBadChar(Trim(request("pw15")))
set r=server.createobject("adodb.recordset")
sql="select * from O3888_website where id="&id
r.open sql,conn,1,3
if not r.eof then
r("title")=pw1
r("url")=pw2
r("classid")=cint(pw3)
r("userid")=cint(pw4)
r("Exits")=cint(pw6)
if pw7="" then
r("topid")=0
else
r("topid")=cint(pw7)
end if
if pw8<>"" then r("memo")=pw8
if pw13<>"" then r("color")=pw13
r("recommend")=pw9
r("link")=pw10
r("verity")=pw11
r("index")=pw14
r("wrong")=pw15
r.update
r.close
set r=nothing
Call outcome("网站信息修改成功!")
Response.End
else
r.close
set r=nothing
Call outcome("<font color='red'>出错！</font>")
Response.End
end if
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from O3888_website where id="&id,conn,1,3
if not rs.eof then
title=rs("title")
color=rs("color")
url=rs("url")
classid=rs("classid")
userid=rs("userid")
Exits=rs("Exits")
topid=rs("topid")
memo=rs("memo")
recommend=rs("recommend")
link=rs("link")
index=rs("index")
verity=rs("verity")
wrong=rs("wrong")
rs.close
set rs=nothing
else
rs.close
set rs=nothing
Call outcome("<font color='red'>出错！</font>")
Response.End
end if
%>
<HTML>
<HEAD>
<TITLE>网站修改管理</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</HEAD>
<BODY>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="b">
<tr>
<td align="center">网站修改管理</td>
</tr></table>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="a">
<form action="admin_url_edit.asp?id=<%=id%>" method="post" name="form1">
<tr>
<td width="20%">网站标题：</td>
<td width="80%"><input name="pw1" class="c" size="40" value="<%=title%>"> <select class="c" name='pw13' style="display:none">
<option value='' <%if color="" then Response.Write "selected"%>>默认颜色</option>
<option value='#000000' <%if color="#000000" then Response.Write "selected"%> style='background-color:#000000'></option>
<option value='#FFFFFF' <%if color="#FFFFFF" then Response.Write "selected"%> style='background-color:#FFFFFF'></option>
<option value='#008000' <%if color="#008000" then Response.Write "selected"%> style='background-color:#008000'></option>
<option value='#800000' <%if color="#800000" then Response.Write "selected"%> style='background-color:#800000'></option>
<option value='#808000' <%if color="#808000" then Response.Write "selected"%> style='background-color:#808000'></option>
<option value='#000080' <%if color="#000080" then Response.Write "selected"%> style='background-color:#000080'></option>
<option value='#800080' <%if color="#800080" then Response.Write "selected"%> style='background-color:#800080'></option>
<option value='#808080' <%if color="#808080" then Response.Write "selected"%> style='background-color:#808080'></option>
<option value='#FFFF00' <%if color="#FFFF00" then Response.Write "selected"%> style='background-color:#FFFF00'></option>
<option value='#00FF00' <%if color="#000000" then Response.Write "selected"%> style='background-color:#00FF00'></option>
<option value='#00FFFF' <%if color="#00FF00" then Response.Write "selected"%> style='background-color:#00FFFF'></option>
<option value='#FF00FF' <%if color="#FF00FF" then Response.Write "selected"%> style='background-color:#FF00FF'></option>
<option value='#FF0000' <%if color="#FF0000" then Response.Write "selected"%> style='background-color:#FF0000'></option>
<option value='#0000FF' <%if color="#0000FF" then Response.Write "selected"%> style='background-color:#0000FF'></option>
<option value='#008080' <%if color="#008080" then Response.Write "selected"%> style='background-color:#008080'></option>
</select> <font color=red>*</font></td>
</tr>
<tr>
<td>网站地址：</td>
<td><input class="c" name="pw2" size="50" value="<%=url%>"> <font color=red>*</font></td>
</tr>
<tr>
<td>网站分类：</td>
<td>
<select class="c" name="pw3">
<%
set rssss(0)=server.createobject("adodb.recordset")
rssss(0).open "select classid,classname from O3888_class where topclass=0",conn,1,3
while not rssss(0).eof
fujia=""
if rssss(0)("classid")=classid then fujia=" selected"
response.write "<option"&fujia&" value='"&rssss(0)("classid")&"'>"&rssss(0)("classname")&"("&rssss(0)("classid")&")</option>"&vbCrLf
call listunder(1)
rssss(0).movenext
wend
%>
</select>
<font color=red>*</font></td>
</tr>
<input style='display:none' name="pw4" value="<%=userid%>">
<input style='display:none' name="pw6" value="<%=Exits%>">
<input style='display:none' name="pw7" value="<%=topid%>">
<textarea style='display:none' cols="60%" name="pw8" rows="5"><%=memo%></textarea>
<%
if recommend=1 then
Response.Write "<input type='radio' style='display:none' value='1' name='pw9' checked><input type='radio' style='display:none' name='pw9' value='0'>"
else
Response.Write "<input type='radio' style='display:none' value='1' name='pw9'><input type='radio' style='display:none' name='pw9' value='0' checked>"
end if
%>
<%
if link=1 then
Response.Write "<input type='radio' style='display:none' value='1' name='pw10' checked><input type='radio' style='display:none' name='pw10' value='0'>"
else
Response.Write "<input type='radio' style='display:none' value='1' name='pw10'><input type='radio' style='display:none' name='pw10' value='0' checked>"
end if
%>
<tr>
<td>实用酷站：</td>
<td>
<%
if index=1 then
Response.Write "<input type='radio' class='c' value='1' name='pw14' checked> <font color=red>显示该站</font> <input type='radio' class='c' name='pw14' value='0'> 未显示该站"
else
Response.Write "<input type='radio' class='c' value='1' name='pw14'> 显示该站 <input type='radio' class='c' name='pw14' value='0' checked> <font color=red>未显示该站</font>"
end if
%>
</td>
</tr>
<%
if wrong=1 then
Response.Write "<input type='radio' style='display:none' value='1' name='pw15' checked><input type='radio' style='display:none' name='pw15' value='0'>"
else
Response.Write "<input type='radio' style='display:none' value='1' name='pw15'><input type='radio' style='display:none' name='pw15' value='0' checked>"
end if
%>
<%
if verity=1 then
Response.Write "<input type='radio' style='display:none' value='1' name='pw11' checked><input type='radio' style='display:none' name='pw11' value='0'><input type='radio' style='display:none' value='-1' name='pw11'>"
end if
if verity=-1 then
Response.Write "<input type='radio' style='display:none' value='1' name='pw11'><input type='radio' style='display:none' name='pw11' value='0'><input type='radio' style='display:none' value='-1' name='pw11' checked>"
end if
if verity<>1 and verity<>-1 then
Response.Write "<input type='radio' style='display:none' value='1' name='pw11'><input type='radio' style='display:none' name='pw11' value='0' checked><input type='radio' style='display:none' value='-1' name='pw11'>"
end if
%>
<tr>
<td>点击修改：</td>
<td>
<input type="hidden" name="modify" value="edit">
<input class="d" type="submit" value="修改网站信息">
</td>
</form>
</tr>
<tr>
<td>说明</td>
<td>1：带“<font color=red>*</font>”为必须填写的表单<br>2：友情连接，指对方网站是否做有本站的连接，只做区分之用<br>3：还未审核及未通过审核的网站将不会出现在前台</td>
</tr>
<tr>
<td align="center" colspan="2">[<A href='http://www.03888.com/' target=_blank>03888网址大全</A>]</td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -