急需ASP程序的前端代码，请各位大虾帮忙
页面为简单的用户名，密码的形式，后端为ACCESS，功能就是输入用户名和密码，
在ACCESS中查找。谢谢拉。
问题点数：100、回复次数：4Top
1 楼tigerwen01（小虎）回复于 2006-02-27 15:25:29 得分 80
给你一个用户登陆示例：
<%
IF Request.Form("sub")="登陆" THEN
Dim oConn,strSQL
'''''开始连接数据库'''''''
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open Application("ConnectDataSourceString")
'''''验证用户名和密码'''''''
Dim strAdmain,adPassWord
strAdmain=Trim(Request.Form("marsterid")) '从表单获取用户名
adPassWord=Trim(Request.Form("marsterpwd")) '从表单获取密码
Set adRs=Server.CreateObject("ADODB.RecordSet")
strSQL="select * from yourtable where userID='"&strAdmain&"' and userPWD='"&adPassWord&"'"
adRs.open strSQL,oConn,1,1
Do While Not adRs.eof
if UCase(strAdmain)=UCase(Trim(adRs("userID"))) and UCase(adPassWord)=UCase(Trim(adRs("userPWD"))) then
'判断成功转到要登陆的页面
response.redirect "yourpage.asp"
end if
adRs.MoveNext
Loop
response.write "<center><font color=#FF0000><b>错误：帐号或密码不正确！</b></font></center>"
oConn.close:Set oConn=nothing
END IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>管理员登陆</title>
</head>
<body>
<center>
<form name=marsterform method=post action="ht_login.asp">
<table border="0" width="34%" style="border: 1 solid #FF00FF" height="96">
<tr>
<td width="100%" height="26" colspan="2" bgcolor="#FF9900">
<p align="center">管理员登陆窗口 </p>
</td>
</tr>
<tr>
<td width="46%" height="18" bgcolor="#E4E4E4">管理员ID </td>
<td width="54%" height="18" bgcolor="#E4E4E4">
<input maxlength=20 name=marsterid size=12 style="FONT-SIZE: 9pt " > </td>
</tr>
<tr>
<td width="46%" height="18" bgcolor="#E4E4E4">密 码 </td>
<td width="54%" height="18" bgcolor="#E4E4E4"><input maxlength=20 name=marsterpwd size=12 style="FONT-SIZE: 9pt" type=password > </td>
</tr>
<tr>
<td width="100%" height="18" colspan="2" bgcolor="#E4E4E4">
<p align="center"><input type=submit name=sub value=登陆> </p>
</td>
</tr>
</table>
</form>
</center>
</body>
</html>
-----------
这只是一个简单里，楼主可以根据功能来扩展。Top
2 楼loki2k（loki）回复于 2006-02-27 15:29:21 得分 0
非常感谢楼上的，能不能再请问一下怎么把从数据库里面读出来的字段显示在页面上？Top
3 楼love007（风中的风）回复于 2006-02-27 15:43:19 得分 20
<%=%>或response.writeTop
4 楼loki2k（loki）回复于 2006-02-27 15:45:57 得分 0
谢谢各位Top
