smallclass_modi.asp
来自「非常有商业价值的软件」· ASP 代码 · 共 67 行
ASP
67 行
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<%
id=my_request("id",1)
iid=my_request("iid",1)
smallclass=my_request("name",0)
action=my_request("action",0)
if action="save" then
call save()
response.write "<p align=center><a href=javascript:window.close()>修改成功，请刷新窗口，点击关闭窗口</a></p>"
else
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet type=text/css>
<title>小类别修改</title>
</head>
<body>
<form action="smallclass_modi.asp" method="post">
<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#CCCCCC">
<tr>
<td>大类别修改</td>
</tr>
<tr>
<td>请选择小类：<select size="1" name="iid">
<option value="">请选择...</option>
<%sql="select id,txt_big_class from big_class order by addtime"
set rs=conn.execute (sql)
do while not rs.eof
%>
<option value="<%=rs("id")%>" <%if rs("id")=iid then%> selected <%end if%>><%=rs("txt_big_class")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</select><br>
名称：<input type="text" name="smallclass" size="20" value="<%=smallclass%>" maxlength="20">
<input type="hidden" name="action" value="save">
<input type="hidden" name="id" value="<%=id%>">
</td>
</tr>
<tr>
<td><input type="submit" value="修 改" name="B1"></td>
</tr>
</table>
</form>
</body>
</html>
<%end if
sub save()
smallclass=my_request("smallclass",0)
id=my_request("id",1)
iid=my_request("iid",1)
sql="update small_class set iid="&iid&",txt_small_class='"&smallclass&"' where id="&id
conn.execute (sql)
conn.close
set conn=nothing
end sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?