% ' 文件名:register1.asp ' 功能:用户注册第一步 %> <% '定义变量 Dim strSQL if request.QueryString("link")<>"" then strAction="register1.asp?step=submit&link=" & request.QueryString("link") else strAction="register1.asp?step=submit" end if strtype="select * from industrytype order by industrytypeid" set rstype= Conn.Execute(strtype) If Request.QueryString("step")="submit" then strSQL="Select username from user where username='" &Request.Form("username")&"'" set rsSQL= Conn.Execute(strSQL) If NOT rsSQL.EOF Then if Request.QueryString("link")="" then strLink="register1.asp?step=again" else strLink="register1.asp?step=again&link=" & request.QueryString("link") end if Response.Redirect strLink else strmax="select Max(userid) as themax from user" set rsmax=Conn.Execute(strmax) if isnull(rsmax("themax")) then max=1 else max=rsmax("themax")+1 session("username")=request.Form("username") session("password")=request.Form("password") if Request.QueryString("link")="" then strLink="register2.asp?userid="&max else strLink="register2.asp?userid="& max & "&link=" & request.QueryString("link") end if Response.Redirect strLink End if End If %>
![]() |
||||||||||||||
|
|
||||||||||||||
|
<%If Request.QueryString("step")="again" then %>
该用户名已经被注册,请用其它用户名注册! <% end if %>
|
欢迎您加入科迅电子大家庭 您知道吗? 您加入科迅大家庭,能享受到如下服务: 1.将自己所在的公司加注到企业名录,就象到“114”查询台登了记,开辟了一个向外界宣传企业的新窗口。依托科迅主页强大的数据库功能,您的信息能被不同国家、不同地区的数以万计的用户检索到。 2.随时发布企业的供求和合作信息,让您无须投入即可轻松把握互联网时代的无限商机,坐等定单到来。 3.在科迅投放Banner广告,向科迅下广告订单。在人气旺盛的科迅主页做广告,是网站营销的一个好方法。 4.参与科迅论坛,就企业上网等专题发表您的高见。 5.在科迅聊天室与不能见面的商业伙伴或者同窗好友聊天,不失为一种享受。 |
||||
|
建议使用IE5.0浏览器、分辨率800*600以上观看
科迅电子电器有限公司 版权所有 Copyright (C) 2002 Kesun All rights reserved |