100分高分求解新手问题!!

lzt7 2004-08-11 04:25:12
2.asp的是用来显示用户排行的,源代码如下:
<%
sub ShowTopUser(UserNum)
if UserNum<=0 or UserNum>100 then UserNum=10
dim sqlTopUser,rsTopUser,i
sqlTopUser="select top " & UserNum & " * from " & db_User_Table & " order by " & db_User_ArticleChecked & " desc," & db_User_ID & " asc"
set rsTopUser=server.createobject("adodb.recordset")
rsTopUser.open sqlTopUser,Conn_User,1,1
if rsTopUser.bof and rsTopUser.eof then
response.write "没有任何用户"
else
response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td align='left'>名次</td><td align='left'>用户名</td><td align='right'>文章数</td></tr>"
for i=1 to rsTopUser.recordcount
response.write "<tr><td align='center'>" & cstr(i) & "</td><td align='left'><a href='UserInfo.asp?UserID=" & rsTopUser(db_User_ID) & "'>" & rsTopUser(db_User_Name) & "</a></td><td align='right'>" & rsTopUser(db_User_ArticleChecked) & "</td></tr>"
rsTopUser.movenext
next
response.write "</table><div align='right'><a href='UserList.asp'>more...</a></div>"
end if
set rsTopUser=nothing
end sub
%>

然后在1.asp页面用<%call ShowTopUser(10)%>调用ShowTopUser函数

但现在我想改成用<script src='2.asp'></script>调用用户排行,请问2.asp页面该如何改?
下面是我改过后的2.asp页面,直接显示是没问题的,但用<script src='2.asp'></script>调用就什么耶没显示,为什么呢?是哪里出错了?
<%

dim usernum
usermum=10
if UserNum<=0 or UserNum>100 then UserNum=10
dim sqlTopUser,rsTopUser,i
sqlTopUser="select top " & UserNum & " * from " & db_User_Table & " order by " & db_User_ArticleChecked & " desc," & db_User_ID & " asc"
set rsTopUser=server.createobject("adodb.recordset")
rsTopUser.open sqlTopUser,Conn_User,1,1
if rsTopUser.bof and rsTopUser.eof then
response.write "document.write('没有任何用户')"
else

response.write "document.write('<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td align=left>名次</td><td align=left>用户名</td><td align=right>文章数</td></tr>')"
for i=1 to rsTopUser.recordcount
response.write "document.write('<tr><td align=center>" & cstr(i) & "</td><td align=left><a href=UserInfo.asp?UserID=" & rsTopUser(db_User_ID) & ">" & rsTopUser(db_User_Name) & "</a></td><td align=right>" & rsTopUser(db_User_ArticleChecked) & "</td></tr>')"
rsTopUser.movenext
next
response.write "document.write('</table><div align=right><a href=UserList.asp>more...</a></div>')"
end if
set rsTopUser=nothing
%>
...全文
109 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
fungchou 2004-08-12
  • 打赏
  • 举报
回复
为什么要这么复杂呢,写程序首先就是要简单
weige250 2004-08-12
  • 打赏
  • 举报
回复
看眼花拉,呵呵
MOTA 2004-08-12
  • 打赏
  • 举报
回复
哈哈
sanyechonggyq 2004-08-12
  • 打赏
  • 举报
回复
楼主的那种想法也是没有问题的!
wzgme 2004-08-12
  • 打赏
  • 举报
回复
<!--#include file="2.asp"-->
写错了
wzgme 2004-08-12
  • 打赏
  • 举报
回复
不用这样麻烦啊。。
只要你的2.asp可以单独显示。。
你用<ifram src="2.asp"></ifram>来调用啊。。如果1.asp是asp的页用<include file="2.asp">也可以啊。。
aspczlover 2004-08-12
  • 打赏
  • 举报
回复
给你个js文件你试试
do.js
--->

var html = "";
html += "<html><head><title>运行窗口</title></head><body>";
html += "<font face=verdana></font>";
html += "</body></html>";


// Create Internet Explorer Object
ie = new ActiveXObject("InternetExplorer.Application");

// Define how the window should look
ie.left = 50;
ie.top = 50;
ie.height = 510;
ie.width = 470;
ie.menubar = 0;
ie.toolbar = 0;

// Set the browser to a blank page
ie.navigate("http://www.csdn.net");

// Show the browser
ie.visible=1;

// Open a stream and write data.
//ie.document.open;
//ie.document.write( html );
//ie.document.close;
aspczlover 2004-08-12
  • 打赏
  • 举报
回复
但现在我想改成用<script src='2.asp'></script>调用用户排行,请问2.asp页面该如何改?
下面是我改过后的2.asp页面,直接显示是没问题的,但用<script src='2.asp'></script>调用就什么耶没显示,为什么呢?是哪里出错了?

---》
不能这样写<script src='2.asp'></script>
src只能调用.js文件不能直接调用asp文件

下面的方式是正确的
<script src="do.js" >
</script>
ycted 2004-08-11
  • 打赏
  • 举报
回复
你试试在你的2.asp前加个<%@language="javascript"%>

下面是我调用的经过.
1.asp
里面包含
<script language="JavaScript" src="2.asp"></script>

2.asp的内容如下:
<%@language="javascript"%>
var dsy = new ActiveXObject("scripting.dictionary");
<%
//** Power By Fason
//** Email:fason_pfx@hotmail.com
var strDBName = "database/data.mdb";
var strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.Mappath(strDBName)
var dbConn = Server.CreateObject("adodb.connection");
dbConn.Open(strConn);
var ResponseHTML="";
function List(key,id)
{
var dbCmd=Server.CreateObject("adodb.command");
with(dbCmd){
ActiveConnection = dbConn;
CommandType = 4;
CommandText = "sp_select";
var objRs=Execute(null,(id?id:0));
}
var tmp=[String(key),[]];
var x=0;
while(!objRs.eof)
{
tmp[1][tmp[1].length]=String(objRs("description"));
if(objRs("children")>0)
{
List(key+"_"+(x++),String(objRs("id")));
}
objRs.movenext;
}
dbCmd=null;
objRs=null;
ResponseHTML=("dsy.add(\""+tmp[0]+"\",\""+tmp[1].join("|")+"\");\n")+ResponseHTML;
}
List(0);
dbConn.Close();
dbConn=null;
Response.Write(ResponseHTML);
%>
aspgreener 2004-08-11
  • 打赏
  • 举报
回复
<%

dim usernum
usermum=10
if UserNum<=0 or UserNum>100
then UserNum=10
end if
dim sqlTopUser,rsTopUser,i
sqlTopUser="select top " & UserNum & " * from " & db_User_Table & " order by " & db_User_ArticleChecked & " desc," & db_User_ID & " asc"
set rsTopUser=server.createobject("adodb.recordset")
rsTopUser.open sqlTopUser,Conn_User,1,1
if rsTopUser.eof then
response.write "document.write('没有任何用户')"
else

response.write "document.write('<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td align=left>名次</td><td align=left>用户名</td><td align=right>文章数</td></tr>')"
for i=1 to rsTopUser.recordcount
response.write "document.write('<tr><td align=center>" & cstr(i) & "</td><td align=left><a href=UserInfo.asp?UserID=" & rsTopUser(db_User_ID) & ">" & rsTopUser(db_User_Name) & "</a></td><td align=right>" & rsTopUser(db_User_ArticleChecked) & "</td></tr>')"
rsTopUser.movenext
next
response.write "document.write('</table><div align=right><a href=UserList.asp>more...</a></div>')"
end if
set rsTopUser=nothing
%>
wjh6of6agriculture 2004-08-11
  • 打赏
  • 举报
回复
<script src='2.asp'></script>我觉得是用做包含脚本文件的,你改用框架试试?

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧