📄 author_bookzhangedit.asp
字号:
<%
id=replace(trim(request("id")),"'","")
CheckSqlnum(id)
if id="" then
response.Redirect "author_logout.asp"
response.End
end if
id=int(id)
set rs=server.CreateObject("ADODB.recordset")
sql="select * from list_cook where list_cookid="&id
rs.open sql,conn,1,3
%>
<%
dim b_id
b_id=rs("list_bookid")
set rs3=server.createobject("adodb.recordset")
sql3="select * from list_book where id="&b_id
rs3.open sql3,conn,1,3
if rs3("list_Adminid")<>author_ID then
Response.Write ("<script>alert(' 操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
Response.end
End If
rs3.close
set rs3=nothing
%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#588fc7" height="30">
<td colspan="4" class="head"><font color="#FFFFFF">修改分卷名称</font></td>
</tr><tr>
<td bgcolor="#F7F7F7">
<form action method="post" name="myform" id="myform">
<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
<tr bgcolor="#F7F7F7">
<td width="40%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
分卷名称:<br>
</td>
<td width="60%">
<input name="list_cookname" type="text" id="list_cookname" value="<%=rs("list_cookname")%>"></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#F7F7F7">
<td height="34" colspan="2">
<input type="hidden" name="info" value="yes">
<input type="submit" class="button" value="确认修改">
<input type="reset" class="button" value="重 置"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
if request.form("info")="" then
else
if request.form("list_cookname")="" then
response.write "<script language=javascript>alert('分卷名称不能为空!');history.back(-1);</script>"
response.end
end if
rs("list_cookname")=trim(request.form("list_cookname"))
rs.update
rs.close
set rs=nothing
response.write ("<script language=javascript>window.alert('修改成功!');history.back(-1);</script>")
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -