银狐的专栏

我是在网上找到一个将数据存到Excel表格中的类，然后经过自己修改使用的。我把这个类存成Excel.inc文件。Excel.incClass ExcelGen  Private objSpreadsheet  Private iColOffset  Private iRowOffset  Sub Class_Initialize()   Set objSpreadsheet = Ser

把存储在数据库的图片导入到一个文件夹Dim Conn,ConnStr,Rs,Sql,MyStreamConnStr="DBQ=" + Server.Mappath("数据库.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)};"Set Conn = Server.CreateObject("Adodb.Connection")Conn.

读某目录下所有图片的宽度和高度Dim Conn,ConnStr,Rs,Sql,MyStreamConnStr="DBQ=" + Server.Mappath("数据库.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)};"Set Conn = Server.CreateObject("Adodb.Connection")Conn.Ope

无组件文件是用网上的。我只在这里转载一下。如果禁止转载我马上删掉。上传程序是我写的。有点乱。希望各位看过用过的朋友多提意见。----------------------------------------------------------------------转发时请保留此声明信息,这段声明不并会影响你的速度!*******************   无惧上传类 V1.0  *

 Function Strlen(txt)    txt=trim(txt)    x = len(txt)    y = 0    for ii = 1 to x        if asc(mid(txt,ii,1)) 255 then             y = y + 2        else            y = y + 1        end if    next   

在网上看到的生成静态页的方法。 很是简单有效。发上来共享一下。。暂时只支持单个静态页，如需要批量生成，只要把这段改成函数来调用即可。admin_fso.aspdim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temps_File = Request("file")                  传入文件名参数If s

ajax.js//************************  建立XML对象  **********************function InitAjax(){    var http_request = false;    if (window.XMLHttpRequest){        http_request = new XMLHttpRequest();      

Class ExcelGen Private objSpreadsheet Private iColOffset Private iRowOffset Sub Class_Initialize() Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet") iRowOffset = 2 iColOffset = 2 End Sub

计算一个月有几天参数：fYM 格式 YYYYMMFunction MonthDay(fYM) t_Date = DateAdd("m",1,Left(fYM,4)&"-"&Right(fYM,2)&"-1") MonthDay = Day(DateAdd("d",-1,t_Date))End Function计算一个月有几个周六周日参数：fDate 格式 YYYYMMFunction We

Values for Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") obtained from 164 visitors to asptutorial.info main page: 84 en-us  9 en-gb 9 de 7 nl 5 en-us,zh;q=0.5 4 es 4 en 3 nl-be 3 it 3 eu,en,es 3 en

html { filter:progid:DXImageTransform.Microsoft.BasicImage(grayscale=1); }

汉字转成拼音

window.open 具有焦点，在所有窗口之上

Function ReplaceHtmlTag(HtmlContent) Set re = New RegExp re.Pattern = "]+>" re.Global = True re.IgnoreCase = True re.MultiLine = True ReplaceHtmlTag = re.Replace(HtmlContent,"")End Funct

我这个也是在网上看到的二级连动。个人认为挺不错的。只要将下面代码修改一下就可以使用的。选择大类         Dim RecordCount,BTypeArr     Rs.Open "Select TypeName,TypeID from BType",Conn,1,1　　　查询大类表，获取大类名和ID     RecordCount=Rs.RecordCount     If Re

 其实想实现这种功能很简单，首先要上传一个RAR的解压程序，就是RAR自己的解压程序，只需要它的核心 程序RAR.EXE这个文件就可以了。然后就要上传一个执行RAR.EXE的程序 CMD.EXE 这个是windows里的程序（不必我在多说了吧）。最后就开始执行这些程序了。看一下下面的代码 dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,f

简单的二级树Set Conn = Server.CreateObject("ADODB.Connection")Sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("check.mdb")&";User Id=admin;Password=;"Conn.Open Sqlset rs = server.Crea

Set oScriptHelper = CreateObject("Microsoft.IIsScriptHelper")response.write oScriptHelper.GetEnvironmentVar("%COMPUTERNAME%")

ASP动态网页开发中的WEB打印代码大全 这篇文章主要介绍了如何使用ASP控制Web的各种打印效果，它能够控制纵打、横打和页面边距等。 　　1、控制"纵打"、 "横打"和"页面的边距"。 　　（1）

用的是优快云上一个高手的思想。Redim A_StrA(1000)For i = 0 To 999 A_StrA(i) = iNexts_Str = ""m = 0n = 1Randomize timerFor i = 0 To 1000 i_Rnd = Fix(Rnd * (999 - i + 1)) If m = 50 Then  Response.Write n&":"&s_Str&"

函数格式 root()功能描述 返回一个路径串变量应用代码 sample string = c:/intels/jingcaichunfeng/ Public Function root()  root = Request.ServerVariables("Appl_Physical_Path") End Function 2、url函数格式 url()功能描述 返回一个URL串变量应用代

Rem  ##  长整数转换  Function  toNum(s,  default)             If  IsNumeric(s)  and  s                         toNum  =  CLng(s)             Else                         toNum  =  default             End 

asp论坛在线人数统计研究    本论坛登录是采用用户名登录，登录后取得用户昵称。整个网站不显示用户名，我想相对来说安全一点吧，所以有昵称和用户名区别。  1。建立数据库表  表名为online   设如下字段  id 用来记录每一个访问都的session.sessionid  name 如果是访客，则记录为访客。  online  如果是访各为0 如果是会员1   datetime

1.判断是否有注入;and 1=1;and 1=22.初步判断是否是mssql;and user>03.注入参数是字符and [查询条件] and =4.搜索时没过滤参数的and [查询条件] and %25=5.判断数据库系统;and (select count(*) from sysobjects)>0 mssql;and (select count(*) fr

for each item in Request.Form If Instr(item,".")   Execute "m_"&item &"="""& Trim(Replace(Request.Form(item),"","")) &"""" End If next

1.获得系统时间: 2.取得来访用的IP: 3.获得系统,浏览器版本: window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.") 4.去除IE混动条: 5.进入网站,跳出广告: window.open(http://www.XXXXXX.com,,height=

 1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键no 可用于Table2. 取消选取、防止复制3. onpaste="return false" 不准粘贴4. oncopy="return false;" oncut="return false;" 防止复制5. IE地址栏前换成自己的图标6. 可以在

function ConvertDate(sdate)转换时间格式 on error resume next S_Date = right(year(sdate),2) if len(month(sdate))=1 then   S_Date =S_Date&"0"&month(sdate) else  S_Date =S_Date&month(sdate)  end if  if len(da

这个是我自己想出来的，当时只想到这么个笨方法。看到不少人都在问MYSQL怎么翻页，现在拿出来给大家借鉴一下。如果有好的方法请留言。大家互相探讨。function immeSubmit(fPage,mPageCount){ document.form2.target = "" if (fPage>mPageCount)  fPage=mPageCount; if (fPage  fP

Set Conn = Server.CreateObject("ADODB.Connection")Set Rs = Server.CreateObject("ADODB.Recordset")ConnSQL = "driver={sql server};database=test;server=.;uid=sa;pwd="Conn.open ConnSQL%>