这段代码 应该放在哪个地方（高手进）

Question

网页DW 放在body里 还是其他地方

<!-- #include file="web.config.asp" -->
<!-- #include file="include/ClsMain.asp" -->
<!-- #include file="include/md5.asp" -->
<%

Dim myCls,uUserName,uPwd,uChkCode,tmpRs
Set myCls = new ClsMain

if Request.QueryString("Mark")<>"UserLogOut" then
if IsArray(Session("KS_CRM")) then
Session("KS_CRM") = null
Response.Redirect("Index.asp")
end if
end if

If Request.QueryString("Mark")="UserLogOut" then
Session("KS_CRM")=""
End if

If Request.QueryString("Mark")="UserLogin" then
uChkCode=myCls.delUrlSqlin(Request.Form("uChkCode"))
if uChkCode<>Session("GetCode") then myCls.Error("登陆失败：\n\n验证码错误，请返回重新输入验证码")
uUserName=myCls.delUrlSqlin(Request.Form("uUserName"))
uPwd=myCls.delUrlSqlin(Request.Form("uPwd"))
if uUserName="" or uPwd="" then myCls.Error("登陆失败：\n\n用户名和密码都不能为空！")
set tmpRs = mycls.CreateRs("select ID,UserRealName,LastLoginTime,LastLoginIP,GroupID from KS_User where UserLoginName='"&uUserName&"' and UserLoginPWD='"&md5(uPwd)&"'",1,3)
if err<>0 then myCls.Error("登陆失败：\n\n程序检测到在登陆过程中至少有一个异常发生\n登陆被取消")

if tmpRs.eof and tmpRs.bof then
myCls.Error("登陆失败：\n\n用户名或密码错误！")
else
Dim TmpArr(4)
TmpArr(0) = tmpRs(0)
TmpArr(1) = uUserName
TmpArr(2) = tmpRs(1)
TmpArr(3) = md5(uPwd)
TmpArr(4) = tmpRs(4)
Session("KS_CRM") = TmpArr

tmpRs(2) = Now()
tmpRs(3) = mycls.GetIP()
tmpRs.update
tmpRs.Close
set tmpRs=Nothing
If Not(mycls.ChkPower(1,0)) Then
mycls.Error("登陆失败：\n\n您所在组不具备登陆系统权限！")
Else
response.Redirect("Index.asp")
End If
end if

End if

%>

Answer 1

不用放在任何标签里，放在你所有代码的最开始就可以