📄 fenleiedit.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,class1,paixu
if request("cnmai")="ok" then
call ok()
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class1] where id="&cstr(request("id"))
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<li>参数错误！"
response.end
end if
class1=rs("class1")
paixu=rs("paixu")
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改分类</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<center>
<form method="POST" action="fenleiedit.asp?cnmai=ok&id=<%=request("id")%>">
<table style="border-collapse: collapse" borderColor="#cccccc" height="68" cellSpacing="0" cellPadding="0" width="475" border="1">
<tr>
<td width="473" bgColor="#FFCC00" height="25">
<p align="center"><font color="#FF0000">分类修改</font></td>
</tr>
<tr>
<td style="border-bottom: medium none" align="middle" width="473" height="21">
<p align="left">
大类名称：<input name="class1" size="20" value="<%=class1%>"></td>
</tr>
<tr>
<td style="border-top: medium none; border-bottom: medium none" align="middle" width="473" height="25">
<p align="left">
排序数字：<input value="<%=paixu%>" name="paixu" size="20"></td>
</tr>
<tr>
<td width="473" height="25" align="left" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<span lang="zh-cn"> </span> <span lang="zh-cn">添加信息页</span>：<input type="text" name="addpage" size="31" value="<%=rs("addpage")%>" >(<span lang="zh-cn">绝对路径</span>)</td>
</tr>
<tr>
<td width="473" height="25" align="left" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
信息显示页：<input type="text" name="memopage" size="31" value="<%=rs("memopage")%>">(<span lang="zh-cn">绝对路径</span>)</td>
</tr>
<tr>
<td width="473" height="25" align="left" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
会员修改信息页：<input type="text" name="editpage" size="31" value="<%=rs("editpage")%>">(<span lang="zh-cn">绝对路径</span>)</td>
</tr>
<tr>
<td width="473" height="25" align="left" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
管理员修改信息页：<input type="text" name="adminpage" size="31" value="<%=rs("adminpage")%>">(<span lang="zh-cn">绝对路径</span>)</td>
</tr>
<tr>
<td style="border-top: medium none" width="473" height="25">
<p align="center">
<input style="color: #000000; border: 0px solid #000000; background-color: #FFCC00" type="submit" value="提交" name="B1"></td>
</tr>
</table>
</form>
</center>
</body>
</html>
<%
sub ok()
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class1] where id="&cstr(request("id"))
rs.open sql,conn,1,3
rs("class1")=request("class1")
rs("paixu")=request("paixu")
rs("addpage")=request("addpage")
rs("editpage")=request("editpage")
rs("memopage")=request("memopage")
rs("adminpage")=request("adminpage")
rs.update
rs.close
set rs=nothing
response.write "<li>修改大类成功！<br>"
response.write "<li>刷新后可以看到结果！"%>
<body onLoad="setTimeout(window.close, 3000)">
<%
end sub
closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -