📄 modify.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.redirect "admin_login.asp"
else
if session("flag")>2 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if
end if
%>
<%
dim rs3
dim sql
dim count
set rs3=server.createobject("adodb.recordset")
sql = "select * from city order by c_id asc"
rs3.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs3.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs3("city"))%>","<%= trim(rs3("a_id"))%>","<%= trim(rs3("c_id"))%>");
<%
count = count + 1
rs3.movenext
loop
rs3.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.c_id.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.c_id.options[document.myform.c_id.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<link rel="stylesheet" type="text/css" href="css/css.css">
</head>
<body leftmargin="0" topmargin="0" bgcolor="#FFFFFF">
<%
set rs2=server.createobject("adodb.recordset")
sql="select * from data where id="&request("ID")
rs2.open sql,conn,1,3
%>
<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#999999" width="339">
<tr>
<td colspan="2"> <font color="#FF0000">登陆网站修改</font></td>
</tr>
<form name="myform" method="post" action="modify_save.asp?id=<%=request("id")%>">
<tr>
<td width="81">所处地区： </td>
<td width="236">
<%
sql = "select * from area"
rs3.open sql,conn,1,1
if rs3.eof and rs3.bof then
response.write "请先添加栏目。"
response.end
else
%>
<select name="a_id" onChange="changelocation(document.myform.a_id.options[document.myform.a_id.selectedIndex].value)" size="1">
<%dim selarea
selarea=rs2("a_id")
do while not rs3.eof
%>
<option value="<%=trim(rs3("a_id"))%>" <%if rs2("a_id")=rs3("a_id") then response.Write "selected"%>><%=trim(rs3("area"))%></option>
<%
rs3.movenext
loop
end if
rs3.close
%>
</select> <select name="c_id">
<%sql="select * from city where a_id="&selarea
rs3.open sql,conn,1,1
if not(rs3.eof and rs3.bof) then
do while not rs3.eof%>
<option value="<%=rs3("c_id")%>" <%if rs2("c_id")=rs3("c_id") then response.Write "selected"%>><%=rs3("city")%></option>
<% rs3.movenext
loop
end if
rs3.close
set rs3 = nothing
%>
</select> </td>
</tr>
<tr>
<td>网站类型： </td>
<td><select name="t_id" id="select5">
<% set rs=server.createobject("adodb.recordset")
sql="select * from type"
rs.open sql,conn,1,1%>
<%if rs.eof and rs.bof then%>
<%else
while not rs.eof%>
<option value="<%=rs("t_id")%>"><%=rs("type")%></option>
<%rs.movenext
wend
end if%>
</select>
</td>
</tr>
<tr>
<td>网站名称：</td>
<td> <input name="webname" type="text" id="webname3" value="<%=rs2("webname")%>">
<font color="#FF0000"> *必填</font></td>
</tr>
<tr>
<td>网站地址： </td>
<td> <input name="url" type="text" id="url3" value="<%=rs2("url")%>"> <font color="#FF0000">*必填</font></td>
</tr>
<tr>
<td>网站LOGO： </td>
<td> <input name="logo" type="text" id="logo3" value="<%=rs2("logo")%>"></td>
</tr>
<tr>
<td>站长姓名： </td>
<td> <input name="name" type="text" id="name2" value="<%=rs2("name")%>">
<font color="#FF0000">*必填</font></td>
</tr>
<tr>
<td>密码：</td>
<td><input name="pwd" type="text" id="pwd3" value="<%=rs2("pwd")%>"> <font color="#FF0000">*必填</font></td>
</tr>
<tr>
<td>OICQ： </td>
<td> <input name="qq" type="text" id="qq3" value="<%=rs2("qq")%>"></td>
</tr>
<tr>
<td>邮箱地址：</td>
<td> <input name="mail" type="text" id="mail3" value="<%=rs2("mail")%>">
<font color="#FF0000">*必填</font></td>
</tr>
<tr>
<td>联系电话： </td>
<td> <input name="tel" type="text" id="tel3" value="<%=rs2("tel")%>"></td>
</tr>
<tr>
<td>推荐级别： </td>
<td> <select name="vouch" id="select3">
<option value="<%=rs2("vouch")%>"><%=rs2("vouch")%></option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">首页</option>
<option value="7">内页</option>
</select> </td>
</tr>
<tr>
<td>网站介绍： </td>
<td> <textarea name="intro" rows="5" id="textarea"><%=rs2("intro")%></textarea>
<br>
*必填 (少于100字)</td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit22" value="提交"></td>
</tr>
</FORM>
</table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -