makejs.asp

一个非常好的旅游网站程序.

<link href="css/css.css" rel="stylesheet" type="text/css">
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%if request("action")=1 then%>



<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>首页LOGO连接调用代码(link.js)</b></center></td></tr>
<%
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("js\link_news.js"),true)
str="document.write('<table border=0 cellpadding=2 cellspacing=0 width=600>" 
sql_1 = "select top "&list_logo&" * from data where audit=1 and vouch=6 and logo<>'' order by id desc" 
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >首页LOGO连接</td><td><font color=red>暂时还没有验证站点！</font></td></tr>"
str=str & "</table>')"
else
i=0
do while not rs_1.EOF 
if i mod logo_list=0 then str=str & "<tr>"
temptime =month(rs_1("lastdate")) & "月" & day(rs_1("lastdate")) & "日"
str = str & "<td><a href=/link/open.asp?id="&rs_1("id")&"&url="& rs_1("url")& " target=_blank title="&rs_1("webname")&"(点击"&rs_1("hit")&"次)><img src="&rs_1("logo")&" border=0 width=88 height=31></a></td>"
	if i mod logo_list=5 then str=str & "</tr>"
	i=i+1
rs_1.movenext
loop
str=str & "</tr></table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>首页LOGO连接调用代码</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
%>
</table>


<%elseif request("action")=2 then%>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>首页文字连接调用代码(link.js)</b></center></td></tr>
<%
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("js\link.js"),true)
str="document.write('<table border=0 cellpadding=2 cellspacing=0 width=600>" 
sql_1 = "select top "&list_text&" * from data where audit=1 and vouch=6 and logo='' order by id desc"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>首页文字连接</td><td><font color=red>暂时还没有验证站点！</font></td></tr>"
str=str & "</table>')"
else
i=0
do while not rs_1.EOF 
if i mod text_list=0 then str=str & "<tr>"
temptime =month(rs_1("lastdate")) & "月" & day(rs_1("lastdate")) & "日"
str = str & "<td><a href=/link/open.asp?id="&rs_1("id")&"&url="& rs_1("url")& " target=_blank title="&rs_1("webname")&"(点击"&rs_1("hit")&"次)>"&rs_1("webname")&"</a></td>"
	if i mod text_list=7 then str=str & "</tr>"
	i=i+1
rs_1.movenext
loop
str=str & "</tr></table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>首页文字连接调用代码</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
%>
</table>

<%else%>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>内页LOGO连接调用代码(link_logo.js)</b></center></td></tr>
<%
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("js\link_logo.js"),true)
str="document.write('<table border=0 cellpadding=2 cellspacing=0 width=600>" 
sql_1 = "select top "&list&" * from data where audit=1 and vouch=7 and logo<>'' order by id desc" 
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >内页LOGO连接</td><td><font color=red>暂时还没有验证站点！</font></td></tr>"
str=str & "</table>')"
else
i=0
do while not rs_1.EOF 
if i mod list=0 then str=str & "<tr>"
temptime =month(rs_1("lastdate")) & "月" & day(rs_1("lastdate")) & "日"
str = str & "<td><a href=lk/open.asp?id="&rs_1("id")&"&url="& rs_1("url")& " target=_blank title="&rs_1("webname")&"(点击"&rs_1("hit")&"次)><img src="&rs_1("logo")&" border=0 width=88 height=31></a></td>"
	if i mod list=5 then str=str & "</tr>"
	i=i+1
rs_1.movenext
loop
str=str & "</tr></table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>内页LOGO连接调用代码</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
%>
</table>
<%end if%>