[求助]如何生成这种格式的JS文件 - 编程论坛

#2

kira0072007-11-16 17:23

因为比较复杂，自己先行顶一下先。

#3

wslijing2007-11-16 17:25

这个需要JS吗？
一般的ASP就可以调用出来啊

#4

kira0072007-11-16 18:08

因为是用在首页 HTM 里面的。
如果能用ASP 就不会出现这个问题了。

#5

永夜的极光2007-11-16 18:16

写一个asp,根据数据库里面的内容,用FSO自动生成js文件,把原来的js文件替换掉

每次更新数据库的时候,就调用这个asp文件

其实没必要用js文件,直接用asp生成这个index.asp就好了

我觉得大体的思路就是这样,不过这样做起来还是要费点时间的

#6

kira0072007-11-16 20:56

htm的静态文档能调用 ASP 文件？

#7

yms1232007-11-16 21:14

可以没问题asp直接写js文件
比如文件1
js.asp
<%
Response.ContentType="text/javascript"
With Response
Dim i
For i=0 To 100
.Write "document.write('ASP输出JS文件测试');"
Next
End With
%>
文件2
js.htm
<html>
<head>
<title>JS生成文件测试</title>
</head>
<body>
<script language="javascript" src="js.asp" ></script>
</body>
</html>
其实实现楼主提出的功能另外一种办法就是Ajax，但个人觉得这种直接显示的就没必要Ajax了。

#8

kira0072007-11-17 00:42

<html>
<head>
<title>JS生成文件测试</title>
</head>
<body>
<script language="javascript" src="js.asp" ></script>
</body>
</html>

这个代码测试过了，在静态页面中不能调用 ASP 文件，一片空白的。

#9

kira0072007-11-17 00:45

如果用ASP程序 + FSO 能把以下代码生成 JS 文件，就大功告成了
************************************************************************************************************
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><%set rsbig=server.createobject("adodb.recordset")
rsbig.open "select category,categoryid,icon from category where parentid=0 and hide=0 order by categoryorder asc",conn,1,1
if rsbig.eof and rsbig.bof then
rsbig.close
response.write"<td><font color='#ff0000'>暂无统计数据！</font></td>"
else
n=0
do while not rsbig.eof %>
<td width="70" align="center"><img src="<%=rsbig("icon")%>" onload ="javascript:if(this.width>65)this.width=65;if(this.height>65)this.height=65;"></td>
<td valign="top"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><a href="product.asp?bigclassid=<%=rsbig("categoryid")%>"><b><%=rsbig("category")%></b></a></td>
</tr>
<tr>
<td><%set rssm=server.createobject("adodb.recordset")
rssm.open "select category,categoryid,icon from category where parentid="&rsbig("categoryid")&" and hide=0 order by categoryorder asc",conn,1,1
if rssm.eof and rssm.bof then
rssm.close
response.write"<font color='#ff0000'>暂无分类数据！</font>"
else
y=1
do while not rssm.eof %>
<a href='product.asp?bigclassid=<%=rsbig("categoryid")%>&smallclassid=<%=rssm("categoryid")%>'><%=rssm("category")%></a> <% if rssm.RecordCount<>int(y) then response.write " | " end if%>
<% y=y+1
rssm.movenext
loop
end if

%></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td><% n=n+1
if n mod 2=0 and n<>rsbig.RecordCount then
response.write"</tr><tr><td height='3' colspan='4' background='images/LINE.JPG'><img name='' src='' width='1' height='3' alt=''></td></tr><tr>"
end if
rsbig.movenext
loop
end if
rssm.close
set rssm=nothing
rsbig.close
set rsbig=nothing%>
</tr>
</table>

#10

kira0072007-11-17 01:00

又或者如何把浏览器当前浏览的ASP 页面通过FSO 生成 JS 文件

#11

kira0072007-11-17 13:06

问题完满解决了，使用桢载入
使用以下函数可以去除桢默认的样式，并能自动缩放，感觉就是爽
<script>
function autoResize()
{
try
{
document.all["content"].style.height=content.document.body.scrollHeight
}
catch(e){}
}
</script>
---------------------------------------- 调用如下 ----------------------------------
<iframe src="topmenu.asp" name="content" id="content" scrolling="no" frameborder="0" width="100%" onload="autoResize();"></iframe>