做asp网页的大虾请进。高分解决问题。在线等待。急急！！！！！！

chenjia928 2004-07-20 09:25:17

前段修改公司网站。后来上传之后出现了如下问题：：
无法显示网页
您要访问的网页有问题，无法显示。

--------------------------------------------------------------------------------

请尝试以下操作:

打开 www.suntop.com.cn 主页，然后查找指向您感兴趣信息的链接。
单击刷新按钮，或以后再试。

单击搜索，寻找 Internet 上的信息。
也可查看相关站点列表。

HTTP 500 - 内部服务器错误
Internet Explorer

前面有人回答过。但还是没有解决问题。这是网页连接数据库的代码。各位大虾看看有什么问题没有？？？？
<%@ LANGUAGE="VBSCRIPT" %>
<% 'option explicit %>
<% dim conn,sqlStr,rs,rowcount,cmd,recordcount

if request.form("Curpage") <> "" then
CurPage = CINT(request.form("Curpage"))
if (Curpage/10 - Curpage\10) > 0 then
Group = Curpage\10 + 1
else
Group = Curpage\10
end if
else

If Request.QueryString("CurPage") = "" then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
end if
end if

set conn=server.createobject("ADODB.Connection")
conn.open application("suntop")

brand = request.form("brand")
sort = request.form("sort")
typ = request.form("typ")

If brand = "" then
brand = Request.QueryString("brand")
end if
If sort = "" then
sort = Request.QueryString("sort")
end if
If typ = "" then
typ = Request.QueryString("typ")
end if

'response.write Curpage&brand&sort&typ

if(brand<>"0" and sort<>"0" and typ<>"0" and brand<>"" and sort<>"" and typ<>"") then
sqlStr="SELECT * FROM t_product where pro_brand='" & brand & "' and pro_sort='" & sort & "' and pro_type='" & typ & "' order by pro_brand desc,pro_name"
elseif (brand="0" and sort<>"0" and typ<>"0") then
sqlStr="SELECT * FROM t_product where pro_sort='" & sort & "' and pro_type='" & typ & "' order by pro_brand desc,pro_name"
elseif (sort="0" and brand<>"0" and typ<>"0") then
sqlStr="SELECT * FROM t_product where pro_brand='" & brand & "' and pro_type='" & typ & "' order by pro_brand desc,pro_name"
elseif (typ="0" and brand<>"0" and sort<>"0") then
sqlStr="SELECT * FROM t_product where pro_brand='" & brand & "' and pro_sort='" & sort & "' order by pro_brand desc,pro_name"
elseif (sort="0" and typ="0" and brand<>"0") then
sqlStr="SELECT * FROM t_product where pro_brand='" & brand & "' order by pro_brand desc,pro_name"
elseif (brand="0" and typ="0" and sort<>"0") then
sqlStr="SELECT * FROM t_product where pro_sort='" & sort & "' order by pro_brand desc,pro_name"
elseif (brand="0" and sort="0" and typ>"0") then
sqlStr="SELECT * FROM t_product where pro_type='" & typ & "' order by pro_brand desc,pro_name"
else
sqlStr="SELECT * FROM t_product order by pro_brand desc,pro_name"
end if

query = Request.form("query")
If query = "" then
query = Request.QueryString("query")
end if
if(query<>"") then
sqlStr="SELECT * FROM t_product where pro_name like '%" & query & "%' or pro_brand like '%" & query & "%' or pro_sort like '%" & query & "%' or pro_type like '%" & query & "%' order by pro_brand desc,pro_name"
end if

recom = Request.QueryString("recom")
If recom = "" then
recom = Request.form("recom")
end if
if(recom<>"") then
sqlStr="SELECT * FROM t_product where pro_recom='1' order by pro_brand desc,pro_name"
end if

set rs=conn.execute(sqlStr)
set cmd=server.createobject("ADODB.command")
set rs=server.createobject("ADODB.recordset")
cmd.commandtext=sqlstr

cmd.activeconnection=conn
rs.open cmd ,,1,1

rs.pagesize = 8
if CurPage> RS.Pagecount then
CurPage=RS.Pagecount
end if

if rs.recordcount <> "0" then
RS.AbsolutePage = CurPage
end if
%>
<html>
<head>
<title>深圳市振涛自动化系统有限公司</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

...全文