📄 register_confirm1.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：service@fyasp.com                                        │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%><STYLE type=text/css>
BODY {
	FONT-SIZE: 12px; COLOR: #000; FONT-FAMILY: 宋体
}
TD {
	FONT-SIZE: 12px; COLOR: #000; FONT-FAMILY: 宋体
}
A.top {
	FONT-SIZE: 12px; COLOR: #ffffff
}
A:link {
	COLOR: #039
}
A:visited {
	COLOR: #909
}
A:hover {
	COLOR: #f60
}
.RD {
	FONT: bold 14px 宋体; COLOR: #900000
}
.YL {
	FONT: bold 12px 宋体; COLOR: #ff0
}
.GR {
	FONT-SIZE: 14px; COLOR: #999
}
.WH {
	FONT: bold 14px 宋体; COLOR: #fff
}
.WH:link {
	FONT: bold 14px 宋体; COLOR: #fff
}
.WH:visited {
	FONT: bold 14px 宋体; COLOR: #fff
}
.WH:hover {
	FONT: bold 14px 宋体; COLOR: #f60
}
.WHS {
	FONT: 12px 宋体; COLOR: #fff
}
.WHS:link {
	FONT: 12px 宋体; COLOR: #fff
}
.WHS:visited {
	FONT: 12px 宋体; COLOR: #fff
}
.WHS:hover {
	FONT: 12px 宋体; COLOR: #f60
}
.YLM {
	FONT: bold 14px 宋体; COLOR: #ff0
}
.BUY {
	FONT: bold 14px 宋体; COLOR: #fc9603
}
.SELL {
	FONT: bold 14px 宋体; COLOR: #00cc00
}
.COOP {
	FONT: bold 14px 宋体; COLOR: #851b91
}
.AGENT {
	FONT: bold 14px 宋体; COLOR: #cc00ff
}
.ERROR {
	FONT: bold 14px 宋体; COLOR: #f00
}
.NO {
	FONT-SIZE: 12px; COLOR: #900000
}
.STAR {
	FONT-SIZE: 12px; COLOR: #f00
}
.X {
	FONT-WEIGHT: bold; FONT-SIZE: 24px
}
.L {
	FONT-WEIGHT: bold; FONT-SIZE: 16px
}
.M {
	FONT: bold 14px 宋体
}
.C {
	FONT-SIZE: 14px
}
.S {
	FONT-SIZE: 12px
}
.LM {
	LINE-HEIGHT: 130%
}
.LL {
	LINE-HEIGHT: 150%
}
SELECT {
	FONT-SIZE: 12px
}
INPUT {
	FONT-SIZE: 12px
}
TEXTAREA {
	FONT-SIZE: 12px
}
UNKNOWN {
	FONT-SIZE: 14px
}
.f1 {
	FONT-SIZE: 10px
}
.f2 {
	FONT-SIZE: 12px
}
.f3 {
	FONT-SIZE: 16px
}
.f4 {
	FONT-SIZE: 18px
}
.f5 {
	FONT-SIZE: 24px
}
.f6 {
	FONT-SIZE: 31px
}
.lh13 {
	LINE-HEIGHT: 130%
}
.lh15 {
	LINE-HEIGHT: 150%
}
.lh17 {
	LINE-HEIGHT: 170%
}
.style2 {
	FONT: bold 14px 宋体;
	COLOR: #FF5900;
	font-size: 24px;
}
.style3 {font-size: 20px}
</STYLE>
<!--#include file="head.asp"-->
<%
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"
%><!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/safe.asp"-->
<%
if Not ChkPost then response.redirect ("chklogin.asp?login=4")

user=Replace_Text(request.form("user"))
pass=Replace_Text(request.form("pass"))
question=Replace_Text(request.form("question"))
answer=Replace_Text(request.form("answer"))
name1=Replace_Text(request.form("name"))
ch=Replace_Text(request.form("ch"))
email=Replace_Text(request.form("email"))
phonecountry=Replace_Text(request.form("phonecountry"))
phonearea=Replace_Text(request.form("phonearea"))
phonenumber=Replace_Text(request.form("phonenumber"))
phone=phonecountry&"&nbsp;"&phonearea&"&nbsp;"&phonenumber
country=Replace_Text(request.form("country1"))
sf=Replace_Text(request.form("province"))
city=Replace_Text(request.form("city"))
address=Replace_Text(request.form("address"))
faxcountry=Replace_Text(request.form("faxcountry"))
faxarea=Replace_Text(request.form("faxarea"))
faxnumber=Replace_Text(request.form("faxnumber"))
fax=faxcountry&"&nbsp;"&faxarea&"&nbsp;"&faxnumber
mobile=Replace_Text(request.form("mobile"))
post=Replace_Text(request.form("post"))
qymc=Replace_Text(request.form("qymc"))
zw=Replace_Text(request.form("zw"))
categoryid=Replace_Text(request.form("categoryid"))
categoryidarray=split(categoryid,"，")
sortid=categoryidarray(0)
p_z_Z_productionService=Replace_Text(request.form("p_z_Z_productionService"))
isournotify=Replace_Text(request.form("isournotify"))
if isournotify="" then
isournotify=0
else
isournotify=1
end if
isothernotify=Replace_Text(request.form("isothernotify"))
if isothernotify="" then
isothernotify=0
else
isothernotify=1
end if
idate=date()
%>
<%
'if conn.execute("select id from [corporation] where [user]='"&user&"' or qymc='"&qymc&"'").eof then
'sql="insert into corporation(user,pass,question,answer,name,ch,email,phone,country,sf,city,address,fax,mobile,post,qymc,zw,sortid,typeid,buykeywords,salekeywords,isournotify,isothernotify,idate) values('"&user&"','"&pass&"','"&question&"','"&answer&"','"&name1&"','"&ch&"','"&email&"','"&phone&"','"&country&"','"&sf&"','"&city&"','"&address&"','"&fax&"','"&mobile&"','"&post&"','"&qymc&"','"&zw&"',"&sortid&","&typeid&",'"&buykeywords&"','"&salekeywords&"','"&isournotify&"','"&isothernotify&"','"&idate&"')"
'response.Write sql
'conn.execute(sql)
'else
'response.write"<SCRIPT language=JavaScript>alert('您填写的会员登陆名或公司名称已存在，请返回重新填写！');"
'response.write"javascript:history.go(-1)"
'response.end
'end if

set rs=server.CreateObject("adodb.recordset")
sql="select * from corporation where [user]='"&user&"' or qymc='"&qymc&"' or email='"&email&"'"
rs.open sql,conn,1,3
if not (rs.Bof and rs.eof) then
response.write"<SCRIPT language=JavaScript>alert('您填写的会员登陆名或公司名称或E-mail已存在，请返回重新填写！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
rs.addnew
rs("user")=user
rs("pass")=pass
rs("question")=question
rs("answer")=answer
rs("name")=name1
rs("ch")=ch
rs("email")=email
rs("phone")=phone
rs("country")=country
rs("sf")=sf
rs("city")=city
rs("address")=address
rs("fax")=fax
rs("mobile")=mobile
rs("post")=post
rs("qymc")=qymc
rs("zw")=zw
rs("sortid")=sortid
rs("zycp")=p_z_Z_productionService
rs("isournotify")=isournotify
rs("isothernotify")=isothernotify
rs("idate")=idate
'rs("hybz")=true  '申请时即认为其已要求申请诚信通会员服务
'rs("uflag")=1   '申请时即开通普通会员，但申请者的公司仍需审核
'rs("cflag")=1   '申请时即通过审核申请者的公司
'rs("flag")=1    '申请时即开通诚信通会员服务
'rs("begindate")=idate   '既然已是诚信通会员，申请者的诚信通会员服务期限从注册之日起
'rs("enddate")=idate+365   '到一年后结束 
'rs("trust_score")=10    '既然已是诚信通会员，则申请者诚信通指数为10
rs.update
session("id")=rs("id")
session("user")=rs("user")
'session("uflag")=rs("uflag")   '申请即开通普通会员
'session("cflag")=rs("cflag")   '按目前需要而加
'session("flag")=rs("flag")     '按目前需要而加
Response.Cookies("MyalibabaName") = rs("user")
Response.Cookies("MyalibabaName").Expires=date()+365
pharry=split(rs("phone"),"&nbsp;")
end if
%>
<%
Dim l_message
' 声明变量
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -