1、ASP两种简单的生成静态首页的方法 为什么要生成静态首页？ 1、如果你首页读取的数据库次数比较多，速度很慢，而且占用很多服务器资源。使用静态页面访问速度当然快多了 2、搜索引擎容易搜索到 3、如果程序出问题，也能保证首页能访问。 4、其他的太多，自己想：） 应用方式： 如果你的首页是index.asp,你可以生成index.htm （默认访问顺序必须是index.htm,index.asp）。这样访问者第一次访问到你的网站的时候打开的是index.htm ...
FSO文件（File）对象属性 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的Drive对象 Name 设定或返回文件的名字 ParentFolder 返回该文件的父文件夹的Folder对象 Path 返回文件的绝对路径，可使用长文件名 ShortName 返回DOS风格的8.3形式的文件名 ShortPath 返回DOS风格的8.3形式的文件绝对...
举例： 如：在字段名处输入:username,password,email,telphone 注意：不同的字段名用英文逗号隔开，且不支持星号 表名处输入要查询的表名:如：table1 前台表单页面： 主要是注意input字段的name属性。 asp下常用的添加数据代码是： 通过adodb.recordset 优点是:数据库入库比较简单，不用考虑单引号问题。不容易出现错误。 代码如下:username = request("username") password = request("password") email = request("email") telp...
删除单条记录 代码如下:id = saferequest("id") sql="delete from table1 where whereid>"&id&"" rs.open sql,conn,1,3 response.write "<script>alert(删除成功);location.href=del.asp;</script>" set rs=nothing set conn=nothing 这是过滤非法字符函数 代码如下:function saferequest(paraname) dim paravalue paravalue=request(paraname) if isnumeric(paravalue) = true then saferequest=paravalue exit function elsei...
代码如下:<% function CHTMLEncode(fString) fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10), "<BR> ") CHTMLEncode= fString end function %> 调用时候使用 <%=CHTMLEncode(rs("字段内容"))%> PHP文本框换行显示 $str = str_replace("\n","<br>", $str);
由于我是用的ff浏览器，一直没发现什么问题。上个礼拜提交给用户看的时候，说用IE登录完之后无效，大惊。结果还真的是这样。。很囧 登录代码如下： 代码如下://从服务器查询是否存在session j.ajax({ type:"GET", url:"sessioncheck.asp", data:"", timeout: 1000, error: function(){ alert(sorry, server is busy now!); }, success:function(comments_data){ if(comments_data == 1){ el.createDialog(opts); j.startOver(); }...
代码如下:<% //hittime 日期型：获得上次访问时间 //hits 数字型：获得总浏览量 //hitsday 数字型：获得今天浏览量 //hitsweeks 数字型：获得本周浏览量 //hitmonths 数字型：获得本月浏览量 数据库中 添加这5个字段。 set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from qwbmnewssss where id=26",conn,1,3 if rs1.eof and rs1.bof then response.write "erry" else hittime = rs1("hittime") 获得上次访问...
代码如下:'================================================ ' 函数名：ChkMapPath ' 作 用：相对路径转换为绝对路径 ' 参 数：strPath ----原路径 ' 返回值：绝对路径 '================================================ Function ChkMapPath(ByVal strPath) Dim fullPath strPath = Replace(Replace(Trim(strPath), "/", "\"), "\\", "\") If strPath = "" Then strPath = "." If InStr(strPath,":\") = 0 Then fullPath = Se...
代码如下:<% webfolder="/" host="index_cn.asp"'前台动态地址 folder="/"'文件夹 filename="index_cn.html"'生成静态文件名 Fso_info host,folder,filename response.write"生成网站中文首页静态HTML完成.<br />" '生成html Function Fso_info(host,folder,filename) host="http://"+Request.ServerVariables("HTTP_HOST")&webfolder&host if SaveFile(""&folder&filename&"",""&host&"") then response.Write ""&folder&filename...
今天重新研究了下VB里面的ScriptControl组件，发现asp里面也能调用。研究了下方法，后来和lcx讨论了下。得到了如下代码，在此感谢前辈的指点，呵呵。 代码很简单，我就不多做解释了，以免有人骂我装。 代码如下:<% Set o = Server.CreateObject("ScriptControl") o.language = "vbscript" o.addcode(Request("SubCode")) '参数SubCode作为过程代码 o.run "e",Server,Response,Request,Application,Session,Error '参数名e 调用之，...
好多网友问起来，·深度学习网址导航·深度学习整站系统的后台管理能否增加批量删除功能，如何加： 就是列出N篇文章或网址信息，每篇文章或网址前有一个复选框，页面最底下有一个按钮“删除”，多选文章或点击删除，选中的文章或网址实现全部删除。。。 这个功能实现起来并不是很难，只是一直没静心弄，今天有空将深度学习网址导航的后台“网站管理”增加了批量删除，捎带将整个操作简单记录如下（具体实例可参照深度学习网址导航后台...
asp函数代码 代码如下:<% Function RemoveHTML(str) Dim objRegExp, Match,strHTML if isnull(str) then str="" end if strHTML=str strHTML=replace(replace(replace(strHTML,vblf,""),vbcr,""),vbcrlf,"") Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<script[^>]*?>.*?</script>" strHTML = objRegExp.Replace(strHTML,"") objRegExp.Pattern = "<style[^>]*?>.*?<...
代码如下： 代码如下:<% 用ASP获取远程目标网页指定内容，代码由广州网站建设//www.gxlsystem.com提供 On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function Newstring(wstr,strng) Newstring=Instr(lcase(wstr),lcase(strng)) if Newstring<=0 then Newstring=Len(wstr) End Function Function BytesToBstr(body,Cset) ...
代码如下:文字水印 Function WordWatermark(ImagePath) Dim Image Set Image= Server.CreateObject("Persits.Jpeg") 建立对象 Image.Open server.mappath(ImagePath) 图片所在位置 Image.Canvas.Font.Color = &H000000 颜色,这里是设置成:黑 Image.Canvas.Font.Family = "宋体" 设置字体 Image.Canvas.Font.Bold = False 是否设置成粗体 Image.Canvas.Font.Size = 26 字体大小 Image.Canvas.Font.Quality = 4 文字清晰度 Imag...
木马原理：入侵者使用诸如ASP图片木马生成器之类的工具将一张正常的图片与一个ASP木马文件合并成一个图片文件（即将对网站有害的 ASP代码插在图片编码之后，虽然图片仍然可以正常显示，但是文件内容和尺寸已被改变），然后通过网站提供的文件上传功能上传这一张“合 '法的”图片，进而实现了上传ASP木马的目的。 ' 防范方法：因为这种木马是图片与木马的二合一，所以需要在上传图片前检查文件内容，若文件内容不合法（即包含有恶意...