<!--#include file="conn_2.asp"-->
<%
Dim name
Dim pwd
name = Trim(Request.Form("username1"))
pwd = Trim(Request.Form("password1"))
If name = "" Or pwd = "" Then
Response.Write "<Script>alert('请输入帐号或密码!');history.go(-1);</Script>"
Response.End
Else
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From administrator Where userrname='"&name&"'"
Rs.Open Sql,conn,3,3
If Rs.BOF Or Rs.EOF Then
Response.Write "<Script>alert('账号有误!');history.go(-1);</Script>"
Response.End
Else
End if
If name = Rs("name") And pwd = Rs("pwd") Then
Session("username1")=Rs("username")
session("key")=Rs("oskey")
Response.Redirect "mymanage.asp"
Else
Response.Write "<Script>alert('密码错误!');history.go(-1);</Script>"
Response.End
End If
End If
Rs.Close
Set Rs=nothing
Conn.Close
Set Conn=nothing
%>
大神们帮忙看看这段代码有什么问题吧,
它显示:至少一个参数没有被指定值。
类似的指定pwd那里出了问题,因为我写代码是pwd一直是黑色的,而name是红色的。
------解决方案--------------------
userrname
这个是不是写错了?