模板
教程
环境
性能
功能
管理
一个简单的聊天试的源代码！（二）
发表于：2007-06-30来源：作者：点击数：
标签：
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= quot;SELECT name,pas
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 Aclearcase/" target="_blank" >ccess 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>
