outjs.asp

8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见： 猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他

<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="../inc/const.asp" -->
<%
  dim foolcat,title
  dim js,strsql
  set js = server.CreateObject("ADODB.RecordSet")
  strSql = "SELECT TOP 9 DNclass.*,download.* FROM download,DNclass where DNclass.Nclassid=download.Nclassid ORDER BY download.id DESC"
  set js = conn.Execute (StrSql)
do until js.eof
	if len(js("showname"))>16 then
		title=left(js("showname"),16)+"..."
	else
		title=js("showname")
	end if
   foolcat = foolcat + "☉[<a href=http://www.aspsky.net/download/index.asp?classid="&js("classid")&"&Nclassid="&js("Nclassid")&">"&js("Nclass")&"</a>]<a href=download/list.asp?id="&js("id")&" title="&js("showname")&">" & title & "</a><span class=b2>("&js("dateandtime")&")</span><br>"
js.MoveNext
loop
'生成JS文件
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(jsdir)
fout.WriteLine foolcat
'关闭连接
fout.close
set fout = nothing
js.close
set js = nothing
conn.close
set conn=nothing
%><br><br>
<p align=center>操作成功，请继续其他操作。</p>