分类目录归档:asp

asp的知识汇总

asp下的htmldecode函数

asp只提供了HTMLEncode函数,并没有提供相应的htmldecode函数,去网上找了半天,只是简单的实现了一下,并不能满足中文解码的需要,经过努力,终于实现了asp下的中文解码。htmldecode函数如下: <% Function HTMLDecode(sText) Dim I sText = Replace(sText, “"”, Chr(34)) sText = Replace(sText, “<” , Chr(60)) sText = Replace(sText, “>” , Chr(62)) sText = Replace(sText, “&” , Chr(38)) sText = Replace(sText, “ ”, Chr(32)) sText = Replace(sText, “®”, Chr(32)) ‘ … 继续阅读

发表在 asp | 评论关闭

asp在线压缩access数据库的秘密

     access数据库在使用过程中会不断增大,多数情况下是删除旧数据后并不能减小数据库的大小,如何才能在线为access数据库瘦身呢?下面提供了一个解决方法: <% Const Jet_Conn_Partial = “Provider=Microsoft.Jet.OLEDB.4.0; Data source=” Dim strDatabase, strFolder, strFileName ‘################################################# ‘# 修改下面两行 ‘# 定义了数据库文件夹的全路径 ‘# 数据库的名字 strDatabase = “renfb_2009_data.mdb” strFolder = server.mappath(“.”)&”\data\” ‘站点根目录下的Data文件夹 ‘# 修改结束 ‘################################################## Private Sub dbCompact(strDBFileName) Dim SourceConn Dim DestConn Dim oJetEngine Dim … 继续阅读

发表在 asp | 评论关闭

asp抓取网页的方法

Function getHTTPPage(url) dim objXML set objXML=createobject(“MSXML2.SERVERXMLHTTP.3.0″) objXML.open “GET”,url,false objXML.send() getHTTPPage=bBytesToBstr(objXML.responseBody) set objXML=nothing End Function Function bBytesToBstr(body) dim objstream set objstream = CreateObject(“adodb.stream”) objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = “GB2312″ bBytesToBstr … 继续阅读

发表在 asp | 评论关闭

asp访问webservice

    webservice被越来越多的使用,Internet出现了越来越多的soap的webservice接口。Net,Java都提供了访问webservice的类库,使用这些现成的类库可以方便的访问Internet上的webservice,asp却没有现成的访问方法,需要自己实现如何访问webservice.     asp如果需要访问webservice,需要使用Microsoft.XMLHttp对象,只要创建Microsoft.XMLHttp对象,就可以将soap数据post到webservice接口,webservice处理之后会返回responseXML数据,可以通过xml的解析,得到自己所要的数据。     通过访问webservice的url,可以查看webservice提供的方法,点击需要的方法,可以查看该方法需要的soap的xml数据的形式,并且可以查看webservice方法返回的soap数据的xml格式,这样我们就可以通过asp访问webservice接口了。    下面提供一个例子。 dim str url=”http://xxx.xxx.xxx.xxx/webservice/xxxxxx.asmx” //soap组合数据形式如下 data=”<?xml version=”"1.0″” encoding=”"utf-8″”?>” data=data&”<soap:Envelope xmlns:xsi=’http://www.w3.org/2001/XMLSchema-instance’ xmlns:xsd=’http://www.w3.org/2001/XMLSchema’ xmlns:soap=’http://schemas.xmlsoap.org/soap/envelope/’>” data=data&”<soap:Body>” data=data&”<Getxxxx xmlns=’http://tempuri.org/’ >” data=data&”<UserName>renfb</UserName>” data=data&”</Getxxxxx>” data=data&”</soap:Body>” data=data&”</soap:Envelope>” set xmlHttp=server.CreateObject(“Microsoft.XMLHTTP”) xmlHttp.open “POST”,url,false xmlHttp.setRequestHeader “Content-Type”, “text/xml; charset=utf-8″ xmlHttp.setRequestHeader “Content-Length”,LEN(data) xmlHttp.send(data) //如果返回成功,对返回值进行处理 if … 继续阅读

发表在 asp | 评论关闭