?? modifyinfook.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
UserId=trim(request("txtId"))
set rsUser=server.createobject("adodb.recordset")
sqltext="select * from Userinfo where txtId='"&UserId&"'"
rsUser.open sqltext,conn,3,3
'必添項
rsUser("txtPass")=Request("txtPass")
rsUser("txtCat")=Request("txtCat")
rsUser("txtCompany")=Request("txtCompany")
rsUser("txtContect")=Request("txtContect")
rsUser("txtTel")=Request("txtTel")
rsUser("txtFax")=Request("txtFax")
rsUser("txtEmail")=Request("txtEmail")
rsUser("txtProv")=Request("txtProv")
rsUser("txtCity")=Request("txtCity")
rsUser("txtPost")=Request("txtPost")
rsUser("txtAddress")=Request("txtAddress")
rsUser("txtDesc")=htmlencode(Request("txtDesc"))
If Request("txtUrl")="" Then
rsUser("txtUrl")="未知"
Else
rsUser("txtUrl")=trim(Request("txtUrl"))
End If
If Request("txtTel")="" Then
rsUser("txtTel")="未知"
Else
rsUser("txtTel")=trim(Request("txtTel"))
End If
If Request("txtFax")="" Then
rsUser("txtFax")="未知"
Else
rsUser("txtFax")=trim(Request("txtFax"))
End If
rsUser.update
rsUser.close
conn.close
response.write "<script language=JavaScript>{window.alert('資料修改成功!');window.location.href='default.asp'}</script>"
response.end
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -