Question

处理url时服务器发生错误，请和系统管理员联系???

这段代码哪里有问题?请高手指导...

Dim rid : rid = Trim(Request.QueryString("id"))
Dim oId,oTitle,oWwwkey,oKey1,oUrl,oReadme,oCustomerpo,oCustomerpourl,oFactorypo,oFactorypourl,oProduction,oProductionurl,oFactorydoc,oFdocurl,oCustomerdoc,oCdocurl : oId = "" : oTitle = "" : oWwwkey = "" : oKey1 = "" : oUrl = "" : oReadme = "" : oCustomerpo = "" : oCustomerpourl = "" : oFactorypo = "" : oFactorypourl = "" : oProduction = "" : oProductionurl = "" : oFactorydoc = "" : oFdocurl = "" : oCustomerdoc = "" : oCdocurl = ""
If rid <> "" Then
Call openDb()

Dim Rs : Set Rs = Conn.Execute("Select * From [" & crrTb & "] Where id = " & Cint(rid))
If Not Rs.Eof Then
oId = Rs("id") : oTitle = Rs("title") : oWwwkey = Rs("wwwkey") : oKey1 = Rs("key1") : oUrl = Rs("url") : oReadme = Rs("readme") : oCustomerpo = Rs("customerpo") : oCustomerpourl = Rs("customerpourl") : oFactorypo = Rs("factorypo") : oFactorypourl = Rs("factorypourl") : oProduction = Rs("produciton") : oProductionurl = Rs("productionurl") : oFactorydoc = Rs("factorydoc") : oFdocurl = Rs("fdocurl") : oCustomerdoc = Rs("customerdoc") : oCdocurl = Rs("cdocurl")
Rs.Close()
End If
Set Rs = Nothing
End If

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏5（财富值+成长值）

Answer 1

下面讲讲这两种错误的原因：
1、处理URL时服务器出错，请和系统管理员联系！
请看一下截图只要在服务器上的IIS设置里选上“向客户端发送文本错误信息”这一项，那么页面上出现的任何错误都会显示“处理URL时服务器出错，请和系统管理员联系！”这一句话，所以这时你需要做的就是联系服务器管理员，将这一选项去掉，或者是将网站下载到本地进行调试。光靠这一条信息向人求助是得不到任何帮助的，因为大家看不到详细的错误信息。
2、HTTP
500错误
也看一下截图
关于这错误的由来是这样的，IE高级设置里如果将“显示友好HTTP错误信息”这一选项选上的话，任何的错误也会显示HTTP
500错误。所以请将你的IE高级设置里的显示友好HTTP错误信息前面的勾去掉。这时出错的详细信息将会显示出来，也有助于你判断错误。PostId=531480

Answer 2

这个错误是服务器设置的，真实的错误提示被隐藏了。你需要下载在本地测试才能知道真实的错误

详细咨询可HI我