查看: 63|回复: 3

类型不匹配

[复制链接]

清茶淡水

电梯直达

1^#

发表于 2009-12-27 02:16:05 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'CloseConn'
/yenzx/admin/Admin.asp, 第 22 行

代码:
<%
dim ComeUrl,cUrl,AdminName
'ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
'if ComeUrl="" then
' response.write " 对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。"
' response.end
'else
' cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
' if mid(ComeUrl,len(cUrl)+1,1)=":" then
' cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
' end if
' cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
' if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
' response.write " 对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。"
' response.end
' end if
'end if
AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
call CloseConn()
response.redirect "login.asp"
response.End()
end if
sql="select UserName from Admin where UserName='" & session("AdminName") & "' and Password='" & session("AdminPassword") & "'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close
response.Redirect("login.asp")
response.End()
end if
%>

收藏0