📄 show.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="set.asp" -->
<!--#include file="function.asp" -->
<!--#include file="sub.asp" -->
<%
dim wstr,fldr,url
on error resume next
url = Request.ServerVariables("QUERY_STRING")
url = Right(url,Len(url)-4)
GetNewsFold=split(url,"/")
If SaveNews=True then
fldr="Show"
For i=0 to Ubound(GetNewsFold)-1
fldr=fldr&"/"&GetNewsFold(i)
If IsExists(fldr)=false then
call CreateFolder(fldr)
End if
Next
If IsExists("Show/"&url)=false then
wstr=GetPage(urldns(url))
wstr=Autolink(wstr,urldns(url)) '完成截取后的页面
' call WriteToFile("Show/"&url,wstr)
Else
wstr=ReadAllTextFile("Show/"&url)
End if
Else
wstr=GetPage(urldns(url))
wstr=Autolink(wstr,urldns(url)) '完成截取后的页面
End if
%>
<html>
<head>
<title>『新野视窗』－新闻详细内容</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<style>
.f14{font-size: 14px; letter-spacing: 1; line-height: 150%}
.f24{font-size: 16px; }
.title14 {font-size:14.9px;line-height:130%}
.title12{font-size: 12px}
</style>
<script language="JavaScript">
function doZoom(size){
document.getElementById('zoom').style.fontSize=size+'px'
}
</script>
</head>
<body BGCOLOR="#FFFFFF" leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<!--#include file="item.asp" --> <table width="773" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000">
<tr> <td> </td></tr> </table><table width="773" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> <td valign="top" class="Item_8"><TABLE WIDTH="773" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<TR> <TD VALIGN="top" CLASS="Item_8"><TABLE WIDTH="100%" BORDER="0" CELLSPACING="10" CELLPADDING="0">
<TR> <TD><%=wstr%></TD></TR> </TABLE></TD><TD WIDTH="160" VALIGN="top" CLASS="Item_7">
</TD></TR> </TABLE></td></tr> </table><!--#include file="about.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -