liejs.asp

来自「教育管理系统」· ASP 代码 · 共 81 行

<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<%
dim openfile,fd,ii,string
 Set openfile = Server.CreateObject("Scripting.FileSystemObject")
 set fd=openfile.createtextfile(server.MapPath("lei.js"),1)
 string="document.write('" 
sql1="select * from zhu"        
Set zhulie = Server.CreateObject("ADODB.Recordset")                          
zhulie.open sql1,conn,1.1
do while not zhulie.eof
string = string & "<center><table width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""0"" bordercolor=""#FF9900"" bgcolor=""#FFCC00"" class=tt><tr><td>&nbsp;&nbsp;&nbsp;<font class=3dfont><b><a href=SORT.ASP?zhuid="
string = string & zhulie("zhuid")
string = string & ">"
string = string & zhulie("zhu")
string = string & "</a></b></font></td></tr></table></center>"
zhuid=zhulie("zhuid")
sql2="select * from type where zhuid='"&zhuid&"'"                            
Set typelie = Server.CreateObject("ADODB.Recordset")                               
typelie.open sql2,conn,1.1
do while not typelie.eof
string = string & "<table width=""98%"" cellpadding=""0"" cellspacing=""0"" border=""0"" align=""center""><tr align=""center""><td width=""25%""><table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0""><tr>"
if not typelie.eof then
string = string & "<td><a href=SORT.ASP?typeid="
string = string & typelie("typeid")
string = string & "&zhuid="
string = string & typelie("zhuid")
string = string & ">"
string = string & typelie("type")
string = string & "</a></td></tr></table></td>"
typelie.movenext             
end if             
string = string & "<td width=""25%""><table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0""><tr>"
if not typelie.eof then
string = string & "<td><a href=SORT.ASP?typeid="
string = string & typelie("typeid")
string = string & "&zhuid="
string = string & typelie("zhuid")
string = string & ">"
string = string & typelie("type")
string = string & "</a></td></tr>"
typelie.movenext             
end if             
string = string & "</table></td><td width=""25%""><table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0""><tr>"
if not typelie.eof then
string = string & "<td><a href=SORT.ASP?typeid="
string = string & typelie("typeid")
string = string & "&zhuid="
string = string & typelie("zhuid")
string = string & ">"
string = string & typelie("type")
string = string & "</a></td></tr>"
typelie.movenext
end if             
string = string & "</table></td><td width=""25%""><table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0""><tr>"
if not typelie.eof then
string = string & "<td height=""17""><a href=SORT.ASP?typeid="
string = string & typelie("typeid")
string = string & "&zhuid="
string = string & typelie("zhuid")
string = string & ">"
string = string & typelie("type")
string = string & "</a></td></tr>"
typelie.movenext             
end if             
string = string & "</table></td></tr>"
loop             
typelie.Close             
set typelie=nothing
string = string & "</table>"
zhulie.movenext             
loop             
zhulie.Close             
set zhulie=nothing
string=string & "')"
fd.write string
fd.close 
response.write "Ok!分类列表以成功生成脚本引入首页"
Conn.Close
Set Conn = nothing
%>