📄 creathtm.asp
字号:
<%Admin="SysSee"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
if request("gx")=1 then
min=request("min")
max=request("max")
if min="" and max="" then mysql=" order by id desc"
if min<>"" and max="" then mysql=" where id>="&min&" order by id desc"
if min="" and max<>"" then mysql=" where id<="&max&" order by id desc"
if min<>"" and max<>"" then mysql=" where id>="&min&" and id<="&max&" order by id desc"
'生成网址HTML页面
set fso = Server.CreateObject("Scripting.FileSystemObject")
set rs=server.createobject("adodb.recordset")
sql="SELECT id,url,title,classid,hits,date,email FROM detail"&mysql
rs.open sql,conn,1,1
i=0
while not rs.eof
set fw = fso.CreateTextFile(Server.MapPath("../link/"&rs(0)&".asp"),TRUE) '若有则覆盖
fw.writeline("<html><head><title>"&rs("title")&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta name=keywords content='"&rs("title")&"'><meta name='description' content='"&rs("title")&"'></head><body><!--#include file=""../inc/top.asp""--><table border=0 cellpadding=0 cellspacing=0 width=760 align=center bgcolor=ffffff><tr><td height=22 bgcolor=eeeeee colspan=2> <a href=../>证券首页</a> → <a href=stock-"&rs("classid")&".asp>财经网站</a> → "&rs("title")&"</td></tr><tr><td height=3 colspan=2></td></tr><tr><td width=209 align=center><table width=180 border=1 bordercolor=eeeeee bgcolor=f7f7f7 style=border-collapse:collapse><tr><td><!--#include file=""../inc/160x600.asp""--></td></tr></table></td><td valign=top><table border=1 width=542 bordercolor=DBD3BD style=border-collapse:collapse><tr><td width=542 colspan=3 bgcolor=015CAF height=30 class=title><font color=FFff00> <b>"&rs("title")&"</b></font></td></tr><tr><td width=75 height=25> 网站编号:</td><td width=265> "&rs("id")&"</td><td rowspan=7><!--#include file=""../inc/200x200.asp""--></td></tr><tr><td height=25> 网站名称:</td><td> "&rs("title")&"</td></tr><tr><td height=25> 访问次数:</td><td> <script src=count.asp?id="&rs("id")&"></script></td></tr><tr><td height=25> 登陆时间:</td><td> "&rs("date")&"</td></tr><tr><td height=25> 星级评定:</td><td><img src=../images/5star.gif alt=星级标志></td></tr><tr><td height=25> E-mail：</td><td> email</td></tr><tr><td height=28> 网站URL：</td><td> <a href=http://"&rs("url")&" target=_blank>http://"&left(rs("url"),31)&"</a></td></tr><tr><td height=25 align=center bgcolor=015CAF colspan=3> <font color=FFff00><b>"&rs("title")&"-日平均排名走势图</b></font></td></tr><tr><td height=280 colspan=3><img src=http://traffic.alexa.com/graph?w=540&h=280&r=6m&y=r&u=http://"&rs("url")&"></td></tr></table></td></tr></table><!--#include file=""../inc/foot.asp""--></body></html>")
fw.close
rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%><p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" width="350" bgcolor="#FF0000" height="150">
<tr>
<td bgcolor="#F1E3F2">
<p align="center">自动更新网址页文件完成!</p>
</td>
</tr>
</table>
</center>
</div>
<%else%>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" width="450" bgcolor="#FF0000">
<tr>
<td bgcolor="#F1E3F2">
<p align="center" style="margin-top: 16">自动更新网址页文件</p>
<FORM name=form1 action=creathtm.asp?gx=1 method=post>
<p align="center" style="margin-top: 16">从ID:<input type="text" name="min" size="20"></p>
<p align="center" style="margin-top: 16">自ID:<input type="text" name="max" size="20"></p>
<p align="center" style="margin-top: 16"><input type="submit" value="提 交" name="B1">
<input type="reset" value="重写" name="B2"></p>
</form>
<p align="center"> </td>
</tr>
</table>
</center>
</div>
<%
conn.close
set conn=nothing
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -