摘要：中央气象台的天气预报API：http://www.weather.com.cn/data/sk/101221703.htmlhttp://www.weather.com.cn/data/cityinfo/101221703.htmlhttp://m.weather.com.cn/data/101221703.html101221703即是城市在中央气象台数据库中城市码。城市码获取步骤：1. 通过http://m.weather.com.cn/data5/city.xml 获取省份列表；2. 通过http://m.weather.com.cn/data5/city22.xml 获取该省份的城市列 阅读全文

摘要：'正则替换' @param strHTML 源字符串' @param strAny Pattern正则表达式' @param strResult 替换为，支持$1' @return stringFunction anReg(strHTML,strAny,strResult) Dim objRegExp, Match, Matches, tmp tmp = strHTML Set objRegExp = New Regexp objRegExp.IgnoreCase = True'忽略大小写 objRegExp.Global = True objR 阅读全文

摘要：此版本不支持User-Agent，可自己在函数内添加。'HTTP请求方法' @param url 请求的URL地址' @param data 请求的参数，如client_id=11118888&state=test&...，各个参数请进行URL编码' @param method 发送请求的方式，取GET或POSTFunction anhttp(url,data,method) Set XmlObj = Server.CreateObject("Microsoft.XMLHTTP") if method = "POST 阅读全文

摘要：<script type="text/javascript">function anHeJi(){ var count,cheng; count=0; for(var i=1;i<=3;i++) { cheng = document.getElementById("num"+i).value * document.getElementById("price"+i).value; count += cheng; } document.form.total.value = count;}</script>&l 阅读全文

摘要：<p style="background:#666; font-weight:bold; padding:10px; font-size:30px; font-family:Georgia; text-align:center;"><script type="text/javascript">farbbibliothek = new Array();farbbibliothek[0] = new Array("#FF0000","#FF1100","#FF2200",&q 阅读全文

摘要：<%const OBJ_RST = "ADODB.Recordset"const OBJ_CONN = "ADODB.Connection"const OBJ_STRM = "ADODB.Stream"const OBJ_FSO = "Scripting.FilesyStemObject"const OBJ_XHTP = "MSXML2.XMLHTTP"const OBJ_DOM = "MSXML2.DOMDocument"'/////////基础操作函数部分& 阅读全文