Microsoft VBScript 编译器错误 '800a0411'
访问MemberGetPass.asp页面的时候报错：Microsoft VBScript 编译器错误 '800a0411'
名称重定义
\qq\qqshow.asp, line 2
qqshow.asp代码如下：
<%
Dim connQQstr,connQQ,rssetupQQ,qqonline,adm_qq,adm_qq_name,whereqq,kefuskin,qqskin,qqmsg_on,qqmsg_off,QQ_NAME,QQ,MyQQ,N,sitename
connQQstr = "Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&SERVER.MAPPATH("/QQ/QQ.mdb")
Set connQQ=server.CreateObject("adodb.connection")
connQQ.Open connQQstr
%>
<%
'此文件不需要作任何修改
Set rssetupQQ=connQQ.execute("select * from QQsetup")
qqonline=rssetupQQ("qqonline")
adm_qq= rssetupQQ("adm_qq")
adm_qq_name= rssetupQQ("adm_qq_name")
whereqq=rssetupQQ("whereqq")
kefuskin=rssetupQQ("kefuskin")
qqskin=rssetupQQ("qqskin")
qqmsg_on=rssetupQQ("qqmsg_on")
qqmsg_off=rssetupQQ("qqmsg_off")
msn= rssetupQQ("msn")
msn_name= rssetupQQ("msn_name")
set rssetupQQ=Nothing
%>
<!-- 左隐藏菜单开始 -->
<%if adm_qq<>"" and qqonline=1 then%>
<div id="topbar">
<table cellspacing="1" cellpadding="2" border="0">
<tr>
<td>
<style type="text/css">
#topbar{
position:absolute;
padding: 2px;
width: 100px;
visibility: hidden;
z-index: 100;
top:600px;
font-size: 12px;
}
BODY {
MARGIN: 0px
}
</style>
<table cellspacing="0" cellpadding="0" width="118" align="center" border="0">
<tr>
<td>
<img height="160" alt="" src="/images/servicepic_01.jpg" border="0" name="servicepic_01"></td>
</tr>
<tr>
<td>
<table cellspacing="0" cellpadding="0" width="118" align="left" border="0">
<%
adm_qq=replace(adm_qq,"，",",")
if isnull(adm_qq_name) or adm_qq_name="" then adm_qq_name=adm_qq
adm_qq_name=replace(adm_qq_name,"，",",")
QQ_NAME=split(adm_qq_name,",")
QQ=split(adm_qq,",")
for N=0 to UBound(QQ)
MyQQ=MyQQ+QQ(N)+":"
next
%>
<%
for N=0 to UBound(QQ)
%>
<tr>
<td background="images/servicepic_02.jpg">
<img height="25" alt="" src="images/servicepic_02.jpg" width="14" border="0" name="servicepic_02"></td>
<td align="middle" width="89" bgcolor="#f8f6f7" height="25">
<a class='c'target=blank href='tencent://message/?uin=<%=QQ(n)%>&Site=&Menu=no'><img alt='<p align=left><%=qqmsg_off%>'src=images/qq/QQon<%=qqskin%>.gif border=0 align=middle></a>
<a class='c'target=blank href='tencent://message/?uin=<%=QQ(n)%>&Site=&Menu=no'alt='<p align=left><%=qqmsg_off%>'><%=QQ_name(n)%></a></td>
<td background="images/servicepic_04.jpg">
<img height="25" alt="" src="images/servicepic_04.jpg" width="15" border="0" name="servicepic_04"></td>
</tr>
<%next%>
</table>
</td>
</tr>
<tr>
<td>
<img height="17" alt="" src="images/servicepic_05.jpg" width="118" border="0" name="servicepic_05"></td>
</tr>
<tr>
<td>
<table cellspacing="0" cellpadding="0" width="118" align="left" border="0">
<tr>
<td background="images/servicepic_06.jpg">
<img height="24" alt="" src="images/servicepic_06.jpg" width="14" border="0" name="servicepic_06"></td>
<td align="middle" width="89" bgcolor="#f8f6f7" height="24">
<a href="msnim:chat?contact=<%=msn%>&Site=<%=msn_name%>" target="_blank">
<img alt="点击这里给我发消息" src="images/msn.gif" border="0">MSN交谈</a></td>
<td background="images/servicepic_08.jpg">
<img height="24" alt="" src="images/servicepic_08.jpg" width="15" border="0" name="servicepic_08"></td>
</tr>
<tr>
<td background="images/servicepic_06.jpg"> </td>
<td align="middle" bgcolor="#f8f6f7" height="35">
<table cellspacing="1" cellpadding="2" width="88%" align="center" bgcolor="#ffa800" border="0">
<tr>
<td align="middle" bgcolor="#ffffff">
<a href="MessageList.asp" target="_blank">
<span style="font-size: 9pt">站点留言簿</span></a></td>
</tr>
</table>
</td>
<td background="images/servicepic_08.jpg"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<img height="22" alt="" src="images/servicepic_09.gif" width="118" border="0" name="servicepic_09"></td>
</tr>
</table>
</td>
</tr>
</table>
</DIV>
<%
if whereqq=1 then
%>
<script type="text/javascript">
var persistclose=0
var startX = 2
var startY = 100
var verticalpos="fromtop"
var online= new Array();
function iecompattest(){
return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}
function get_cookie(Name) {
var search = Name + "="
var returnvalue = "";
if (document.cookie.length > 0) {
offset = document.cookie.indexOf(search)
if (offset != -1) {
offset += search.length
end = document.cookie.indexOf(";", offset);
if (end == -1) end = document.cookie.length;
returnvalue=unescape(document.cookie.substring(offset, end))
}
}
return returnvalue;
}
function closebar(){
if (persistclose)
document.cookie="remainclosed=1"
document.getElementById("topbar").style.visibility="hidden"
}
function staticbar(){
barheight=document.getElementById("topbar").offsetHeight
var ns = (navigator.appName.indexOf("Netscape") != -1) || window.opera;
var d = document;
function ml(id){
var el=d.getElementById(id);
if (!persistclose || persistclose && get_cookie("remainclosed")=="")
el.style.visibility="visible"
if(d.layers)el.style=el;
el.sP=function(x,y){this.style.left=x+"px";this.style.top=y+"px";};
el.x = startX;
if (verticalpos=="fromtop")
el.y = startY;
else{
el.y = ns ? pageYOffset + innerHeight : iecompattest().scrollTop + iecompattest().clientHeight;
el.y -= startY;
}
return el;
}
window.stayTopLeft=function(){
if (verticalpos=="fromtop"){
var pY = ns ? pageYOffset : iecompattest().scrollTop;
ftlObj.y += (pY + startY - ftlObj.y)/8;
}
else{
var pY = ns ? pageYOffset + innerHeight - barheight: iecompattest().scrollTop + iecompattest().clientHeight - barheight;
ftlObj.y += (pY - startY - ftlObj.y)/8;
}
ftlObj.sP(ftlObj.x, ftlObj.y);
setTimeout("stayTopLeft()", 10);
}
ftlObj = ml("topbar");
stayTopLeft();
}
if (window.addEventListener)
window.addEventListener("load", staticbar, false)
else if (window.attachEvent)
window.attachEvent("onload", staticbar)
else if (document.getElementById)
window.onload=staticbar
</script>
<%else%>
<script type="text/javascript">
var persistclose=0
var startX =screen.width-165
var startY = 100
var verticalpos="fromtop"
var online= new Array();
function iecompattest(){
return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}
function get_cookie(Name) {
var search = Name + "="
var returnvalue = "";
if (document.cookie.length > 0) {
offset = document.cookie.indexOf(search)
if (offset != -1) {
offset += search.length
end = document.cookie.indexOf(";", offset);
if (end == -1) end = document.cookie.length;
returnvalue=unescape(document.cookie.substring(offset, end))
}
}
return returnvalue;
}
function closebar(){
if (persistclose)
document.cookie="remainclosed=1"
document.getElementById("topbar").style.visibility="hidden"
}
function staticbar(){
barheight=document.getElementById("topbar").offsetHeight
var ns = (navigator.appName.indexOf("Netscape") != -1) || window.opera;
var d = document;
function ml(id){
var el=d.getElementById(id);
if (!persistclose || persistclose && get_cookie("remainclosed")=="")
el.style.visibility="visible"
if(d.layers)el.style=el;
el.sP=function(x,y){this.style.left=x+"px";this.style.top=y+"px";};
el.x = startX;
if (verticalpos=="fromtop")
el.y = startY;
else{
el.y = ns ? pageYOffset + innerHeight : iecompattest().scrollTop + iecompattest().clientHeight;
el.y -= startY;
}
return el;
}
window.stayTopLeft=function(){
if (verticalpos=="fromtop"){
var pY = ns ? pageYOffset : iecompattest().scrollTop;
ftlObj.y += (pY + startY - ftlObj.y)/8;
}
else{
var pY = ns ? pageYOffset + innerHeight - barheight: iecompattest().scrollTop + iecompattest().clientHeight - barheight;
ftlObj.y += (pY - startY - ftlObj.y)/8;
}
ftlObj.sP(ftlObj.x, ftlObj.y);
setTimeout("stayTopLeft()", 10);
}
ftlObj = ml("topbar");
stayTopLeft();
}
if (window.addEventListener)
window.addEventListener("load", staticbar, false)
else if (window.attachEvent)
window.attachEvent("onload", staticbar)
else if (document.getElementById)
window.onload=staticbar
</script>
<%
end if
end If
Set connQQ=Nothing
%>
那位大虾帮忙一下，谢谢了！
--------------------编程问答-------------------- 处理页面和当前文件中的变量定义重复 --------------------编程问答-------------------- 怎么改呀，小弟刚学习，我把在文件qqshow.asp
Dim connQQstr,connQQ,rssetupQQ,qqonline,adm_qq,adm_qq_name,whereqq,kefuskin,qqskin,qqmsg_on,qqmsg_off,QQ_NAME,QQ,MyQQ,N,sitename
都改了还是没有用的
补充：.NET技术 , C#
