教你1小时里搞定ASP（精典）

zkkpkk

原帖由 光海风 于 2006-5-24 15:18 发表
都是命令,我看不懂~
帮你顶上来吧~

你喜欢把这些叫做命令啊;P

zkkpkk

原帖由 114535265 于 2006-5-17 14:53 发表
要学好ASP是不是把VB学好了~！~就解决了很大的一个问题呢？？？？]

VBS、JS、JAVAS......

zkkpkk

<%@ Language="VBScript" %>
<% Response.Buffer=true %>
<%
dim conn,file
  set conn=server.createobject("adodb.connection")
  file=server.mappath("as1.mdb")
  conn.open "driver={microsoft access driver (*.mdb)};DBQ=" & file


dim uid,pwd,affirm_pwd,name,sex,email
  uid=trim(request.form("uid"))
  pwd=trim(request.form("pwd"))
  affirm_pwd=trim(request.form("affirm_pwd"))
  name=trim(request.form("name"))
  sex=trim(request.form("sex"))
  email=trim(request.form("email"))

if uid="" or pwd="" or affirm_pwd="" then
  response.write("请填写完整<a href=login.asp>返回</a>")
elseif pwd<>affirm_pwd then
  response.write("两次密码不相同，请<a href=login.asp>返回</a>重填！")
  response.end
else

  sql1="select * from user where uid='"&uid&"' and pwd='"&pwd&"'"
  set rs=conn.execute(sql1)
  
  if rs.eof then
    sql2="insert into user(uid,pwd,name,sex,email) values('"&uid&"','"&pwd&"','"&name&"','"&sex&"','"&email&"')"
    conn.execute(sql2)
   
   
    response.write("注册成功，感谢您对我们的支持！")
    response.write("<meta http-equiv='refresh' content='5,url=login.asp'>")
   
    response.write("如果没有自动跳转请点击<a href=login.asp>这里</a>")
  else
    response.write("该用户名已存在，请<a href=register.asp>返回</a>！")
  
  
  end if
  rs.close
  set rs=nothing
end if
conn.close
set conn=nothing
%>

zkkpkk

<!--#include virtual="/inc/config.asp"-->
<!--#include virtual="/inc/Ubb.asp"-->
<%
'获取上页传输的注册信息
'定义变量
dim UBI_mail,UBI_name,UBI_psw,UBI_QU,UBI_AS,UBI_CD'定义必填信息的变量
dim UBI_sex,UBI_GJ,UBI_sheng,UBI_City,UBI_Add'定义地址信息变量
dim UBI_Tel_1,UBI_Tel_2,UBI_Tel_3,UBI_Tel_4'电话变量
dim UBI_Fax_1,UBI_Fax_2,UBI_Fax_3,UBI_Fax_4'传真变量
dim UBI_Moble,UBI_IM_No,UBI_IM_Type,UBI_Url,UBI_RegErr'其他联系信息变量
'验证是否外部提交（以是否同意注册协议为标准）
if trim(request("reg_protocol"))="ok" then
'检验用户是否已经登陆，如果登陆过将不允许注册
        if session("Userlogin")<>"" then
                Response.Write "<script>alert('您已经是拥有红殿通行证了！');window.location='index.asp';</script>"
        else
'※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
'检验数据输入的合法性
UBI_RegErr=False
UBI_mail=trim(request("UBI_mail"))
UBI_name=ReplaceTag(trim(request("UBI_name")))
UBI_psw=ReplaceTag(trim(request("UBI_psw")))
UBI_QU=ReplaceTag(trim(request("UBI_QU")))
UBI_AS=ReplaceTag(trim(request("UBI_AS")))
UBI_CD=ReplaceTag(trim(request("UBI_CD")))
'根据上面的验证来确定下面的信息显示及执行的程序
if (mail_CHK(UBI_mail)=True) or (len(UBI_name)<3) or (len(UBI_psw)<6) or (len(UBI_psw)>16) or (UBI_psw<>trim(request("UBI_psw1"))) or (len(UBI_QU)<6) or (len(UBI_QU)>16) or (len(UBI_AS)<6) or (len(UBI_AS)>16) or (Isnumeric(UBI_CD)=False) or (len(UBI_CD)<>18) then UBI_RegErr=True
                if UBI_RegErr=True then
                        Response.Write "<script>alert('想非法入侵？点确定以便我们的木马自动执行，点取消放弃!');window.location='index.asp';</script>"
                else
'检验其他数据的正确性
if ReplaceTag(trim(request("UBI_sex")))<>"1" or ReplaceTag(trim(request("UBI_sex")))<>"2" then
        UBI_sex="0"
else
        UBI_sex=ReplaceTag(trim(request("UBI_sex")))
end if
UBI_GJ=ReplaceTag(trim(request("UBI_GJ")))
UBI_sheng=ReplaceTag(trim(request("UBI_sheng")))
UBI_City=ReplaceTag(trim(request("UBI_City")))
UBI_Add=ReplaceTag(trim(request("UBI_Add")))
UBI_Tel_1=ReplaceTag(trim(request("UBI_Tel_1")))
UBI_Tel_2=ReplaceTag(trim(request("UBI_Tel_2")))
UBI_Tel_3=ReplaceTag(trim(request("UBI_Tel_3")))
UBI_Tel_4=ReplaceTag(trim(request("UBI_Tel_4")))
UBI_Fax_1=ReplaceTag(trim(request("UBI_Fax_1")))
UBI_Fax_2=ReplaceTag(trim(request("UBI_Fax_2")))
UBI_Fax_3=ReplaceTag(trim(request("UBI_Fax_3")))
UBI_Fax_4=ReplaceTag(trim(request("UBI_Fax_4")))
UBI_Moble=ReplaceTag(trim(request("UBI_Moble")))
UBI_IM_No=ReplaceTag(trim(request("UBI_IM_No")))
UBI_IM_Type=ReplaceTag(trim(request("UBI_IM_Type")))
UBI_url=ReplaceTag(trim(request("UBI_url")))
if UBI_Tel_1<>"" and Isnumeric(UBI_Tel_1)=False then ERR_Number= True
if UBI_Tel_2<>"" and Isnumeric(UBI_Tel_2)=False then ERR_Number= True
if UBI_Tel_3<>"" and Isnumeric(UBI_Tel_3)=False then ERR_Number= True
if UBI_Tel_4<>"" and Isnumeric(UBI_Tel_4)=False then ERR_Number= True
if UBI_Fax_1<>"" and Isnumeric(UBI_Fax_1)=False then ERR_Number= True
if UBI_Fax_2<>"" and Isnumeric(UBI_Fax_2)=False then ERR_Number= True
if UBI_Fax_3<>"" and Isnumeric(UBI_Fax_3)=False then ERR_Number= True
if UBI_Fax_4<>"" and Isnumeric(UBI_Fax_4)=False then ERR_Number= True
if UBI_Moble<>"" and Isnumeric(UBI_Moble)=False then ERR_Number= True
                        if ERR_Number then
                                Response.Write "<script>alert('电话、传真、手机号必须为数字！');window.location=history.go(-1);</script>"
                        else
'检验帐户或昵称是否已经存在
                                OpenDB()
                                set rs=server.createobject("adodb.recordset")
                                sql="select * from RP_User_BasicInfo where UBI_mail='"&UBI_mail&"'"
                                rs.open sql,conn,1,1
                        if not rs.eof then'邮件地址判断
                                Response.Write("<script>alert('错误：邮件地址已经存在！！');history.go(-1);</script>")
                                rs.close
                                set rs=nothing
                        else
                                set rs=server.createobject("adodb.recordset")
                                sql="select * from RP_User_BasicInfo where UBI_name='"&UBI_name&"'"
                                rs.open sql,conn,1,1
                        if not rs.eof then '昵称判断
                                Response.Write("<script>alert('错误：您输入的昵称已经存在！！');history.go(-1);</script>")
                                rs.close
                                set rs=nothing
                        else
                                set rs=server.createobject("adodb.recordset")
                                sql="select * from RP_User_BasicInfo where UBI_CD='"&UBI_CD&"'"
                                rs.open sql,conn,1,1
                        if not rs.eof then '身份证号判断
                                Response.Write("<script>alert('错误：您确认输入的是您的身份证号吗？！！');history.go(-1);</script>")
                                rs.close
                                set rs=nothing
                        else                                       
'将数据写进数据库
                                set rs=server.createobject("adodb.recordset")
                                sql="select * from RP_User_BasicInfo"
                                rs.open sql,conn,1,3
                                rs.addnew
'将必填信息写进数据库
                                rs("UBI_mail")=UBI_mail
                                rs("UBI_name")=UBI_name
                                rs("UBI_psw")=left(md5(md5("afdsa"&UBI_psw)&md5("afds"&UBI_psw&"fdsafdsaf")),16)
                                rs("UBI_QU")=UBI_QU
                                rs("UBI_AS")=left(md5(md5("xsdfsar234"&UBI_AS&"sdfgerwtfsar")&md5("xdfasdsKFJ234"&UBI_AS&"sdfERSSEFNBtr")),16)
                                rs("UBI_CD")=UBI_CD
'系统自动记录信息
                                rs("UBI_Reg_ip")=GetIP()
'选填信息记录
                                rs("UBI_sex")=UBI_sex
                                rs("UBI_GJ")=UBI_GJ
                                rs("UBI_sheng")=UBI_sheng
                                rs("UBI_City")=UBI_City
                                rs("UBI_Add")=UBI_Add
                                rs("UBI_Tel_1")=UBI_Tel_1
                                rs("UBI_Tel_2")=UBI_Tel_2
                                rs("UBI_Tel_3")=UBI_Tel_3
                                rs("UBI_Tel_4")=UBI_Tel_4
                                rs("UBI_Fax_1")=UBI_Fax_1
                                rs("UBI_Fax_2")=UBI_Fax_2
                                rs("UBI_Fax_3")=UBI_Fax_3
                                rs("UBI_Fax_4")=UBI_Fax_4
                                rs("UBI_Moble")=UBI_Moble
                                rs("UBI_IM_No")=UBI_IM_No
                                rs("UBI_IM_Type")=UBI_IM_Type
                                rs("UBI_url")=UBI_url
                                rs.update
                                rs.close
                                set rs=nothing       
                                CloseDB()
                                Response.Write "<script>alert('恭喜您注册成功，请使用您的电子邮件和密码登录！');window.location='index.asp';</script>"       
                        end if'身份证号判断
                        end if'昵称判断
                        end if'邮件地址判断
'验证判断结束                       
                        end if
'※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
                end if
        end if
else
        Response.Write "<script>alert('禁止外部提交信息！');window.location='index.asp';</script>"
end if

零度心情

好贴,经典~~

wei50922

不过说一个小时搞定ASP，未免太牛了吧。。。小弟啃了四个月的ASP，至今未达到外面认可的ASP的中级水准

Oo流星随风oO

:( 基础只看的懂一半后面的就不用说了……
似乎是VB的格式，但是有好多变量名都没见过的……

A_Fenzai

C++的基础上可以吗？？？？？？？？

48328595

朋友们要你请客，在世纪大饭店大吃一顿后花去了 366 思明论坛！

　　　下次努力哦！……

都差不多的，学好Ｃ或者Ｃ＋＋学其他相对简单了很多

lension

市政中心政府上门慰问，发给你 333 思明论坛的慰问金！

　　　下次努力哦！……

现在期考老师叫我们交个ASP作品
还真烦。。。。:(

ks453187387

:L :handshake :victory: :) :lol :(

啊杀

啊哦噢哦~~~~~~~~1小时`啊`:Q

ks453187387

你中了彩票二等奖，获得奖金 852 思明论坛！

　　　下次努力哦！……

好好参合着  好好学习吧

dv-Partner

:victory: Wo也来顶.不错.

ily

你在街头拐角捡到一条珍珠项链，交还了失主，失主送给你 455 思明论坛的酬金！热心值加 1 ！

　　　下次努力哦！……

可选的很多,耐看的太少