|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。静态|页面<%
dimstrUrl,Item_Classid,id,FileName,FilePath,Do_Url
id=Trim(Request("id"))
FileName="Index.htm"要天生的htm名字
FilePath=Server.MapPath("/asptest")&""
FilePath=FilePath&FileName
Do_Url="http://"
Do_Url=Do_Url&"cnoishop.3322.org"要天生的页面
%>
<%
strUrl=Do_Url
dimobjXmlHttp
setobjXmlHttp=Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open"GET",strUrl,false
objXmlHttp.send()
DimbinFileData
binFileData=objXmlHttp.responseBody
DimobjAdoStream
setobjAdoStream=Server.CreateObject("ADODB.Stream")
objAdoStream.Type=1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFileFilePath,2
objAdoStream.Close()
%>
<html>
<head>
<metahttp-equiv="Content-Language"content="zh-cn">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>申明</title>
<STYLEtype="text/CSS">
<!--
td{font-family:"Verdana","Arial";font-size:12px;color:#333333
}
a:link{
font-size:10pt;
color:000000;
text-decoration:none;
}
a:visited{
font-size:10pt;
color:#000000;
text-decoration:none;
}
--></STYLE>
</head>
<bodyleftmargin="0"topmargin="0"marginwidth="0"marginheight="0"bgcolor="#ffffff">
<divalign="center">
<center>
<tableborder="0"width="265"height="129"cellspacing="1"cellpadding="0"bgcolor="#C0C0C0">
<tr>
<tdwidth="265"height="22"bgcolor="#F5F5F5"><b>说明</b></td>
</tr>
<tr>
<tdwidth="265"height="78"valign="top"bgcolor="#FFFFFF"style="padding:4px">
<%
Response.Write("乐成天生文件:")
Response.Write("<BR>")
Response.WriteFilePath
%></td>
</tr>
<tr>
<tdwidth="245"height="22"valign="middle"bgcolor="#FFFFFF">
<palign="center"><ahref="#"onclick=history.go(-1)>前往上一页</a></td>
</tr>
</table>
</center>
</div>
</body>
</html>
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|