<%

userAcc=request.Form("userAccount")

userPsw=request.Form("userPsw")

userName=request.Form("userName")

userSex=request.Form("userSex")

Dim StrServer,StrUid,StrSaPwd,StrDbName

StrServer=".\SQLEXPRESS" '數(shù)據(jù)庫服務(wù)器名,如果數(shù)據(jù)庫放在了根目錄里,數(shù)據(jù)庫服務(wù)器名就是(local)

StrUid="sa" '您的登錄賬號,采用SQL身份驗證時輸入的賬號

StrSaPwd="12345" '您的登錄密碼,采用SQL身份驗證時輸入的密碼

StrDbName="MyDatabase" '您的數(shù)據(jù)庫名稱

Dim Conn '數(shù)據(jù)庫連接

Dim StrDSN '數(shù)據(jù)庫連接字符串

Dim Rs '命令字符串

StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName

'建立和數(shù)據(jù)庫master的連接

set Conn = Server.CreateObject("ADODB.Connection")

set Rs=Server.CreateObject("ADODB.RecordSet")

Conn.Open StrDSN

'********************************************************************

sub recordAdd()

if userName="" or userPsw="" then

    response.Write "The User Name or Password cannot be empty!!":exit Sub

end if

dim strSql1

strSql1="select UserName from test"

rs.open strSql1,Conn,1,1

do while not rs.EOF

for i=0 to rs.Fields.Count-1

if userName=rs.Fields(i).Value then

   response.Write "The user existed,record Add Failed":exit Sub

end if

next

rs.MoveNext

loop

rs.Close

dim strSql3

strSql3="INSERT INTO test(userAccount,userPsw,userName,userSex) VALUES('"&userAcc&"','"&userPsw&"','"&userName&"','"&userSex&"')"

rs.open strSql3,Conn,1,3

response.Write "Record successfully!"

Sub readdb()

dim strSql2

strSql2="select * from test"

rs.open strSql2,Conn,1,1

if rs.EOF then response.write "no record at all":exit sub

response.write "<table border=1 align='center'>"

response.write "<tr>"

for i=0 to rs.Fields.Count-1

response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>"

next

response.write "</tr>"

while not rs.EOF

response.write "<tr>"

for i=0 to rs.Fields.Count-1

response.write "<td>"&rs.Fields(i).Value&"</td>"

next

response.write "</tr>"

rs.MoveNext

wend

response.write "</table>"

rs.Close

end Sub

'釋放數(shù)據(jù)庫連接對象

set rs=nothing

set conn=nothing

%>