易截截图软件、单文件、免安装、纯绿色、仅160KB

asp to html

<!--#include file="inc/conn.asp" -->
<%
openconn()
sql="select * from tbnews"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
id=rs("id")
%>
<%
do while not rs.eof
%>
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" 主目录
aa=Request.Servervariables("url") '虚拟目录
bb=InstrRev(aa,"/")
cc=left(aa,bb)
Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"shownews.asp"
id=rs("id")
call SaveFile(""&id&".html",do_url&"?id="&id&"")
rs("n_path")=id&".html"
rs.update
%>
<%rs.movenext
loop
%>
<%
Response.Write("------共生成了"&rs.recordcount&"个文件------")
response.Write filepath
%>
<%
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
if err <> 0 then
SaveFile = false
err.clear
else
SaveFile = true
end if
End function
closeconn
%>


相关文档:

asp调用js代码

 最近很苦恼,当数据访问失败或者成功的时候,要页面的js处理一些效果,只是不知道怎么调用,非常郁闷。终于找
到了一个地方:
 ScriptManager.RegisterStartupScript(ListUpdatePanel, typeof(UpdatePanel), "", "alert(1);", true);
在后台的函数中调用这个即可。(针对updatepanel)刷新数据后,就会调用js ......

ASP WebService的开发步骤

WebService服务端开发
1、创建WebService工程,选择XFire Core库
2、创建业务接口和其实现类(完成业务方法的定义和实现)
3、修改配置文件service.xml
4、如果需要使用WSDL,则需要导入xalan.jar文件至WEB-INF/lib中
5、导出接口至jar包中为客户端做准备
WebService客户端开发
1、创建Web工程,添加构建路径,选择X ......

Asp中Response.write出现乱码


现象:普通的html文字显示正常,但用response.write等asp代码输出的文字就出现乱码
解决方法:起初以为是浏览器编码出错的原因,所有在代码中加入
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
但还是出现乱码,问题没解决,上面的代码指定的是html静态文字的编码
最后查资料反省是c ......

asp ajax新闻评论

Ajax.js
// AJAX类
function AJAXRequest() {
var xmlObj = false;
var CBfunc,ObjSelf;
ObjSelf=this;
try { xmlObj=new XMLHttpRequest; }
catch(e) {
try { xmlObj=new ActiveXObject("MSXML2.XMLHTTP"); }
catch(e2) {
try { xmlObj=new ActiveXObject("Microsoft.XMLHTTP"); }
catch(e3) { ......

浅说asp的一些特点,呵呵

到底使用PHP,ASP,或其它哪种技术时,可能选择PHP 会很酷,但是如果你对Unix系统,以及Perl 或C 等知之甚少的话,这就不是一个明知的选择。ASP 可以用VBScript 进行编写,而VBScript 本身是MICROSOFT Visual Basic 产品的简化版本,它采用与Visual Basic 近似的语法框架,简单易学。考虑到Visual Basic 的普及性,那么你还 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号