请老师给指点 - 编程论坛

#2

zrm882006-11-30 21:02

怎么没老师帮助我啊,,偶再一次谢谢这里的各位老师了,劳驾您给回复一段程序吧

#3

bygg2006-11-30 22:04

[CODE]

<%

dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
conn.Open "driver={SQL Server};server=zrm;uid=sa;pwd=ser;database=ZRM-Server"

%>

UserName=trim(request.Form("username"))
PassWord=trim(request.Form("password"))
sql="select * from users where username='"&UserName&"' and password='"&PassWord&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1

if rs.eof then
response.Write"<script language=javascript> alert('服务器拒绝了你的登陆信息，请重新输入！');history.back(-1);</script>"
response.End()
else
session("UserName")=rs("UserName")
response.Redirect"index.asp"
end if
。。
。。
。。。
。。。
。。。

[/CODE]

#4

zrm882006-11-30 23:31

谢谢bygg老师的指点,再一次谢谢您了!!!!!我刚刚学习这个,为了这个问题,可愁死我了,我们这里没人懂,也没处问,唉,难那,,,,谢谢老师了