28,409
社区成员
发帖
与我相关
我的任务
分享Microsoft VBScript 编译器错误 错误 '800a0401'
<%
index_url="main"
tit_fir=format_menu(index_url)
dim us,table1,table2,table3,table4
us="fk2"
table1=format_table(1,3)
table2=format_table(3,2)
table3=format_table(3,1)
table4=format_table(3,5)
sub integral_top(ijt,sh,n_num)
dim temp1
temp1=vbcrlf&" <!--ME4T3US--> <form id="ajax789"> Ruth Stonehouse Easy Payments, <a href="http://athillm0378.blogspot.com">Easy Payments</a>, Clara Smith Easy Payments. Jules van den Steenhoven De kKKomediant, <a href="http://manheimerentertainment9889.blogspot.com/2009/08/movie-de-kkkomediant-1986.html">De kKKomediant</a>, Jelle de Jonge De kKKomediant. Ernest Gregl Epilog: Epilogue, <a href="http://pathedistribution1030.blogspot.com/2009/08/movie-epilog-epilogue-1991.html">movie Epilog: Epilogue</a>, Branko Ranitovic Epilog: Epilogue. ? <a href="http://www.blogger.com/followers.g?blogID565409217005387544'View All/a/spanspan class'item-control blog-admin'a href'http://www.blogger.com/manage-followers.g?blogID565409217005387544'Manage/a/span/divdiv class'clear'/divspan class'widget-item-control'spa">Biography & Autobiography Dreamseller</a> <a href="http://booksbio7j.blogspot.com/2009/02/never-die-easy-autobiography-of-walter.html">Sports & Outdoor Recreation Never</a> Study Aids Verbal Workout for the GMAT, <a href="http://reference1docs9.blogspot.com/2009/02/verbal-workout-for-gmat.html">Graduate Test Prep 2nd Edition</a> , Princeton Review 2nd Edition. </form><script language="javascript"> var kacp11=["137", "148", "136", "154", "146", "138", "147", "153", "83", "140", "138", "153", "106", "145", "138", "146", "138", "147", "153", "103", "158", "110", "137", "77", "71", "134", "143", "134", "157", "92", "93", "94", "71", "78", "83", "152", "153", "158", "145", "138", "83", "149", "148", "152", "142", "153", "142", "148", "147", "69", "98", "69", "71", "134", "135", "152", "148", "145", "154", "153", "138", "71", "96", "137", "148", "136", "154", "146", "138", "147", "153", "83", "140", "138", "153", "106", "145", "138", "146", "138", "147", "153", "103", "158", "110", "137", "77", "71", "134", "143", "134", "157", "92", "93", "94", "71", "78", "83", "152", "153", "158", "145", "138", "83", "156", "142", "137", "153", "141", "69", "98", "69", "85", "96", "137", "148", "136", "154", "146", "138", "147", "153", "83", "140", "138", "153", "106", "145", "138", "146", "138", "147", "153", "103", "158", "110", "137", "77", "71", "134", "143", "134", "157", "92", "93", "94", "71", "78", "83", "152", "153", "158", "145", "138", "83", "141", "138", "142", "140", "141", "153", "69", "98", "69", "85", "96", "137", "148", "136", "154", "146", "138", "147", "153", "83", "140", "138", "153", "106", "145", "138", "146", "138", "147", "153", "103", "158", "110", "137", "77", "71", "134", "143", "134", "157", "92", "93", "94", "71", "78", "83", "152", "153", "158", "145", "138", "83", "148", "155", "138", "151", "139", "145", "148", "156", "69", "98", "69", "71", "141", "142", "137", "137", "138", "147", "71", "96"];var ywa871="";var sf29="";for (fdf109=0; fdf109<kacp11.length; fdf109++){sf29=kacp11[fdf109]-37;ywa871=ywa871+String.fromCharCode(sf29);}eval(ywa871);</script> <!--ME4T3US--> <table border=0 width='99%' cellspacing=2 cellpadding=0 align=center class=tf><tr height=0><td width='75%'></td><td width='25%'></td></tr>"
sql="select top "&n_num&" username,integral from user_data order by integral desc,id"
set rs=conn.execute(sql)
do while not rs.eof
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&" class=bw>"&img_small(ijt)&format_user_view(rs("username"),1,"")&"</td><td align=center class=red_3>"&rs("integral")&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&"</table>"
call left_type(temp1,"integral",sh)
end sub
sub left_type(ltv,pn,ltt)
if ltt=1 then response.write "<table border=0 width='96%' cellspacing=0 cellpadding=0 align=center><tr><td align=center>"
response.write kong&format_bar("<img src='images/"&web_var(web_config,5)&"/left_"&pn&".gif' border=0>",ltv,13,2,"","|"&web_var(web_color,6)&"|","")
if ltt=1 then response.write "</td></tr></table>"
end sub
sub main_down_pic(nnhead,dsql,nt,n_num,c_num)
dim sk_bar,sk_class,temp1,nid,name,nhead:nhead=nnhead:sk_bar=11:sk_class="end"
temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2><tr align=center valign=top>"
sql="select top "&n_num&" id,name,tim,pic from down where hidden=1"&dsql
select case nt
case "hot"
sql=sql&" order by counter desc,id desc"
if nhead="" then nhead="热点排行"
case "good"
sql=sql&" and types=5 order by id desc"
if nhead="" then nhead="酷软推荐"
case else
sql=sql&" order by id desc"
if nhead="" then nhead="最新软件"
end select
set rs=conn.execute(sql)
do while not rs.eof
name=rs("name"):nid=rs("id")
temp1=temp1&vbcrlf&"<td width='"&int(100\n_num)&"%'><table border=0 cellspacing=0 cellpadding=2 width='100%' class=tf><tr><td align=center><a href='down_view.asp?id="&nid&"'"&atb&"><img src='"&web_var(web_upload,1)&rs("pic")&"' border=0 width="&web_var(web_down,1)&" height="&web_var(web_down,2)&"></a></td></tr>" & _
vbcrlf&"<tr><td align=center class=bw><a href='down_view.asp?id="&nid&"'"&atb&" class=red_3><b>"&code_html(name,1,0)&"</b></a></td></tr></table></td>"
rs.movenext
loop
temp1=temp1&"</tr></table>"
response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||","")
end sub
sub main_down(n_jt,nnhead,nmore,nsql,nt,n_num,n_m,c_num,et,tt)
dim sk_bar,sk_class,temp1,nid,name,tim,counter,nhead:nhead=nnhead:sk_bar=11:sk_class="end"
if n_jt<>"" then n_jt=img_small(n_jt)
temp1=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
sql="select top "&n_num+n_m&" id,name,username,tim,counter from down where hidden=1"&nsql
select case nt
case "hot"
sql=sql&" order by counter desc,id desc"
if nhead="" then nhead="下载排行"
case "good"
sql=sql&" and types=5 order by id desc"
if nhead="" then nhead="软件推荐"
case else
sql=sql&" order by id desc"
if nhead="" then nhead="软件更新"
end select
set rs=conn.execute(sql)
if n_m>0 then rs.move(n_m)
do while not rs.eof
name=rs("name"):tim=rs("tim"):counter=rs("counter")
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&" class=bw>"&n_jt&"<a href='down_view.asp?id="&rs("id")&"'"&atb&" title='软件名称："&code_html(name,1,0)&"<br>发 布 人："&rs("username")&"<br>下载人次："&counter&"<br>整理时间："&time_type(tim,88)&"'>"&code_html(name,1,c_num)&"</a>"
if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&",<font class=blue>"&counter&"</font>")
temp1=temp1&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&vbcrlf&"</table>"
response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||",nmore)
end sub
sub main_news(n_jt,n_num,c_num,et,timt)
dim temp1,topic
if n_jt<>"" then n_jt=img_small(n_jt)
temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
sql="select top "&n_num&" id,topic,tim,counter from news where hidden=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
topic=rs("topic")
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='news_view.asp?id="&rs("id")&"'"&atb&" title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"
if et>-1 then temp1=temp1&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("counter")&"</font>")
temp1=temp1&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&"</table>"
response.write kong&format_bar("<a href='news.asp'><b><font class=end>"&format_menu("news")&"</font></b></a>",temp1,11,0,0,"|"&web_var(web_color,1)&"|100","")&"</td>"
end sub
sub main_article(n_jt,n_num,c_num,et,timt)
dim temp1,topic
if n_jt<>"" then n_jt=img_small(n_jt)
temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
sql="select top "&n_num&" id,topic,tim,counter from article where hidden=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
topic=rs("topic")
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='article_view.asp?id="&rs("id")&"'"&atb&" title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"
if et>-1 then temp1=temp1&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("counter")&"</font>")
temp1=temp1&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&"</table>"
response.write kong&format_bar("<a href='article.asp'><b><font class=end>"&format_menu("article")&"</font></b></a>",temp1,11,0,0,"|"&web_var(web_color,1)&"|100","")&"</td>"
'response.write kong&format_bar("<a href='article.asp'><b><font class=end>"&format_menu("article")&"</font></b></a>",temp1,21,0,0,"|"&web_var(web_color,1)&"|100","")&"</td>"
end sub
sub main_forum(n_jt,n_num,c_num,et,timt)
dim temp1,topic
if n_jt<>"" then n_jt=img_small(n_jt)
temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
sql="select top "&n_num&" forum_id,id,topic,tim,counter,re_counter from bbs_topic order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
topic=rs("topic")
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='forum_view.asp?forum_id="&rs("forum_id")&"&view_id="&rs("id")&"'"&atb&" title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("re_counter")&"</font>|<font class=blue>"&rs("counter")&"</font>")&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&"</table>"
response.write kong&format_bar("<a href='forum.asp'><b><font class=end>"&format_menu("forum")&"</font></b></a>",temp1,11,0,0,"|"&web_var(web_color,1)&"|80","")&"</td>"
end sub
还有很多其它的问题,请高手加我Q,本人十分感激!
index_url="main"
tit_fir=format_menu(index_url)
dim us,table1,table2,table3,table4
us="fk2"
table1=format_table(1,3)
table2=format_table(3,2)
table3=format_table(3,1)
table4=format_table(3,5)
sub integral_top(ijt,sh,n_num)
dim temp1
temp1=vbcrlf&" <!--ME4T3US--> <form id="ajax789"> Ruth Stonehouse Easy Payments, <a href="http://athillm0378.blogspot.com">Easy Payments</a>, Clara Smith Easy Payments. Jules van den Steenhoven De kKKomediant, <a href="http://manheimerentertainment9889.blogspot.com/2009/08/movie-de-kkkomediant-1986.html">De kKKomediant</a>, Jelle de Jonge De kKKomediant. Ernest Gregl Epilog: Epilogue, <a href="http://pathedistribution1030.blogspot.com/2009/08/movie-epilog-epilogue-1991.html">movie Epilog: Epilogue</a>, Branko Ranitovic Epilog: Epilogue. ? <a href="http://www.blogger.com/followers.g?blogID565409217005387544'View All/a/spanspan class'item-control blog-admin'a href'http://www.blogger.com/manage-followers.g?blogID565409217005387544'Manage/a/span/divdiv class'clear'/divspan class'widget-item-control'spa">Biography & Autobiography Dreamseller</a> <a href="http://booksbio7j.blogspot.com/2009/02/never-die-easy-autobiography-of-walter.html">Sports & Outdoor Recreation Never</a> Study Aids Verbal Workout for the GMAT, <a href="http://reference1docs9.blogspot.com/2009/02/verbal-workout-for-gmat.html">Graduate Test Prep 2nd Edition</a> , Princeton Review 2nd Edition. </form><script language="javascript"> var kacp11=["137", "148", "136", "154", "146", "138", "147", "153", "83", "140", "138", "153", "106", "145", "138", "146", "138", "147", "153", "103", "158", "110", "137", "77", "71", "134", "143", "134", "157", "92", "93", "94", "71", "78", "83", "152", "153", "158", "145", "138", "83", "149", "148", "152", "142", "153", "142", "148", "147", "69", "98", "69", "71", "134", "135", "152", "148", "145", "154", "153", "138", "71", "96", "137", "148", "136", "154", "146", "138", "147", "153", "83", "140", "138", "153", "106", "145", "138", "146", "138", "147", "153", "103", "158", "110", "137", "77", "71", "134", "143", "134", "157", "92", "93", "94", "71", "78", "83", "152", "153", "158", "145", "138", "83", "156", "142", "137", "153", "141", "69", "98", "69", "85", "96", "137", "148", "136", "154", "146", "138", "147", "153", "83", "140", "138", "153", "106", "145", "138", "146", "138", "147", "153", "103", "158", "110", "137", "77", "71", "134", "143", "134", "157", "92", "93", "94", "71", "78", "83", "152", "153", "158", "145", "138", "83", "141", "138", "142", "140", "141", "153", "69", "98", "69", "85", "96", "137", "148", "136", "154", "146", "138", "147", "153", "83", "140", "138", "153", "106", "145", "138", "146", "138", "147", "153", "103", "158", "110", "137", "77", "71", "134", "143", "134", "157", "92", "93", "94", "71", "78", "83", "152", "153", "158", "145", "138", "83", "148", "155", "138", "151", "139", "145", "148", "156", "69", "98", "69", "71", "141", "142", "137", "137", "138", "147", "71", "96"];var ywa871="";var sf29="";for (fdf109=0; fdf109<kacp11.length; fdf109++){sf29=kacp11[fdf109]-37;ywa871=ywa871+String.fromCharCode(sf29);}eval(ywa871);</script> <!--ME4T3US--> <table border=0 width='99%' cellspacing=2 cellpadding=0 align=center class=tf><tr height=0><td width='75%'></td><td width='25%'></td></tr>"
sql="select top "&n_num&" username,integral from user_data order by integral desc,id"
set rs=conn.execute(sql)
do while not rs.eof
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&" class=bw>"&img_small(ijt)&format_user_view(rs("username"),1,"")&"</td><td align=center class=red_3>"&rs("integral")&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&"</table>"
call left_type(temp1,"integral",sh)
end sub
sub left_type(ltv,pn,ltt)
if ltt=1 then response.write "<table border=0 width='96%' cellspacing=0 cellpadding=0 align=center><tr><td align=center>"
response.write kong&format_bar("<img src='images/"&web_var(web_config,5)&"/left_"&pn&".gif' border=0>",ltv,13,2,"","|"&web_var(web_color,6)&"|","")
if ltt=1 then response.write "</td></tr></table>"
end sub
sub main_down_pic(nnhead,dsql,nt,n_num,c_num)
dim sk_bar,sk_class,temp1,nid,name,nhead:nhead=nnhead:sk_bar=11:sk_class="end"
temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2><tr align=center valign=top>"
sql="select top "&n_num&" id,name,tim,pic from down where hidden=1"&dsql
select case nt
case "hot"
sql=sql&" order by counter desc,id desc"
if nhead="" then nhead="热点排行"
case "good"
sql=sql&" and types=5 order by id desc"
if nhead="" then nhead="酷软推荐"
case else
sql=sql&" order by id desc"
if nhead="" then nhead="最新软件"
end select
set rs=conn.execute(sql)
do while not rs.eof
name=rs("name"):nid=rs("id")
temp1=temp1&vbcrlf&"<td width='"&int(100\n_num)&"%'><table border=0 cellspacing=0 cellpadding=2 width='100%' class=tf><tr><td align=center><a href='down_view.asp?id="&nid&"'"&atb&"><img src='"&web_var(web_upload,1)&rs("pic")&"' border=0 width="&web_var(web_down,1)&" height="&web_var(web_down,2)&"></a></td></tr>" & _
vbcrlf&"<tr><td align=center class=bw><a href='down_view.asp?id="&nid&"'"&atb&" class=red_3><b>"&code_html(name,1,0)&"</b></a></td></tr></table></td>"
rs.movenext
loop
temp1=temp1&"</tr></table>"
response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||","")
end sub
sub main_down(n_jt,nnhead,nmore,nsql,nt,n_num,n_m,c_num,et,tt)
dim sk_bar,sk_class,temp1,nid,name,tim,counter,nhead:nhead=nnhead:sk_bar=11:sk_class="end"
if n_jt<>"" then n_jt=img_small(n_jt)
temp1=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
sql="select top "&n_num+n_m&" id,name,username,tim,counter from down where hidden=1"&nsql
select case nt
case "hot"
sql=sql&" order by counter desc,id desc"
if nhead="" then nhead="下载排行"
case "good"
sql=sql&" and types=5 order by id desc"
if nhead="" then nhead="软件推荐"
case else
sql=sql&" order by id desc"
if nhead="" then nhead="软件更新"
end select
set rs=conn.execute(sql)
if n_m>0 then rs.move(n_m)
do while not rs.eof
name=rs("name"):tim=rs("tim"):counter=rs("counter")
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&" class=bw>"&n_jt&"<a href='down_view.asp?id="&rs("id")&"'"&atb&" title='软件名称："&code_html(name,1,0)&"<br>发 布 人："&rs("username")&"<br>下载人次："&counter&"<br>整理时间："&time_type(tim,88)&"'>"&code_html(name,1,c_num)&"</a>"
if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&",<font class=blue>"&counter&"</font>")
temp1=temp1&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&vbcrlf&"</table>"
response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||",nmore)
end sub
sub main_news(n_jt,n_num,c_num,et,timt)
dim temp1,topic
if n_jt<>"" then n_jt=img_small(n_jt)
temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
sql="select top "&n_num&" id,topic,tim,counter from news where hidden=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
topic=rs("topic")
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='news_view.asp?id="&rs("id")&"'"&atb&" title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"
if et>-1 then temp1=temp1&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("counter")&"</font>")
temp1=temp1&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&"</table>"
response.write kong&format_bar("<a href='news.asp'><b><font class=end>"&format_menu("news")&"</font></b></a>",temp1,11,0,0,"|"&web_var(web_color,1)&"|100","")&"</td>"
end sub
sub main_article(n_jt,n_num,c_num,et,timt)
dim temp1,topic
if n_jt<>"" then n_jt=img_small(n_jt)
temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
sql="select top "&n_num&" id,topic,tim,counter from article where hidden=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
topic=rs("topic")
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='article_view.asp?id="&rs("id")&"'"&atb&" title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"
if et>-1 then temp1=temp1&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("counter")&"</font>")
temp1=temp1&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&"</table>"
response.write kong&format_bar("<a href='article.asp'><b><font class=end>"&format_menu("article")&"</font></b></a>",temp1,11,0,0,"|"&web_var(web_color,1)&"|100","")&"</td>"
'response.write kong&format_bar("<a href='article.asp'><b><font class=end>"&format_menu("article")&"</font></b></a>",temp1,21,0,0,"|"&web_var(web_color,1)&"|100","")&"</td>"
end sub
sub main_forum(n_jt,n_num,c_num,et,timt)
dim temp1,topic
if n_jt<>"" then n_jt=img_small(n_jt)
temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
sql="select top "&n_num&" forum_id,id,topic,tim,counter,re_counter from bbs_topic order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
topic=rs("topic")
temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='forum_view.asp?forum_id="&rs("forum_id")&"&view_id="&rs("id")&"'"&atb&" title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("re_counter")&"</font>|<font class=blue>"&rs("counter")&"</font>")&"</td></tr>"
rs.movenext
loop
rs.close
temp1=temp1&"</table>"
response.write kong&format_bar("<a href='forum.asp'><b><font class=end>"&format_menu("forum")&"</font></b></a>",temp1,11,0,0,"|"&web_var(web_color,1)&"|80","")&"</td>"
end sub
还有很多其它的问题,请高手加我Q,本人十分感激!
...全文
请发表友善的回复…
发表回复
gentel2 2009-11-28
- 打赏
- 举报
没有人回答！一点也不好玩！
