📄 editlist.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
<title>New Page 2</title>
</head>
<script language="VBScript">
<!--
Sub Checkdata()
if list.sort_name.Value = Empty then
Window.Alert"“栏目没有填写...”"
Exit Sub
End if
list.submit
End sub
-->
</script><body>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from list where id="&request("id")
rs.open sql,conn,3,3
%>
<div align="center">
<center>
<form name="list" method="post" action="add_listo2.asp?id=<%=rs("id")%>">
<table border="0" cellpadding="0" cellspacing="1" width="500" bgcolor="#000000" height="33">
<tr>
<td bgcolor="#FFFFFF" width="101" height="31">
<p align="center">修改栏目</td>
<td bgcolor="#FFFFFF" width="389" height="31"> <input type="text" name="sort_name" size="20" style="border: 1 solid #000000" value="<%=rs("sort_name")%>">
<input type="button" value="确定修改" name="B1" ONCLICK="Checkdata"></td>
</tr>
</table>
</form>
</center>
</div>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -