📄 wz_edit.asp
字号:
<%Admin="SysSee"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
id=request("id")
if id="" then
response.write "参数丢失!"
Response.End
end if
modify=request("modify")
title=request("title")
url=request("url")
leibie=request("leibie")
memo=request("memo")
topid=request("topid")
if modify="yes" then
if title="" or url="" or leibie="" then
response.write "<font color='red'>表单不完整!</font><br>"
else
set r=server.createobject("adodb.recordset")
r.open "select * from detail where id="&id,conn,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
if not topid="" then r("topid")=cint(topid)
r.update
response.write "<font color='red'>网站信息修改成功!</font><br>"
end if
end if
end if
%>
<HTML>
<HEAD>
<TITLE>网站信息编辑</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<style type="text/css">
body {font-size:13px}
</style>
</HEAD>
<BODY>
<form action="wz_edit.asp" method="get">
<%
set r=server.createobject("adodb.recordset")
r.open "select * from detail where id="&id,conn,1,3
if not r.eof then
%>
<big>网站信息修改</big>
<table>
<tr>
<td>网站编号：</td><td><input name="x" value='<%=r("id")%>' disabled>
<input name="id" value='<%=r("id")%>' type='hidden'>
</td>
</tr>
<tr>
<td>网站名称：</td><td><input name="title" value='<%=r("title")%>'></td>
</tr>
<tr>
<td>网站URL：</td><td><input name="url" value='<%=r("url")%>'></td>
</tr>
<tr>
<td>所属类别：</td><td><input name="leibie" value='<%=r("classid")%>'></td>
</tr>
<tr>
<td>推荐级别：</td><td><input name="topid" value='<%=r("topid")%>'>0-100,数字越大，排名越靠前</td>
</tr>
<tr>
<td>其他信息：</td><td><input name="memo" value='<%=r("memo")%>'></td>
</tr>
<tr>
<td colspan="2"> <input type="submit"> </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 + -