html meta http-equiv=Refresh content=2 !-- Place this code into an ASP Page and run it! -- code Random FileName Creation % Function Generator(Length) dim i, tempS, v di...【
查阅全文】
%@LANGUAGE=VBSCRIPT CODEPAGE=936% % ---------------------------------------------------------------------------------------- 转发时请保留松餍畔?这段声明不并会影响你的显示速度! **...【
查阅全文】
现在基于Web页的HTML的编辑器在新闻系统,文章系统中用得越来越广,一个网页一粘就可以保持原来的样式,同时图片也可以在这个页中保持。但是在使用过程中,如果所粘贴页中的图片被删除,就会在自...【
查阅全文】
% Dim myarr For i = 0 To 100 Randomize no = Int((1000-1+1)*Rnd+1) For j = 0 To i If no myarr(j) And no Then j = j + 1 Else Exit For End If myarr(i) = no Next If i = 21 Then Exit Fo...【
查阅全文】
FSO,正如UFO般令人激动、令人神往,当然更多的亦是让人欢喜让人忧。君不见某空间 服务 商广告:100MB空间只要60RMB/年,支持 数据库 ,支持什么什么一问不支持FSO,立马泄气。那FSO究竟是什么东...【
查阅全文】
判断访问是否来自搜索引擎的函数,有兴趣的可以试试! % '检查当前用户是否是蜘蛛人 Function check(user_agent) allow_agent=split(Baiduspider,Scooter,ia_archiver,Googlebot,FAST- Web Craw...【
查阅全文】
FileSystemObject中有个方法创建文件夹的方法CreateFolder,但是这个方法只能在其上一级文件夹存在的情况下创建新的文件夹,所以我就写了一个自动创建多级文件夹的函数,在生成静态页面等方面使...【
查阅全文】
Class QuickDb Private Conn, ConnStr Private SqlDatabaseName, SqlPassword, SqlUsername, SqlLocalName, SqlNowString Public rs Private Sub Class_Initialize() SqlDatabaseName = db SqlU...【
查阅全文】
'asp远程读取网页源代码 '读取数据 Function GetURL(URL) Set http=Server.CreateObject(Microsoft.XMLHTTP) On Error Resume Next http.Open GET,URL,False http.send() if Err then Err.Clear...【
查阅全文】