iis已经启动父路径了 ，怎么解决

代码怎么写的？

<!--#include file="../Include/conig.asp"-->
<!--#include file="../Include/md5.asp"-->
<!--#include file="../Include/Fun_SqlIn.Asp"-->
<%
dim LoginName,LoginPassword,AdminName,Password,AdminPurview,Working,UserName,rs,sql,mycode,Renzhen
LoginName=CheckStr(request.form("LoginName"))
LoginPassword=Md5(request.form("LoginPassword"))
mycode = CheckStr(request.form("code"))
Renzhen = CheckStr(request.form("Renzhen"))
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_S_manage where AdminName='"&LoginName&"'"
rs.open sql,conn,1,3
if rs.eof then
response.write "<script language=javascript> alert('管理员名称不正确，请重新输入。');location.replace('Admin_Login.asp');</script>"
response.end
else
AdminName=rs("AdminName")
Password=rs("Password")
AdminPurview=rs("AdminPurview")
Working=rs("Working")
UserName=rs("UserName")
end if
if LoginPassword<>Password then
response.write "<script language=javascript> alert('管理员密码不正确，请重新输入。');location.replace('Admin_Login.asp');</script>"
response.end
end if
if Renzhen<>trim(Certif) then
response.write "<script language=javascript> alert('您输入认证码错误，请返回重新登录！');location.replace('Admin_Login.asp');</script>"
response.end
end if
if mycode<>Session("getcode") then
response.write "<script language=javascript> alert('您输入验证码错误，请返回重新登录！');location.replace('Admin_Login.asp');</script>"
response.end
end if
if Working=0 then
response.write "<script language=javascript> alert('不能登录，此管理员帐号已被锁定。');location.replace('Admin_Login.asp');</script>"
response.end
end if
if LoginName=AdminName and LoginPassword=Password then
rs("LastLoginTime")=now()
rs("LastLoginIP")=Request.ServerVariables("Remote_Addr")
rs.update
rs.close
set rs=nothing
session("ZhiRui_Admin")=AdminName
session("ZhiRui_User")=UserName
session("AdminPurview")=AdminPurview
session("Renzhen")=Renzhen
response.cookies("ZhiRui")("ZhiRuiAdmin")=AdminName
response.cookies("ZhiRui")("ZhiRuiUser")=UserName
response.cookies("ZhiRui")("AdminPurview")=AdminPurview
session("ZhiRuiCheck")="ZhiRuiSystem"
Response.Cookies("ZhiRui").Expires=DateAdd("n",60,now())
Session.Timeout = 60
'==================================
dim LoginIP,LoginTime,LoginSoft
LoginIP=Request.ServerVariables("Remote_Addr")
LoginSoft=Request.ServerVariables("Http_USER_AGENT")
LoginTime=now()
'====================================
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_S_manageLog"
rs.open sql,conn,1,3
rs.addnew
rs("AdminName")=AdminName
rs("UserName")=UserName
rs("LoginIP")=LoginIP
rs("LoginSoft")=LoginSoft
rs("LoginTime")=LoginTime
rs.update
rs.close
set rs=nothing
'========================================
response.redirect "admin_index.asp"
response.end
end if
%>
</BODY>
</html>