📄 comreg.asp
字号:
<!--#include file="../dbconn.asp"-->
<%
sql="select username from company where username='" & Request("user_name") & "'"
set Rs=conn.Execute(sql)
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../css/cdol.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<title>注册结果</title>
</head>
<body bgcolor="#E6E5B8">
现在位置：<a href="index.asp">首页</a>—<a href="postcom.htm">会员注册</a>--注册结果
<p> </p>
<p> </p>
<p align="center">
<%If not Rs.Eof Then
Response.Write "<center>您的用户名已经有人使用,请使用其他名称注册!<p>"
Response.Write "<center><a href='postcom.htm'> 请重新登陆好吗？ </a>"
else
%>
<%
login=trim(Request.Form("user_name"))
passwd=trim(Request.Form("user_pass_1"))
name=trim(Request.Form("company_name"))
owner=trim(Request.Form("company_owner"))
cclass=trim(Request.Form("company_class"))
address=trim(Request.Form("company_address"))
zipcode=trim(Request.Form("zipcode"))
email=trim(Request.Form("company_email"))
tel=trim(Request.Form("tel"))
fax=trim(Request.Form("fax"))
web=trim(Request.Form("web_site"))
info=trim(Request.Form("company_info"))
sz = "'" & login & "', '"&passwd & "', '"& name & "','"& owner & "','"& cclass & "','"& address & "', '"& zipcode & "','"& email & "','"& tel & "','"& fax & "','"& web & "' ,'"& info & "'"
sql1 = "insert into company (username,pwd,name,owner,class,address,zipcode,email,tel,fax,web,info) values (" & sz & ")"
conn.Execute(sql1)
conn.Close
set conn=nothing
Response.Write "<center>您已经注册成功!<p>"
Response.Write "<center><a href='viewcom.asp'> 查看结果 </a>"
end if%>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -