用ASP設計註冊，登錄

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file=db_conn.asp-->

<%

dim a1,a2,a3,a4,a5,rs          '聲明變量，將獲取到的表單變量內容賦值與此，方便調用

 

a1=request.Form("username")

a2=request.Form("userpwd1")

a3=request.Form("sex")

a4=request.Form("email")

a5=cdate(request.Form("year")&"-"&request.Form("month")&"-"&request.Form("day"))  'cdate函數:用於將字符串轉化爲日期型數據

 

''''''''''''''''分割線'''''''''''''''''''''''

''這部分代碼的功能爲檢查用戶名重複

set rs=conn.execute("select count(*) from users where username='"&a1&"'")

 

if rs(0)=1 then

       response.Write("<script>alert('用戶名已被佔用，請返回修改！');history.go(-1)</script>")

       conn.close

       response.End()

end if

''''''''''''''''分割線'''''''''''''''''''''''

 

 

conn.execute("insert into users values('"&a1&"','"&a2&"','"&a3&"','"&a4&"','"&a5&"')") 

'在當前數據庫鏈接中,執行SQL語句,當前爲向數據表中插入用戶記錄,即爲註冊

 

'response.Write("<center>恭喜你註冊成功，下面是您的我的資料，請妥善保存！五秒中自動跳轉到註冊頁面</center>")  '註冊成功,反饋提示信息

'response.Write("<meta http-equiv='refresh' content='5;url=http://localhost/website/2.27/mly_zhuce.html' />")

'定時跳轉到相應頁面

 

response.Write("<script>alert('註冊成功');location.href('mly_zhuce.html')</script>")

'輸出java腳本,彈出註冊成功的提示信息,並跳轉到相應位置

conn.close