原理 采集程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻采集程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目...
接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍微修改即可使用。 代码如下:<% sub AdminEdit() dim Action,rsCheckAdd,rs,sql Action=request.QueryString("Action") if Action="SaveEdit" then '保存编辑管理员信息 set rs = server.createobject("adodb.recordset") if Res...
方法一：简单，得不到参数，只有一个虚拟路径 代码如下:GetUrl =request("url") 例如：http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd 获取为:shiyan.asp 代码如下:<% dim changdu,url,ends,wurl changdu=len(request.ServerVariables("URL")) url=instrrev(request.ServerVariables("URL"),"/") url=url+1 ends=changdu+1-url wurl=mid(request.ServerVariables("URL"),url,ends) %> 方法二：得到整个URL，得到参数 代...
用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么采集程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。一、事例 下面就XMLHTTP在ASP中的应用做个简单说明 ...
代码如下:<% Function ReplaceUrl2(HTMLstr) Dim n,str1,str2,str3,str4 HTMLstr = Lcase(HTMLstr) For n=1 to Ubound(Split(HTMLstr,"<a")) str1 = Instr(HTMLstr,"<a") str2 = Instr(str1,HTMLstr,">") HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2))) HTMLstr = replace (HTMLstr,"</a>","") ReplaceUrl2 = HTMLstr Next End Function %> 正则表达式去除链接： 代码如下:Function RegRemo...
代码如下:Function splitx(strs1 As String, strs2 As String, n As Integer) '自定义分段函数 splitx([字符串],"分隔符",第n段) Dim groupST() As String groupST = Split(strs1, strs2) If UBound(groupST) < n - 1 Then splitx = 0 Else splitx = groupST(n - 1) End If End Function '/------------------------------------- Function minx(KSMC As String, lb As String, kmi As String, n As String) '第N名的成绩 minx([考...
代码如下:'************************************ '截取文字长度函数，支持UTF-8 '输入参数： ' 1、文字内容 ' 2、文字最大长度 '************************************ Public Function Cut_Title(Title,TLen) Dim k,i,d,c Dim iStr Dim ForTotal If CDbl(TLen) > 0 Then k=0 d=StrLen(Title) iStr="" ForTotal = Len(Title) For i=1 To ForTotal c=Abs(AscW(Mid(Title,i,1))) If c>255 Then k=k+2 Else k=k+1 End If iStr=iStr&M...
代码如下:<% sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS) Function strUnicodeLen(asContents) '计算unicode字符串的Ansi编码的长度 asContents1="a"&asContents len1=len(asContents1) k=0 for i=1 to len1 asc1=asc(mid(asContents1,i,1)) if asc1<0 then asc1=65536+asc1 if asc1>255 then k=k+2 else k=k+1 end i...
函数可以参考： 代码如下:<% '注册论坛用户,参数说明 'username 用户登录名称 'password 用户有登录密码 'groupid 用户组id,高级会员，用户组id为17；正式会员，用户组id为18;普通会员,则用户组id为10 'email,realname,mobile,phone 电子邮件，真实姓名，手机，电话 sub regbbsuser(username,password,groupid,email,realname,mobile,phone) '数据库连接 MM_conn_bbs_STRING="Driver={SQL Server};server=SURUI;uid=sa;pwd=sa;data...
aspjpeg组件实现加水印函数的调用方法： <%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") %> 代码如下:function printwater(waterpath,upfilepath) Dim Logobox,LogoPath,ogvbox LogoPath = Server.MapPath(waterpath) Set Logobox = Server.CreateObject("Persits.Jpeg") Logobox.Open LogoPath Logobox.Width = 108 Logobox.Height = 65 Set ogvbox = Server.CreateObject("Persits.Jpeg") ogvbox.Open Trim(...
'************************************* '读取文件 '************************************* Function LoadFromFile(ByVal File) Dim objStream Dim RText RText = Array(0, "") Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Type = 2 .Mode = 3 .Open .Charset = "utf-8" .Position = objStream.Size On Error Resume Next .LoadFromFile Server.MapPath(File) If Err Then RText = Array(Err.Number, ...
Function closeUBB(strContent) '************************************* '自动闭合UBB '************************************* Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match Set re = New RegExp '申明re对象 re.IgnoreCase = True '设置是否区分字符大小写 re.Global = True '设置全局可用性 arrTags = Array("code", "quote", "list", "color", "align", "font", "size", "b", "i", "u", "html") '建立数组，存...
'************************************* 'asp计算随机数 '************************************* Function randomStr(intLength) Dim strSeed, seedLength, pos, Str, i strSeed = "abcdefghijklmnopqrstuvwxyz1234567890" seedLength = Len(strSeed) Str = "" Randomize For i = 1 To intLength Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1) Next randomStr = Str End Function
以下是SQL连接代码： 代码如下:Function Open_conn() dim Conn,Strconn set Conn=server.createobject("adodb.connection") Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);" Conn.open Strconn set Open_conn=Conn If Err Then err.Clear Conn.close:set Conn=nothing Response.Write "对不起，数据库连接出错。" Response.End En...
<% Function cutbadchar(str) badstr="不|文|明|字|符|列|表|格|式" badword=split(badstr,"|") For i=0 to Ubound(badword) If instr(str,badword(i)) > 0 then str=Replace(str,badword(i),"***") End If Next cutbadchar=str End Function Response.Write cutbadchar("中国不阿斗发射点发明") %>