📄 as_updata_user.asp
字号:
<!-- #include file="conn.asp" -->
<body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
<!--
Sub update1(userID)
f1.hid_userID.value=userID
f1.action="as_updata_user_2.asp"
f1.submit
End Sub
//-->
</SCRIPT>
<style>
table tr{text-align:center}
</style>
<FORM METHOD=POST ACTION="" name="f1">
<INPUT TYPE="hidden" name="hid_userID">
<TABLE border="1" bordercolor="#0000000">
<TR>
<TD width="80" height="35">用户编号</TD>
<TD width="160">用户名</TD>
<TD width="200">用户单位</TD>
<TD width="150">借书数量</TD>
<TD width="150">备注</TD>
<TD width="80">操作</TD>
</TR>
<%
Dim str,State
str="select * from [User]"
Set rec=conn.execute(str)
Do While Not rec.eof
If rec(3)<>0 Then
temp=rec(3) & "本"
Else
temp="<FONT COLOR=""#FF0066"">没有借书</FONT>"
End If
If rec(4)<>"" Then
State=rec(4)
else
State="<FONT COLOR=""#FF0066"">暂时无备注</FONT>"
End If
%>
<TR>
<TD height="35"><%=rec(0)%></TD>
<TD><%=rec(1)%></TD>
<TD><%=rec(2)%></TD>
<TD><%=temp%></TD>
<TD><%=State%></TD>
<td><A HREF="#" onclick="update1(<%=rec(0)%>)">更新</a></td>
</TR>
<%
rec.movenext
Loop
%>
</TABLE>
</FORM>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -