<%Reponse.Buffer=true%>
<%if Request("name")=""then%>
<%addr=Request("REMOTE_ADDR")%>
<form method="post" name=form1 action="chatadd1.asp">
<input type="hidden" name="IP" value="<%addr%>"><p>
请输入用户名:<input type="text" name="name" size="15"><p>
密码:<input type="password" name="pass" size="15"><p>
性别:<select name="sex" size="1">
<option value="先生">先生</option>
<option value="女士">女士</option>
</select><p>
<input type="submit" value="登陆" name="B1">
<input type="reset" value="重置" name="B2">
</form>
<%=Request("a")%>
<%else%>
<%
B1=Request("B1")
if Bi="发送"Then
if Request("name")="" or Request("pass")="" Then
a="名字和密码不能为空<br>"
Response.Redirect "chatadd1.asp?a="&a&" "
end if
set conn=Server.CreateObject("ADODB.Connection")
str="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chat;Data Source=MMLI"
conn.open str
sql="Select * From 用户表 where name='"&Request("name")&"'"
set rs=conn.execute(sql)
if rs.Bof or rs.Eof Then
sz=""&Request("IP")&","&Request("name")&","&Request("sex")&","&Request("pass")&""
str1="insert inyo 用户表 values('&sz&')"
con.execute(str1)
else
if Request("pass")<>rs("pass") Then
a="用户名已占用,或者你输入的密码错误!<br>"
Response.Redirect "chatadd1.asp?a=" &a& ""
end if
end if
time=now
set conn=Server.CreateObject("ADODB.Connection")
str="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chat;Data Source=MMLI"
conn.open str
sql="Select * From 在线用户表 Where name='"& Request("name")"'"
set rs=conn.execute(sql)
if rs.Bof or rs.Eof Then
sz=""&Request("name")&","&Request("sex")","&time&""
str1="Insert into 在线用户表 values('&sz&')"
conn.execute(str1)
name=Request("name")
sex=Request("sex")
gm="管理员宣布"
sz="<front color=#FF0000>""热烈欢迎"&name&sex&"的光临""</font>
str2="insert into 聊天表 values('"&ming&"','"&sz&"')
conn.execute(str2)
end if
end if
%>
<%addr=Request("REMOTE_ADDR")%>
<form method="post" name="form2" action="chatadd1.asp">
<input type="hidden" name="IP" value="<%=addr%>"<p>
<input type="hidden" name="name" vale="<%=Request("name")"%>"><p>
<input type="text" name="word" size="70">
<input type="submit" value="发言" name="B3">
<input type="reset" value="清空" name="B4">
<%
set conn=Server.CreateObject("ADODB.Connection")
str="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chat;Data Source=MMLI"
conn.open str
sql="Select * From 在线用户表"
set rs=conn.execute(sql)
%>
对象:<select name="D2" size="1">
<option value="大家">大家</option>
<%
Do While not rs.Eof
if rs("name")=Request("D2") then
s="selected"
else
s=""
end if
%>
<option <%=s%> value="<%=rs("name")%>"><%=rs("name")%></option>
rs.moveNext
loop
%>
<input type="submit" value="离开聊天室" name="B5">
<a href="admin.asp">管理员入口</a>
</form>
<%
B3=Request("B3")
if B3="发言" Then
set conn=Server.CreateObject("ADODB.Connection")
str="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chat;Data Source=MMLI"
conn.open str
%>
<%
sz=""&Request("IP")&","&Request("name")&","&Request("D2")&","&Request("word")&""
str1="insert into 聊天表 values('"&sz&"')"
conn.execute(str1)
con.close
end if
B5=Request("b5")
if B5="离开聊天室" Then
set conn=Server.CreateObject("ADODB.Connection")
str="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chat;Data Source=MMLI"
conn.open str
sql3="Delete From 在线用户表 Where name='"&Request("name")"'
conn.execute(str3)
name1=Request("name")
sex1=Request("sex")
gm1="管理员宣布"
sz1="<font size=5 color=#FF0000>"&name1&sex1&"有事先走了,欢迎再来"
str2="inser into 聊天表 values('"&ming1&",'"&sz1&"')"
conn.execute(str2)
conn.close
Response.Redirect "chat.asp"
end if
end if
%>
在客户端用浏览器打开时,可以见到了平常聊天室一样的用户登陆界面。输入用户名及密码,按登陆时,应该是我们所输入的资料便会暗中存入用户数据库中。可是提示错误:
Microsoft OLE DB Provider for SQL Server (0x80040E4D)
用户 'MMLI\IUSR_MMLI' 登录失败。
/chatadd1.asp, 第 72 行
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
%%%%%%%%%请问代码错在那里了?帮忙指出!!!3Q!