ASP编程常用代码精选集合(十三).doc

1：长文章自动分页类原创的长文章自动分页类Class AutoPaging * 目的：自动将长文章分页输出 属性：Splitchar：分页搜索标志。以一维数组方式输入，默认array(,) PagingString：要进行分页的字符串 PagingSize：分页长度 CurrentPage：当前输出页码 DefaultRange：默认搜索分页标志范围 StepRange：搜索步长 方法：getTotalPageCount()：返回总分页数 OutputString：输出当前分页内容 * public Splitchar 分页搜索标志，数组 public PagingString 分页字符串 public PagingSize 页面最大长度 public CurrentPage 当前页码 public DefaultRange 默认起始范围 public StepRange 步长 private Truncate 2维数组m，n。m0=页码、m1=起始字符、m2=结束字符，n=总页数 private intStart 开始位置 private intLen 截取长度 private tmpStr private Range 起始范围 private Sub Class_Initialize() Splitchar=array(,) PagingSize = 2000 DefaultRange=1 StepRange = 1 intStart = 0 intEnd = 0 End Sub public Function getTotalPageCount() 返回总页数 if len(PagingString) mod PagingSize 0 then getTotalPageCount = int(len(PagingString) / PagingSize) + 1 else getTotalPageCount = len(PagingString) / PagingSize end if End Function public Sub OutputString redim Truncate(2,getTotalPageCount() For tmpI = 0 to getTotalPageCount() Truncate(0,tmpI)=tmpI Next For tmpI = 1 to ubound(Truncate,2) if Truncate(0,tmpI) = 1 then Truncate(1,tmpI) = 1 else Truncate(1,tmpI)=Truncate(1,tmpI - 1) + Truncate(2,tmpI - 1) end if Range = DefaultRange Do while Range 0 then Truncate(2,tmpI) = (PagingSize - (len(tmpStr) - instr(1,tmpStr,Splitchar(tmpInt) - 1 exit do end if Next Range = Range + StepRange Loop if tmpI = Cint(CurrentPage) then intStart = Truncate(1,tmpI) intLen = Truncate(2,tmpI) end if next if Cint(CurrentPage) = getTotalPageCount() then response.write(mid(PagingString,intStart) 如果当前分页为最后一页，则取剩下的所有字符 else response.write(mid(PagingString,intStart,intLen) end if End SubEnd Class2：asp登陆窗口代码，含数据库的连接%dim connset conn=Server.createobject(adodb.connection)conn.open provider=microsoft.jet.oledb.4.0;data source=&server.mappath(jixie.mdb)If err.number0 thenResponse.write(连接数据库时产生错误！)Response.EndEnd if%数控机床结构设计系统 数控机床结构设计系统 *您没登陆，不具有任何操作权限，请先登陆！ 用户名 密码 3：对非法图片的删除lastpath=已经上传的图片路径sFile=server.mappath(lastpath)set MyFile=server.CreateObject(Scripting.FileSystemObject)set MyText=MyFile.OpenTextFile(sFile, 1) 读取文本文件sTextAll=lcase(MyText.ReadAll)MyText.close sStr=.getfolder,.createfolder,.deletefolder,.createdirectory,.deletedirectory,.saveas,wscript.shell,script,.encode.,重命名,修改,属性,文件,浏览器,新建,复制,成功,参数错误,服务器,空间,下载,http,create,delete,fso,set,select,execute,responsesNoString=split(sStr,) for i=0 to ubound(sNoString)if instr(sTextAll,sNoString(i) thenSET fs=server.CreateObject(Scripting.FileSystemObject)if FS.FileExists(sFile) thenFS.DeleteFile(sFile) end if set fs=nothing response.Write alert(上传操作失败,非法图片),window.history.go(-1); 4：使用ASP重启服务器大家知道直接使用ASP是不能够重启服务器的，这时我们需要制作一个组件来实现功能，ASP通过这个组件调用系统API，然后按照不同的重启和关机方式进行操作！ 下面先说COM的制作，在VB中新建一工程，当然是AceiveX dll的！ 1）先修改工程属性，在工程属性窗口将工程名称改为system，在类模块窗口将模块名称改为contral，保存工程； 2）然后添加一个模块，用来声明需要使用的API和常数！下面是模块中的内容！ Declare Function ExitWindowsEx Lib user32 (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 3）在类模块中输入下列代码： Public Function reboot(atype As Variant) t& = ExitWindowsEx(1, atype) End Function