一个简单的聊天试的源代码！（二）
日期：2013-06-03 浏览次数：21001 次
recieve.asp
<html>
<% KNAME=REQUEST.FORM("USNAME")
KPASSWORD=REQUEST.FORM("USPASSWORD")
DbPath = SERVER.MapPath("chat.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
SET RS=CONN.EXeCUTE("SELECT name,password FROM chat") ' WHERE NAME="&KNAME)
IF RS.EOF THEN
CONN.EXECUTE("INSERT INTO chat (NAME,PASSWORD) VALUES("&KNAME&","&KPASSWORD&")")
ELSE IF RS.FIELDS("PASSWORD")<>KPASSWORD THEN
response.write"wrong password"
END IF
END IF
%>
<FRAMESET ROWS="70%,30%" >
<FRAME SRC="forum.asp" NAME="main"
MARGINWIDTH="1" MARGINHEIGHT="1" Noresize >
<FRAME SRC="frft.asp?kname=
" NAME="footnotes" MARGINWIDTH="1"
MARGINHEIGHT="1" Noresize >
</FRAMESET >
</html>
<html>
<% KNAME=REQUEST.FORM("USNAME")
KPASSWORD=REQUEST.FORM("USPASSWORD")
DbPath = SERVER.MapPath("chat.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
SET RS=CONN.EXeCUTE("SELECT name,password FROM chat") ' WHERE NAME="&KNAME)
IF RS.EOF THEN
CONN.EXECUTE("INSERT INTO chat (NAME,PASSWORD) VALUES("&KNAME&","&KPASSWORD&")")
ELSE IF RS.FIELDS("PASSWORD")<>KPASSWORD THEN
response.write"wrong password"
END IF
END IF
%>
<FRAMESET ROWS="70%,30%" >
<FRAME SRC="forum.asp" NAME="main"
MARGINWIDTH="1" MARGINHEIGHT="1" Noresize >
<FRAME SRC="frft.asp?kname=
" NAME="footnotes" MARGINWIDTH="1"
MARGINHEIGHT="1" Noresize >
</FRAMESET >
</html>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
