📄 as_updata_user_2.asp
字号:
<!-- #include file="conn.asp" -->
<body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
<!--
Sub update(userID)
f1.hid_userID.value=userID
f1.action="as_updata_user_2.asp?q=update"
f1.submit
End sub
//-->
</SCRIPT>
<FORM METHOD=POST ACTION="" name="f1">
<INPUT TYPE="hidden" name="hid_userID">
<%
Dim str,str1,userID,temp
userID=request("hid_userID")
If request("q")="update" Then
str="update [user] set User_name='" & request("t1") & "',User_Address='" & request("t2") & "',User_Remarks='" & request("t3") & "' where user_ID='" & userID & "'"
conn.execute(str)
'成功后跳转
response.write"<SCRIPT LANGUAGE='JavaScript'>"
response.write"alert('更新成功!');"
response.write "location.href='see_user.asp'"
response.write"</SCRIPT>"
End if
Set rec=conn.execute("select * from [user] where user_ID='" & userID & "'")
If rec(4)<>"" Then
temp=rec(4)
Else
temp="无备注"
End If
%>
<TABLE border="1" align="center">
<TR>
<TD height="55"><CENTER>添加用户</CENTER></TD>
</TR>
<TR>
<TD height="50">用户姓名：<INPUT TYPE="text" NAME="t1" value=<%=rec(1)%>> <FONT COLOR="red">*</FONT></TD>
</TR>
<TR>
<TD height="50">用户单位：<INPUT TYPE="text" NAME="t2" value=<%=rec(2)%>> </TD>
</TR>
<TR>
<TD height="80">备 注：(可以不填写)<br><TEXTAREA NAME="t3" ROWS="3" COLS="40"><%=temp%></TEXTAREA></TD>
</TR>
<TR height="40">
<TD><CENTER><INPUT TYPE="button" value=" 更新 " onclick="update(<%=rec(0)%>)"> <INPUT TYPE="reset" value=" 取消 "></CENTER></TD>
</TR>
<TR>
<TD><FONT SIZE="4" COLOR="red"><CENTER>*为必填内容</CENTER></FONT></TD>
</TR>
</TABLE>
</FORM>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -