📄 editwz.asp

📁 功能说明： 1
💻 ASP
字号:
<!--#include file="adyou.asp"-->
<%
if session("super")<>"super" then
 response.Write("<script>alert('您没权限访问本页');window.location.href='de.asp'</script>")
 response.End()
end if
%>
<%
id=request("id")
if id="" then
response.Write("<script>alert('参数丢失');window.location.href='de.asp'</script>")
Response.End
end if
modify=request("modify")
title=request("title")
url=request("url")
leibie=request("leibie")
memo=request("memo")
if modify="yes" then
	if title="" or url="" or leibie="" then
  response.Write("<script>alert('表单不完整');window.history.go(-1);</script>")
 response.End()
	else
		set r=server.createobject("adodb.recordset")
		r.open "select * from XS20_WEB where id="&id,adyou,1,3
		if not r.eof then
			r("title")=title
			r("url")=url
			if memo="" then
				r("memo")=" "&memo
			else
				r("memo")=memo
			end if
			r("classid")=leibie
			r.update
			response.Write("<script>alert('修改成功');window.location.href='wz.asp'</script>")
Response.End
		end if
	end if
end if
%>
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<LINK href="../images/yxwancss.css" type=text/css rel=StyleSheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body {
	background-image: url(../images/dj_bg.gif);
}
-->
</style></HEAD>
<BODY><br>
<form action="editwz.asp" method="get">
<%
set r=server.createobject("adodb.recordset")
r.open "select * from XS20_WEB where id="&id,adyou,1,3
if not r.eof then
%>
<big>
<table width="50%" border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr bgcolor="#E8E8E8">
  <td height="30" colspan="2"><div align="center">网站信息修改 </div></td>
  </tr>
<tr bgcolor="#FFFFFF">
<td>网站编号：</td><td><input name="x" value='<%=r("id")%>' disabled>
<input name="id" value='<%=r("id")%>' type='hidden'>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>网站名称：</td><td><input name="title" value='<%=r("title")%>'></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>网站URL：</td><td><input name="url" value='<%=r("url")%>'></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>所属类别：</td>
<td><%
dim rs1
set rs1=server.createobject("adodb.recordset")
rs1.open "select classname from XS20_CLASS where classid="&r("classid"),adyou,1,3
%> <select name="leibie">
  <option value="<%=r("classid")%>" selected><%=rs1("classname")%></option>
          <%
dim rs(5)
function listunder(i)
	set rs(i)=server.createobject("adodb.recordset")
	rs(i).open "select classid,classname,verity from XS20_CLASS where topclass="&rs(i-1)("classid"),adyou,1,3
	while not rs(i).eof
		dim topclassname
		topclassname=""
		for x=1 to i
			topclassname=topclassname&rs(x-1)("classname")&"＞"
		next
		fujia=""
		if rs(i)("verity")<>1 then fujia="(未审核)"
		response.write "<option value='"&rs(i)("classid")&"'>"&topclassname&rs(i)("classname")&fujia&"</option>"&vbCrLf
		if i<Ubound(rs) then
			call listunder(i+1)
		end if
		rs(i).movenext
	wend
end function
set rs(0)=server.createobject("adodb.recordset")
rs(0).open "select classid,classname,verity from XS20_CLASS where topclass=0",adyou,1,3
while not rs(0).eof
	fujia=""
	if rs(0)("verity")<>1 then fujia="(未审核)"
	response.write "<option value='"&rs(0)("classid")&"'>"&rs(0)("classname")&fujia&"</option>"&vbCrLf
	call listunder(1)
	rs(0).movenext
wend
%>
      </select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>其他信息：</td>
<td><textarea name="textarea" cols="40" rows="4"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center"><input type="submit" value="确定修改">
&nbsp;</div></td>
</tr>
</table>
<%
end if
%>
<input name="modify" value="yes" type="hidden">
</form>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -