?? join.asp
字號(hào):
<%
UserID = Request("UserID")
Name = Request("Name")
UserID1=Request("userID1")
'判斷兩次輸入的密碼是否相同
if UserID<>UserID1 then
ShowMessage "密碼驗(yàn)證不通過!"
end if
'判斷密碼與姓名表單輸入是否為空,為空時(shí)顯示出錯(cuò)提示
if UserID=Empty or Name=Empty then
ShowMessage "您的密碼與姓名不能為空!"
end if
'檢查姓名是否已有他人占用
sub query2table(inputquery)
set conn=server.createobject("adodb.connection")
conn.open
"DSN=test;uid=test;pwd=''"
set rstemp=conntemp.execute(inputquery)
mysql="Insert into 會(huì)員管理(密碼,姓名) values('"&UserID&"','"&Name&"')"
Set rs=conn.execute("Select * from 會(huì)員管理 where 姓名='"&Name&"'")
If rs.EOF=false Then
ShowMessage "您用了別人的姓名,不能注冊(cè)!"
Else
conn.execute(mysql)
End If
'將注冊(cè)信息存入數(shù)據(jù)庫文件
%>
<html>
<body background="Tool231.JPG">
<CENTER>
<!--以表格形式顯示數(shù)據(jù)文件內(nèi)容-->
<BR><BR><BR>
<TABLE BORDER=1 width=150>
<TR BGCOLOR= #99CCFF>
<!--用"<TR>"元素定義表格的行-->
<TH>密 碼</TH>
<TH>姓 名</TH>
</TR>
<TR align=center>
<TD><%=UserID%></TD>
<TD><%=name%></TD>
</TR>
<!--用"</TR>"元素結(jié)束定義表格的行-->
<!--第三部分,顯示數(shù)據(jù)庫文件中表的內(nèi)容-->
</TABLE>
</CENTER>
<center>
<br><br><br><br>
<!--當(dāng)注冊(cè)成功后顯示的提示-->
<%="恭喜,會(huì)員注冊(cè)成功!您的注冊(cè)內(nèi)容如上所示。"%>
<br><br><br><br>
<p align="left"><INPUT Type=Button Value=" 返 回 " OnClick="history.back();">
<!--定義一個(gè)返回按鈕,返回上一頁-->
</center>
</body>
</html>
<!--定義一個(gè)錯(cuò)誤提示函數(shù)當(dāng)注冊(cè)輸入不正確時(shí)提示錯(cuò)誤并結(jié)束輸出-->
<%
Sub ShowMessage(msg)
%>
<CENTER>
<body background="Tool231.JPG">
<H2><%=msg%>
<p></p><p></p><p></p>
</CENTER>
<FORM>
<p align="left"><INPUT Type=Button Value="返回重新注冊(cè)" OnClick="history.back();"></p>
</FORM>
<%
Response.End
'結(jié)束輸出
End Sub
'結(jié)束子程序
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -