在win7下测试通过，win2008服务器却通不过，附代码，请高人指导

[嘉友云阁]

编写网站的机器是win7，用得dwcs5，用同事的机器访问win7网站都正常，发布到win2008服务器上，一个判断登录的网页却总报如下错误：

此错误(HTTP 500 内部服务器错误)意味着您正在访问的网站出现了服务器问题，此问题阻止了该网页的显示。

有关 HTTP 错误的详细信息，请参阅帮助。


不知道是我代码的问题还是服务器的权限设置问题，我贴下代码，帮我看看在win2008上IIS设置里应该放开哪些权限。


<!--#include file="inc/conn.asp" -->
<!--#include file="md5.asp" -->


<%
dim usecode
dim usepass
dim yzm

usecode=request.Form("ucode")
usepass=mistake(request.Form("upass"))
yzm=request.Form("yzm")



Set rs=conn.Execute("SELECT * FROM emplfile where empl_code='"&usecode&"' and empl_pw='"&usepass&"'")
response.Write(usepass)
If rs("empl_code")="" or rs("empl_code")=null or rs.eof or rs.bof or yzm<>session("yzm") Then

rs.close
conn.close
session("log_flag")=1
set rs = nothing
Set conn = Nothing
session("emplcode")=null
Response.redirect("login.asp")
Response.End
end if
session("emplcode")=usecode
session("emplpw") =usepass
session("emplname")=rs("empl_name")
session("noteclass")=rs("note_class")
session("emplevel")=rs("empl_level")
response.Write("登录成功")
response.Redirect("/kindeditor/asp/demofb.asp")

rs.close
set rs=nothing





%>

[qqm05]

代码有问题，但是你这个500错误应该是你的数据库连接有问题吧，你移动了网站，数据库连接检查下 <!--#include file="inc/conn.asp" --> <!--#include file="md5.asp" --> <% dim usecode dim usepass dim yzm usecode=request.Form("ucode") usepass=mistake(request.Form("upass")) yzm=request.Form("yzm") Set rs=conn.Execute("SELECT * FROM emplfile where empl_code='"&usecode&"' and empl_pw='"&usepass&"'") response.Write(usepass) If rs("empl_code")="" or rs("empl_code")=null or rs.eof or rs.bof or yzm<>session("yzm") Then rs.close conn.close session("log_flag")=1 set rs = nothing Set conn = Nothing session("emplcode")=null Response.redirect("login.asp") Response.End end if session("emplcode")=usecode session("emplpw") =usepass session("emplname")=rs("empl_name") session("noteclass")=rs("note_class") session("emplevel")=rs("empl_level") response.Write("登录成功") response.Redirect("/kindeditor/asp/demofb.asp") rs.close set rs=nothing 红色部分永远不会执行

[嘉友云阁]

<!--#include file="inc/conn.asp" -->
<!--#include file="md5.asp" -->


<%
dim usecode
dim usepass
dim yzm

usecode=request.Form("ucode")
usepass=mistake(request.Form("upass"))
yzm=request.Form("yzm")



 Set rs=conn.Execute("SELECT * FROM emplfile where empl_code='"&usecode&"' and empl_pw='"&usepass&"'")
response.Write(usepass)
If rs("empl_code")="" or rs("empl_code")=null  or rs.eof or rs.bof or yzm<>session("yzm") Then
     
 rs.close
 conn.close
 session("log_flag")=1
 set rs = nothing
 Set conn = Nothing
  session("emplcode")=null
 Response.redirect("login.asp")
 Response.End
 end if
 session("emplcode")=usecode
 session("emplpw")  =usepass
 session("emplname")=rs("empl_name")
 session("noteclass")=rs("note_class")
 session("emplevel")=rs("empl_level")
 response.Write("登录成功")
 response.Redirect("/kindeditor/asp/demofb.asp")
 
rs.close
set rs=nothing





%>