regsave.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 39 行

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<%
opendataconn
dim userid,pwd,repwd
userid=changechr(request("reg_user"))
pwd=changechr(request("reg_pwd"))
reg_type=changechr(trim(request("reg_type")))
set rs=conn.execute("select * from company where userid='"&userid&"'" )
if not rs.eof then %>
<script language="JavaScript">
alert("对不起！此用户已经存在了，请更改其它用户名 !　 ")
history.back()
</script>
<%response.end
else
sqlstr="insert into company (userid,pwd,dnt) values ('"&userid&"','"&pwd&"','"&now()&"')"
conn.execute(sqlstr)
if not err then
session("loginid")=userid
session("reg_type")=reg_type
session("reg_pwd")=pwd
   if reg_type="0" then
%>
<script language="JavaScript">
alert("祝贺您已经申请成功！请输入您的注册资料!　　")
window.location="editdata.asp"
</script>
<%  else%>
<script language="JavaScript">
alert("祝贺您已经申请成功！请输入您的注册资料!　　")
window.location="editdata_co.asp"
</script>
<%  end if%>
<%else
response.write "对不起！数据库有错误请您稍后再试！"
end if 
end if
closedataconn%>