to wolf004(色胚)
<%
authUser=trim(request.servervariables("AUTH_USER"))
IF authUser="" Then
Response.Status="401 Not Authorized"
Response.AddHeader "WWW-Authenticate","Basic Realm="" SUPEREXPERT"""
Response.End
End if
%>
<%@ Language=VBScript %>
<%
if Request.ServerVariables("http_method")="POST" then
if Request.Form("B1")="进入"then
set conn=Server.CreateObject("ADODB.Connection")
conn.Open session("addr")
strsql="select DLMC,DLKL,QXKZ from ZJKU where DLMC='"&Request.Form("DLMC")&"'and DLKL='"&Request.Form("DLKL")&"'and CZYF=1"
set mrs=conn.Execute(strsql)
if not mrs.bof and not mrs.eof then
session("qx")=mrs(2)
if len(mrs(2))>2 then
Response.Redirect"index.htm"
else
Response.Redirect"index1.htm"
end if
else
Response.write("您的输入有误!请重新输入!")
end if
set mrs=nothing
conn.close
set conn=nothing
end if
end if
%>
<%
authUser=trim(request.servervariables("AUTH_USER"))
IF authUser="" Then
Response.Status="401 Not Authorized"
Response.AddHeader "WWW-Authenticate","Basic Realm="" SUPEREXPERT"""
Response.End
End if
%>
这样就行了!试试