[求助]他们说我的网站是调用其他的数据库，不能显示，帮我看看好吗？
我把Top.ini发出来，大家帮我看看 是不是？
<!--#include File="Setup.inc"-->
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Driver & SourceType & SourceDB
Set RScpls = Server.CreateObject("ADODB.RecordSet")
cplsSQL="Select * From cp_list.dbf Where cpls_lang='E' Order by cpls_seq"
RScpls.Open cplsSQL ,conn ,1 ,1
i=0
listTableMenuCP=""
If NOT RScpls.EOF Then
RScpls.MoveFirst
Do While NOT RScpls.EOF
cpls_title=Trim(RScpls("cpls_title"))
cpls_link=Trim(RScpls("cpls_link"))
listTableMenuCP=listTableMenuCP & "<tr><td bgcolor='#FFFFFF' nowrap><a href='"&cpls_link&"'>"&cpls_title&"</a></td></tr>"
RScpls.MoveNext
Loop
End If
RScpls.Close : Set RScpls=Nothing : conn.Close : Set conn=Nothing
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Driver & SourceType & SourceDB
Set RScpls = Server.CreateObject("ADODB.RecordSet")
cplsSQL="Select * From prd_class.dbf"
RScpls.Open cplsSQL ,conn ,1 ,1
i=0
listTableMenuPD=""
If NOT RScpls.EOF Then
RScpls.MoveFirst
Do While NOT RScpls.EOF
pc_no=Trim(RScpls("pc_no"))
pc_name=Trim(RScpls("pc_name"))
pc_photo=Trim(RScpls("pc_photo"))
listTableMenuPD=listTableMenuPD & "<tr><td bgcolor='#FFFFFF'><img src='"&pcfPhotoRoot&pc_photo&"' width='25' border='0'></td><td bgcolor='#FFFFFF' nowrap><a href='products.asp?prdClassNo="&pc_no&"'>"&pc_name&"</a></td></tr>"
RScpls.MoveNext
Loop
End If
RScpls.Close : Set RScpls=Nothing : conn.Close : Set conn=Nothing
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Driver & SourceType & SourceDB
Set RScpls = Server.CreateObject("ADODB.RecordSet")
cplsSQL="Select * From supply.dbf"
RScpls.Open cplsSQL ,conn ,1 ,1
i=0
listTableMenuREF=""
If NOT RScpls.EOF Then
RScpls.MoveFirst
Do While NOT RScpls.EOF
sp_no=Trim(RScpls("sp_no"))
sp_name=Trim(RScpls("sp_name"))
sp_sname=Trim(RScpls("sp_sname"))
listTableMenuREF=listTableMenuREF & "<tr><td bgcolor='#FFFFFF' nowrap><a href='crossref.asp?sp_no="&sp_no&"'>"&sp_sname&"</a></td></tr>"
RScpls.MoveNext
Loop
End If
RScpls.Close : Set RScpls=Nothing : conn.Close : Set conn=Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta name="description" content="manufacturer of toggle switch, rocker switches, slide switch, push botton switches, electrical switch, dip switch, tact switches, SMD switch, CAS switch, UL switch, miniature rocker switch, power rocker switches.">
<meta name="keywords" content="Salecom Electronics- toggle switch, rocker switches, slide switch, push botton switches, electrical switch, dip switch, tact switches, SMD switch, CAS switch, UL switch, miniature rocker switch, power rocker switches. asian taiwan chinese china oem odm exporter importer manufacturer supplier.">
<meta http-equiv="Content-type" content="text/html; charset=gb2312">
<title>Taiwan, toggle switch, rocker switch, slide switch, push botton switch
manufacturer, supplier, exporter.</title><link href="css/ways.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>
</head>
<body>
<!-------- Header -------->
<div id="header">
<div id="language" style="z-index:1;">
<ul>
<li title="You're in English site">English</li>
<% If Session("Page")<>"products" Then %>
<% If Session("Page")="crossref" Then %>
<li><a href="<%=Session("Page")%>_tc.asp?sp_no=sp001"><img src="images/lan_tc.gif" alt=" Simplified Chinese character 简体中文" width="47" height="11" border="0" /></a></li>
<% Else %>
<li><a href="<%=Session("Page")%>_tc.asp"><img src="images/lan_tc.gif" alt=" Simplified Chinese character 简体中文" width="47" height="11" border="0" /></a></li>
<% End If %>
<% Else %>
<li><a href="<%=Session("Page")%>.asp?prdClassNo=001&Top=Chinese"><img src="images/lan_tc.gif" alt=" Simplified Chinese character 简体中文" width="47" height="11" border="0" /></a></li>
<% End If %>
</ul>
</div>
<div id="logotop" style="z-index:1;">
<a href="home.asp"><img src="images/logotop.gif" alt="Home" width="49" height="43" border="0" /></a>
<a href="home.asp"><img src="images/logotype.gif" alt="Salecom Electronics Co, Ltd." width="361" height="43" border="0" /></a>
</div>
</div>
<div id="content">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="navbar">
<tr>
<td width="504" align="left">
<div id="nav">
<div id="menu_company" style="position:absolute; Top:34px; z-index:100; visibility: hidden;" onMouseOver=MM_showHideLayers('menu_company','','show') onMouseOut=MM_showHideLayers('menu_company','','hide')>
<table width="1%" border="0" cellpadding="0" cellspacing="1" bgcolor="#0066FF">
<tr>
<td bgcolor="#ffffff">
<table width="100%" cellpadding="3" cellspacing="0">
<tr><td bgcolor="#cccccc" width="5">  </td>
<td>
<table width="100%" cellpadding="5" cellspacing="5">
<%=listTableMenuCP%>
<!--
<tr><td width="5" bgcolor="#cccccc"></td><td bgcolor="#FFFFFF" nowrap><a href="#">Company
问题点数：100、回复次数：9Top
1 楼baiyunfei（虚度残生）回复于 2005-06-02 11:51:24 得分 30
看一下 Setup.inc 中 SourceType 和 SourceDB 的值是什么就知道了Top
2 楼iamgsyy（兰州）回复于 2005-06-02 11:58:59 得分 30
同意楼上
看conn.Open Driver & SourceType & SourceDBTop
3 楼ASDFE123（晨思冷星=Tomorrow)）回复于 2005-06-02 12:23:30 得分 0
是这样的？setup.inc
<%
stime=time
Session("BaseRoot")=Server.MapPath("../Salecom/Base")
Response.Buffer=True
Session.TimeOut=1440
Server.ScriptTimeOut=30
Driver = "Driver={Microsoft Visual Foxpro Driver};"
SourceType = "SourceType=DBF;"
SourceDB = "SourceDB=" & Session("BaseRoot")
npsPhotoRoot="photo/"
cpftPhotoRoot="images/factory/"
caiconsPhotoRoot="images/icons/"
caPhotoRoot="images/prd/"
prdlistPhotoRoot="images/prd/toggle/"
prepdfPhotoRoot="images/prdsheets/"
pdfPhotoRoot="pdf/"
pcfPhotoRoot="images/class/"
cfPhotoRoot="certificate/photo/"
cfPrepdfPhotoRoot="certificate/prepdf/"
NewsAreaPhotoRoot="images/news_area/"
%>Top
4 楼ASDFE123（晨思冷星=Tomorrow)）回复于 2005-06-02 12:41:18 得分 0
我自己在2000Server上用IIS架设是可以的，但我对ASP不是很懂，在外网测试也是可以正常显示网页的，现在在外面租用了空间，我把整个网站传上去，出现了：
您无权查看该网页
您可能没有权限用您提供的凭据查看此目录或网页。
--------------------------------------------------------------------------------
如果您确信能够查看该目录或网页，请尝试使用 www.eli-switch.com 主页上所列的电子邮件地址或电话与网站联系。
可以单击搜索，寻找 Internet 上的信息。
HTTP 错误 403 - 禁止访问
Internet Explorer
他们说是网站的数据库是调用其他地方的，他们的服务器相关设置后就不能正常显示。
我现在要确定的是是否是调用外面的数据库，还是根本没有！有什么简单的方法？Top
5 楼wgf001（我心永恒）回复于 2005-06-02 13:40:52 得分 20
最笨的办法
拔掉你自己机子上的网线
然后看能不能在你的机子上正常浏览
如果能
就没有调用外部数据库Top
6 楼baiyunfei（虚度残生）回复于 2005-06-02 13:50:56 得分 20
你使用的是vfp数据库，需要先问清楚你的空间提供商，他们支不支持。另外不能访问的问题，你先试下敲完整的页面名看是否可以访问Top
7 楼jekexys2004（浪傲）回复于 2005-06-02 14:03:40 得分 0
我也正碰到这问题，郁闷中
我的是纯html网页，上传后尽打不开？？？
找不到网页
您要查看的网页可能已被删除、名称已被更改，或者暂时不可用。
--------------------------------------------------------------------------------
请尝试以下操作:
如果您已经在地址栏中输入该网页的地址，请确认其拼写正确。
打开 61.145.10.52 主页，然后查找指向您感兴趣信息的链接。
单击后退按钮，尝试其他链接。
单击搜索，寻找 Internet 上的信息。
HTTP 400 - 错误请求
Internet Explorer
Top
8 楼ASDFE123（晨思冷星=Tomorrow)）回复于 2005-06-02 15:20:03 得分 0
wgf001(我心永恒)
我是把网卡禁止了，是不能正常显示，怀疑是调用了外面数据库。
数据库应该是DBF的吧。？？
Top
9 楼ASDFE123（晨思冷星=Tomorrow)）回复于 2005-06-02 18:31:13 得分 0
我知道问题在什么地方了。是他们的服务器空间不支持DBF格式的数据库，我在XP上架设就和他们的出错一样，但在服务器版本的2000上就没有问题，现在的问题是要使IIS支持DBF，不知道还要安装什么控件？请各位大侠给我点建议。Top
