📄 catedit.asp
字号:
<%
if session("admin")="" then
objconn.close
set objconn=nothing
response.redirect "../default.asp"
end if
%>
<!--#include file="dbpath.asp"-->
<%dim objrs,sql,editrs,editsql
if Request.QueryString("catid")="" then
Response.Write("wrong parameter")
Response.End
end if
set objrs=server.createobject("adodb.recordset")
sql="select * from cat where catid="&Request.QueryString("catid")
objrs.open sql,objconn,1,3
if Request.QueryString("admin")="admin" then
if request.form("catname")="" then
response.write "error:please input a category name"
response.end
end if
objrs("catname")=request.form("catname")
objrs.update
objrs.close
set editrs=server.createobject("adodb.recordset")
editsql="select * from gallery where catid="&Request.QueryString("catid")
editrs.open editsql,objconn,1,3
do while not editrs.eof
editrs("catname")=request.form("catname")
editrs.update
editrs.movenext
loop
editrs.close
response.redirect "main.asp"
else
%>
<head>
<link rel="stylesheet" type="text/css" href="../links.css">
</head>
<body>
<p> </p>
<center>
<form name="form1" method="post" action="catedit.asp?catid=<%=Request.QueryString("catid")%>&admin=admin">
<table width="400" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#000000" bordercolordark="#FFFFFF">
<TBODY>
<tr>
<td background="../images/background.gif" height="20" align="center" colspan="2"><b>重命名分类</b></td>
</tr>
<tr>
<td width="150" align="right">
<div align="center">分类名称：</div>
</td>
<td>
<input type="text" name="catname" class="smallinput" size="30" maxlength="50" value="<%=objrs("catname")%>">
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="submit" name="Submit" value="修改" class="buttonface">
<input type="reset" name="Submit2" value="返回" class="buttonface" onClick="history.go(-1)">
</div>
</td>
</tr>
</table>
</form>
</center>
<%end if
objrs.close
set objrs=nothing
set editrs=nothing
objconn.close
set objconn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -