?? save_user.asp
字號:
<!--#include file=../system/include/config.asp-->
<!--#include file=../share/conn_system.asp-->
<!--#include file=../system/include/access.asp-->
<!--#include file=../system/include/function.asp-->
<%
dim strSql,rs,bz
bz=request("bz")
bz=replace(bz," "," ")
bz=replace(bz,chr(13)&chr(10),"<Br>")
if request("password")<>request("qr_password") then
%>
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("你的'密碼'和'確認密碼'不相符!")
Sub window_onload
window.history.back
End Sub
-->
</SCRIPT>
<%
response.end
end if
set rs=Server.CreateObject("Adodb.RecordSet")
strSql="select * from [user_zj] "
rs.Open strSql,conn,3,3
if rs.eof then
out("找不到該訂單!")
else
rs.addnew
rs("username")=request("username")
rs("password")=request("password")
rs("zj_name")=request("zj_name")
rs("zj_man")=request("zj_man")
rs("faren")=request("faren")
rs("email")=request("email")
rs("tel")=request("tel")
rs("address")=request("address")
rs("http")=request("http")
rs("bz")=bz
rs("fax")=request("fax")
rs("date")=now()
rs("pass")="否"
rs.update
out("提交成功!我們的工作人員會在24小時內聯系您")
end if
rs.close
set rs=nothing
%>
<!--#include file=../system/include/foot.asp-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -