📄 modify.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("logined") <> "Yes" Then
Response.Write "请先登录!"
Response.End
End If
%>
<% Response.Expires=-1 %>
<title>修改记录</title>
<%
numeration=Request("numeration")
action=Request("action")
title=Request("title")
url=Request("url")
tclass=Request("class")
remark=Request("remark")
if numeration="" then
Response.write "非法请求!"
Response.End
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from basic where numeration="&numeration,conn,1,3
If Not Rs.Eof Then
If action = "modify" and title <> "" and url <> "" and tclass <> "" and remark <> "" Then
Rs("title")=title
Rs("url")=url
Rs("class")=tclass
Rs("remark")=remark
Rs.Update
Rs.Close
Response.Write "<font color='red'>你的修改已保存!</font><a href='modify.asp?numeration="&numeration&"'>Click Here>></a>"
Response.Write "<Script>if (window.opener != null) {window.opener.location.reload()}</Script>"
Response.Write "<Script>setTimeout('top.location=\'modify.asp?numeration="&numeration&"\'',1000);</Script>"
Response.End
End If
Else
Response.Write "不存在这条记录!"
End If
If Not Rs.Eof Then
%>
<form action="modify.asp" method="post">
<center>
<font color='green'><big>修改记录</big></font>
<table>
<tr><td>序号</td><td><input type="hidden" name="numeration" value='<%=Rs("numeration")%>'><%=Rs("numeration")%></td></tr>
<tr><td>标题</td><td><input name="title" value='<%=Rs("title")%>'></td></tr>
<tr><td>URL</td><td><input name="url" value='<%=Rs("url")%>'></td></tr>
<tr><td>类别</td><td><input name="class" value='<%=Rs("class")%>'></td></tr>
<tr><td>备注</td><td><input name="remark" value='<%=Rs("remark")%>'></td></tr>
<input name="action" type="hidden" value="modify">
<tr><td colspan="2"><input type="submit"></td></tr>
</table>
</center>
</form>
<%
Else
Response.Write "不存在这条记录!"
End If
Rs.Close
%>
<%if numeration<>1 then%>
<a href="<%=Request.ServerVariables("url")%>?numeration=<%=numeration-1%>">上一条</a>
<%end if%>
<a href="<%=Request.ServerVariables("url")%>?numeration=<%=numeration+1%>">下一条</a>
<Script Language="JavaScript">window.focus();</Script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -