代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.CodePage=65001%> <% Response.Charset="UTF-8" %> <% 该程序通过使用ASP的FSO功能，减少数据库的读取。经测试，可以减少90%的服务器负荷。页面访问速度基本与静态页面相当。 使用方法：将该文件放在网站里，然后在需要引用的文件的“第一行”用include引用即可。 =======================参数区============================= DirName="cachenew\" 静态文件保存的...
想要asp能连接mysql数据库需要安装MySQL ODBC 3.51 驱动 //www.gxlsystem.com/softs/19910.html我们先看下面这段代码 代码如下:set conn = server.createobject("adodb.connection") Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;DATABASE=Shops;USER=root;PASSWORD=xxx;" 上面这代码是核心部分了。 SERVER 连接服务器如127.0.0.1 DATABASE 要选择的数据库 shops USER 服务器登录用户名 PASSWORD 服务器登录密码...
ASP也能处理JSON数据?呵呵，刚才在Pjblog论坛上看到一个兄弟写的文章，没有测试，不过理论上一定是可以的~ 太晚了，不测试了。
以前处理JSON太麻烦了，输出还好说，循环一下就可以了，解析真的很头疼。所以遇到 这种问题API问题，一般都是XML处理，不太喜欢，很麻烦。
<%
Dim sc4Json
Sub InitScriptControl
Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")sc4Json.Language = "JavaScript"sc4Json.AddCode ...
PHP向MySQL数据库中写入数据有三个步骤： 1，PHP和MySQL建立连接关系 2，打开MySQL数据库 3，接受页面数据，PHP录入到指定的表中 1、2两步可直接使用一个数据库链接文件即可：conn.php 代码如下:mysql_connect("localhost","root","");//连接MySQL mysql_select_db("hello");//选择数据库 ?> 当然，前提是已经安装WEB服务器、PHP和MySQL，并且建立MySQL表“cnbruce” mysql_connect()中三个参数分别为MySQL地址、MySQL用户名和MyS...
<% a="日本是中国的一个省|我们美丽中国的张家界！" b="中国,我们,张家界,日本,美国,苹果" b=split(b,",") a=split(a,"|") for k=0 to ubound(a) s="" n="" for i=0 to ubound(b) if instr(a(k),b(i))>0 then s=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & "," end if next s=left(s,len(s)-1) if left(s,len(s)-1)<>len(a(k)) then s=s&","&len(a(k))+1 s=sort(split(s,",")) for i=0 to ubound(s)-1 ...
代码如下:去掉html中的table代码 Function OutTable(str) dim a,re set re=new RegExp re.pattern="<(?!img|br|p|div).*?>" re.global=true a=str OutTable=re.replace(a,"") End Function
函数
Function RegImg(TheStr)
Dim RegEx
Set RegEx = New RegExp 建立正则表达对象。
RegEx.IgnoreCase =True 是否区分大小写，True为不区分且默认
RegEx.Global = True 全部匹配还是只匹配第一个
RegEx.Pattern = "<img[^>]*src\s*=\s*["&CHR(34)&"]?([\w/\-\:.]*)["&CHR(34)&"]?[^>]*>" 搜索所使用的正则表达式
If Regex.test(TheStr) Then 判断是否有匹配值，返回True或者False。不受Global属性影...
ASP通过函数来实现替换、保存远程图片，完成自动采集图片、提取图片的功能，函数中自动判断重复图片，智能分析链接路径，并转成成相对的图片地址保存在你指定的网站目录中，我们可将此函数用在后台的编辑器中，当你复制了含有图片的内容后，本代码会自动帮你上传图片。同时本代码也是采集程序中的重要处理函数，函数代码如下：Function ReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl)
If ConStr="$Fal...
代码如下:<%@ Language=VBScript %><%Response.Expires =0 %> <DOCTYPE html public=-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd> <HTML xmlns="http://www.w3.org/1999/xhtml"> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=gb2312"> </META> <TITLE> 测试毫秒 </TITLE> </HEAD> <BODY> <SCRIPT RUNAT="SERVER" LANGUAGE="JSCRIPT"> var d = new...
代码如下:<%@Language="VBScript" CodePage="65001"%><%**********************************************注意事项ASP文件需要以UTF-8的格式保存,否则乱码.以下两行代码是为了通过微信接口验证的。response.write request("echostr")response.end**********************************************dim signature 微信加密签名dim timestamp 时间戳dim nonce 随机数dim echostr 随机字符串...
经过多次研究写出了如下代码，有需要的可以参考下 代码如下:kd=server.HTMLEncode(request("keyword"))if kd<>"" then kd=trim(kd)kd=replace(kd," ","") kd=replace(kd,"","") kd=replace(kd,"%","") kd=replace(kd,"\"," ") kd=replace(kd,">",">") kd=replace(kd,"<","<") kd=replace(kd,","," ") kd=replace(kd,"，"," ") kd=replace(kd,"|"," ")kd=replace(kd,";"," ")kd=replace(kd,":"," ")kd=replace(kd,"：","...
看代码： 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim conn,rs,excelFileName excelFileName=Server.MapPath("Data/test.xls") set conn = Server.CreateObject("ADODB.Connection") conn.connectionstring="Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info=True;Data Source=" & excelFileName & ";Extended ProPerties=""Excel 8.0;HDR=Yes;IMEX=1"";" conn.open() set rs=conn.OpenSchema(20) %> <!D...
代码如下:<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.gxlsystem.com" %>
这个目前还是有个别无法显示，翻了下msdn貌似没看到更好的解决方案，暂时放弃继续研究，有晓得完全解决的朋友不妨回复说一声。 先附bat创建畸形目录，以下代码复制另存为a.bat： 代码如下:md aux\\ md com1\\ md com2\\ md prn\\ md con\\ md nul\\ md dot...\\ md onedot..\\ 程序代码 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% option explicit response.charset = "UTF-8" session.codepage = 65001 session.t...
问题：我想上传文件时后改名，下载时又将名改回来。 如：我上传一张“我的照片.jpg”上传后改为系统数名“20040302001.jpg”下载时又改回“我的照片.jpg” 其中的保存新旧文件名都用数据库（已做） 就是下载时的改名做不出来。 代码： 代码如下:<% function dl(f,n) on error resume next Set S=CreateObject( "Adodb.Stream ") S.Mode=3 S.Type=1 S.Open S.LoadFromFile(f) if Err.Number> 0 then Response.Status= "404 " else ...
代码如下: