ASP_学聚网——聚合学习资源

//假如虚拟目录名为''Webtest''，先在项目中引用 //System.DirectoryServices.dll，再 using System.DirectoryServices; protected System.DirectoryServices.DirectoryEntry dirroot; 1、添加新的虚拟目录 DirectoryEntry newVirDir = dirroot.Children.Add(''Webtest'',''IIsWebVirtualDir''); newVirDir.Invoke(''AppCreate'',true); newVirDir.CommitChanges(); dirroot.CommitChanges(); 2、更改虚拟目录属性 //虚拟目录的属性较常用的有:AccessRead,AccessWrite,AccessExecute,AccessScript,DefaultDoc,EnableDefaultDoc,Path等 DirectoryEntry Dirport = dirroot.Children.Find(''Webtest'',''IIsVirtualDir''); Dirport .Properties[''AccessRead''][0] = true; 3、删除虚拟目录 DirectoryEntry Dirport = dirroot.Children.Find(''Webtest'',''IIsVirtualDir''); Dirport.Invoke(''AppDelete'',true); dirroot.CommitChanges..
　　[阅读全文]　　[返回页首]

dim char_array(35) char_array(0) = '0' char_array(1) = '1' char_array(2) = '2' char_array(3) = '3' char_array(4) = '4' char_array(5) = '5' char_array(6) = '6' char_array(7) = '7' char_array(8) = '8' char_array(9) = '9' char_array(10) = 'A' char_array(11) = 'B' char_array(12) = 'C' char_array(13) = 'D' char_array(14) = 'E' char_array(15) = 'F' char_array(16) = 'G' char_array(17) = 'H' char_array(18) = 'I' char_array(19) = 'J' char_array(20) = 'K' char_array(21) = 'L' char_array(22) = 'M' char_array(23) = 'N' char_array(24) = 'O' char_array(25) = 'P' char_array(26) = 'Q' char_array(27) = 'R' char_array(28) = 'S' char_array(29) = 'T' char_array(30) = 'U' char_array(31) = 'V' char_array(32) = 'W' char_array(33) = 'X' char_..
　　[阅读全文]　　[返回页首]

1.建立文件<%dim fso set fso = Server.Createobject(''Scripting.FileSystemObject'')set file1=fso.openTextFile(server.mappath(''\zgxy\cj\''+request(''dw'')+''.txt''),2,true)While ((Repeat1__numRows <> 0) AND (NOT qb.EOF))file1.write(qb.Fields.Item(''gh'').Value)file1.write('' '')file1.write(qb.Fields.Item(''xm'').Value)file1.write('' '')file1.write(qb.Fields.Item(''dwmc'').Value)file1.writeblanklines(''1'')Repeat1__index=Repeat1__index+1Repeat1__numRows=Repeat1__numRows-1qb.MoveNext()Wendset file1=nothingset fso=nothing %>2、编辑文件<%dim fso set fso = Server.Createobject(''Scripting.FileSystemObject'')set file1=fso.openTextFile(server.mappath(''\zgxy\cx\testfile.txt''),8)file1.write(request.Form(''gh''))file1.write('' '')file1.writeblanklines(''1'')set file1=nothingset fso=n..
　　[阅读全文]　　[返回页首]

'#############################字符串转二进制函数######################## Function sTb(str, charSet) ''''''''''''''''''''''''''''' ' 字符串转二进制函数 By shawl.qiu ' http://blog.csdn.net/btbtd '''''''''''''''' ' 参数说明 '''''''''' ' str: 要转换成二进制的字符串 ' charSet: 字符串默认编码集, 如不指定, 则默认为 gb2312 '''''''''' ' sample call: response.binaryWrite sTb(str, ''utf-8'') ''''''''''''''''''''''''''''' dim stm_ set stm_=createObject(''adodb.stream'') with stm_ .type=2 if charSet<>'''' then .charSet=charSet else .charSet=''gb2312'' end if .open .writeText str ..
　　[阅读全文]　　[返回页首]

来自 <%sub autopage()dim Maxpagelen,page,content,PageNumber,ArticleIDdim contentlendim BeginPoint,EndPointMaxpagelen=1000content=ubbcode(rs(''content''))ArticleID=rs(''ArticleID'')contentlen=len(content)page=request.QueryString(''page'')if contentlen<=Maxpagelen then response.Write contentelse if page='''' thenpage=1elsepage=Cint(page)end if if pageNumber*MaxPagelen<contentlen thenPageNumber=PageNumber+1end ifPageNumber=int(contentlen/Maxpagelen)+1if page<1 then page=1if page>PageNumber then page=PageNumberif page=1 thenBeginPoint=1elseBeginPoint=MaxPagelen*(page-1)+1end ifif page=PageNumber thenEndPoint=contentlenelseEndPoint=MaxPagelen*page if EndPoint>=ContentLen thenEndPoint=ContentLenend ifend ifcontent=Mid(content,BeginPoint,EndPoint-BeginPoint) response.Write ..
　　[阅读全文]　　[返回页首]

一段ASP防采集的代码 <% '作用:文字防复制乱码 函数 'Date:2006-3-6 '作者:blue2004 '参数str 为原文,str1作者也是你自己,reslut产生乱码的种子 Function ReadToCode(str,Str1,result) dim name dim i,j,k If isnull(str) then ReadToCode='''' Exit Function End If Randomize k=instr(str,''</P>'') Do while k>0 result='''' for i=0 to 19 j=Int(128 * Rnd)+1 if j=60 or j=62 then j=j+1 end if result =result&am..
　　[阅读全文]　　[返回页首]

用ASP实现分级权限控制 　　本文实现的是一个帐务管理系统中分级权限的控制，程序使用ASP和JavaScript编写，在装有IIS4.0的win NT服务器上运行，速度快，易维护。权限级别划分如下：①、院长和财务科长：不能输入，可以无限制查询、统计；②、副院长：不能输入，可以查询、统计其分管部门的帐务；③、部门领导：不能输入，可以查询、统计本部门的帐务；④、会计：能输入各部门的帐务（一个会计有时要做几个部门的帐），只能查询、统计自己输入的帐务。涉及的数据库和字段如下①、JK_USER数据库及字段：id(序列号),bmid（部门号）,username（用户名）,pwd（口令）,right（权限值）；②、BM数据库及字段:id(序列号) ,bmid(部门号)；③、JZPZ数据库及字段：id(序列号)，bm(部门)， zgs(子公司)，xmz(项目组)，xm（项目），sr（收入），zc(支出)，szfx(收支方向),szxs(收支形式),rq(日期),jbr(经办人),lrr（录入人），szsm(收支说明)； ④、ZGS数据库及字段：id（..
　　[阅读全文]　　[返回页首]

在aps.net中多数据绑定的控件很多，论功能来说，应该属DataGrid最为齐全，但它没有提供现成的显示记录序号的功能，不过我们可以通过它所带的一些参数来间接得到序号，下面来看看怎样得到和显示序号值计算方式如下： (1)在后台 DataGrid.CurrentPageIndex * DataGrid.PageSize + e.Item.ItemIndex + 1 (2)在前台 DataGrid1.CurrentPageIndex * DataGrid1.PageSize + Container.ItemIndex + 1 说明： e表示System.Web.UI.WebControls.DataGridItemEventArgs参数类的实例； DataGrid1这里表示前台的一个实例； DataGrid.CurrentPageIndex：获取或设置当前显示页的索引； DataGrid.PageSize ：获取或设置要在 DataGrid 控件的单页上显示的项数。 下面我使用了4种方法来在前台显示序号，不过都是围绕上面的计算式展开。 （1） 使用DataGrid的ItemCreated设置值，而前台的单元格可以是绑定列或者模板列(包括空模板)； （2） 使用DataGrid的ItemDataBoun..
　　[阅读全文]　　[返回页首]

本文通过一个实例概要讲解如何在ASP.NET程序中配合SQL Server2000进行word文件的存储和调用过程(没有使用VBA )。 (1) 建立数据库 首先，我们在数据库中建立一个表，表中有三个字段，fileName(varchar,50)，postTime(datetime,8), fileContent(image,16),分别存储文件名称，上传时间和word文件的具体内容，其中fileName为主键。具体的SQL脚本如下： CREATE TABLE [dbo].[word] ( [fileName] [varchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL , [postTime] [datetime] NOT NULL , [fileContent] [image] NOT NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] (2) 上传并存储word文件 在VS.NET中建立一个ASP.NET web应用程序，在界面内加入如下控件 控件类型 ID Text 说明 Label Label1 请输入文档的标题 Label Label2 请选择具体文档 File Field File1 上传控件(要将此HTML控件转化为服务器控件) Te..
　　[阅读全文]　　[返回页首]

利用ASP嵌套JS+SQL Server打造两级连动下拉框（2） TwoLevel.asp <html> <head> <meta http-equiv=''Content-Type'' content=''text/html; charset=gb2312''> <meta name=''GENERATOR'' content=''Microsoft FrontPage 4.0''> <meta name=''ProgId'' content=''FrontPage.Editor.Document''> <title>下拉列表示例</title> </head> <% dim conn dim connstr on error resume next set conn=server.CreateObject(''ADODB.connection'') connstr=''driver={SQL Server};server=wen;uid=sa;pwd=;database=DB_ProvinceCat'' conn.Open connstr set Rs=server.createobject(''ADODB.recordset'') Rs.CursorLocation = adUseClient SQL=''Select * from Tb_Province'' Rs.open SQL,conn,1,1 if N..
　　[阅读全文]　　[返回页首]

页面文件(ClientCallback.aspx): <%@ Page Language=''C#'' AutoEventWireup=''true'' CodeFile=''ClientCallback.aspx.cs'' Inherits=''ClientCallback'' %> <!DOCTYPE html PUBLIC ''-//W3C//DTD XHTML 1.1//EN'' ''http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd''> <html xmlns=''http://www.w3.org/1999/xhtml'' ><head id=''Head1'' runat=''server''> <script type=''text/javascript''> function LookUpStock() { var lb = document.forms[0].ListBox1; var product = lb.options[lb.selectedIndex].text CallServer(product, ''abc''); } function ReceiveServerData(rValue) { Results.innerText = rValue; } </script></head><body> <form id=''form1'' runat=''server''> <div> <asp:ListBox ID=''ListBo..
　　[阅读全文]　　[返回页首]

本例完成的功能就是防止用户重复登录！若用户已经 登录，则当其再次登录时，弹出提示框后返回！ 实现思路：用户登录成功后，将用户登录信息存放到 Hashtable类型的Application[''Online'']里面，其键 值为SessionID，其Value值为用户ID；当用户注销时 ，调用Session.Abandon；在Global.asax里面的 SessionEnd事件中，将用户ID从Hashtable中删除；在 用户访问页面时，察看Hashtable中是否有对应的用户 ID如果没有则判断用户不在线（用户不在线的原因可 能是按了注销按钮、网页超时等） 1、公用类中判断用户是否在线的函数（供用户调用）/// <summary> /// 判断用户strUserID是否包含在Hashtable h中 /// </summary> /// <param name=''strUserID''></param> /// <param name=''h''></param> /// <returns></returns> public static bool AmIOnline(string strUserID,Hashtable h) { if(strUserID..
　　[阅读全文]　　[返回页首]

在DataGrid的多个分页中，删除末页最后一条记录的时候，经常会出现： 无效的 CurrentPageIndex 值。它必须大于等于 0 且小于 PageCount。 说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.Web.HttpException: 无效的 CurrentPageIndex 值。它必须大于等于 0 且小于 PageCount。 现在只要把下面这段代码，加到DataGrid的DeleteCommand事件中，就可以彻底解决改异常。 注：[protected System.Web.UI.WebControls.DataGrid dg]; if((dg.CurrentPageIndex==dg.PageCount-1)&&dg.Items.Count==1) { if(dg.CurrentPageIndex-1>1) { dg.CurrentPageIndex = dg.CurrentPageIndex-1; } else { dg.CurrentPageIndex = 0; } } this.open_sql(); dg.DataBind();
　　[阅读全文]　　[返回页首]

接口xml文件格式 <info> <rec> <depID>所属栏目</depID> <smallClassID>所属信息单位</smallClassID> <type>信息发布形式</type> <keyWord>关键字</keyWord> <title>新闻标题</title> <author>作者</author> <original>原出处</original> <content>新闻内容</content> </rec> <rec> <depID>所属栏目</depID> <smallClassID>所属信息单位</smallClassID> <type>信息发布形式</type> <keyWord>关键字</keyWord> <title>新闻标题</title> <author>作者</author> <original>原出处</original> <content>新闻内容</content> </rec> </info> 注：..
　　[阅读全文]　　[返回页首]

看到很多站长工具网，都提供了通过域名获取网站IP的方法。自己也想做一个，网上查了不少代码。有说用WSHSHELL，也有说用ASPPING组件。我在用WSHSHELL组件的时候，老是提示拒绝访问，网上搜索解决方案，说是权限问题，但是又没有具体的权限设置方案。用ASPPING组件，返回的PING值为空。于是上国外网站搜索其他的asp组件，终于找到可用而且免费的ASP组件，代码也非常简单，而且获取域名对应的IP速度也挺快。 代码为：<%Set DNS = CreateObject(''TCPIP.DNS'')ip = DNS.GetIPByHost()response.write IP%>组件和代码下载地址为：http://www.linkhelper.cn/download/tcpipdns.rar
　　[阅读全文]　　[返回页首]

一、遇到的权限问题。 我们在打包网站的时候经常会遇到权限问题。因为现在的虚拟主机的安全性不断的在提高，很多虚拟主机都禁用了WScript.shell。因为这个对象可以执行一些cmd命令，对虚拟主机的安全具有很大的威胁。记得前几年我在学习网络安全的时候，通过一些漏洞获得了网站的weshell后很多的虚拟主机都可以执行cmd命令，例如webshell中执行netstat -na 来查看服务器端口。可是现在由于虚拟空间销售商安全意识的提高，大多数的虚拟主机都禁用了wscript.shell。为什么要提到wscript.shell呢？因为我记得那时候程序打包利用的是rar，dos下的rar来压缩整个网站，而rar需要执行dos命令也就是利用wscript.shell来执行cmd命令。二、 禁用了wscript.shell怎么办呢？ 我最近就遇到了这样一个问题，其他网络公司的一个客户想把自己的网站(某净化工程公司)转移到我们公司来维护，但是由于网络公司拒绝提供网站的ftp，如何拿到这个网站的源代码呢，只有获得..
　　[阅读全文]　　[返回页首]

来自 asp中Session的工作原理：asp的Session是具有进程依赖性的。ASP Session状态存于IIS的进程中，也就是inetinfo.exe这个程序。所以当inetinfo.exe进程崩溃时，这些信息也就丢失。另外，重起或者关闭IIS服务都会造成信息的丢失。asp.net Session的实现asp.net的Session是基于HttpModule技术做的，HttpModule可以在请求被处理之前，对请求进行状态控制，由于Session本身就是用来做状态维护的，因此用HttpModule做Session是再合适不过了。原因1：bin目录中的文件被改写，asp.net有一种机制，为了保证dll重新编译之后，系统正常运行，它会重新启动一次网站进程，这时就会导致Session丢失，所以如果有access数据库位于bin目录，或者有其他文件被系统改写，就会导致Session丢失原因2：文件夹选项中，如果没有打开“在单独的进程中打开文件夹窗口”，一旦新建一个窗口，系统可能认为是新的Session会话，而无法访问原来的Session，所以需要打开该选项，否则会导..
　　[阅读全文]　　[返回页首]

来自 用ASP给图片加水印aspjpeg|wsImage组件注册组件的方法: 命令提示符下输入''regsvr32 [Dll路径]'' 就可以了 图片添加水印无非就是获得图片大小,然后把水印写上去..ASP代码只是起个控制组件的作用.用代码来说明一切吧. 一:获得图片大小(这里是用象素值表示的.学PhotoShop的朋友都应该明白) <% set obj=server.CreateObject(''wsImage.Resize'') ''调用组件 obj.LoadSoucePic server.mappath(''25.jpg'') ''打开图片,图片名字是25.jpg obj.GetSourceInfo iWidth,iHeight response.write ''图片宽度:'' & iWidth & ''<br>'' ''获得图片宽度 response.write ''图片高度:'' & iHeight & ''<br>'' ''获得图片高度 strError=obj.errorinfo if strError<>'''' then response.write obj.errorinfo end if obj.free set obj=nothing %> ''----------------------------------------------------------------'' 二:..
　　[阅读全文]　　[返回页首]

来自 <%Const ForReading=1Const TristateTrue=-1 'UnicodeConst FILE_TRANSFER_SIZE=16384 '16k 'Use the following line for IIS4/PWS - this is the default for IIS5Response.Buffer = True Function TransferFile(path, mimeType, filename)Dim objFileSystem, objFile, objStreamDim charDim sentsend=0TransferFile = True Set objFileSystem = Server.CreateObject(''Scripting.FileSystemObject'')Set objFile = objFileSystem.GetFile(Path)Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue) Response.AddHeader ''content-type'', mimeTyperesponse.AddHeader ''Content-Disposition'',''attachment;filename=''&filename Response.AddHeader ''content-length'', objFile.Size Do While Not objStream.AtEndOfStreamchar = objStream.Read(1)Response.BinaryWrite(char)sent = sent + 1If (sent MOD FILE_TRAN..
　　[阅读全文]　　[返回页首]

本文将向大家介绍使用ASP.net 2.0 开发自定义的数据分页控件 数据分页的好处 1、减少网络流量 2、提高运行效率 在大数据量时，数据分页是一个必须面对的现实，没有哪个客户愿意花上几分钟或更多的时间来等待。数据分页也有多种方式比如内存分页 SQL Server 存储过程分页等，这里将向大家介绍的是 SQL Server 存储过程分页方式，并结合ASP.net 2.0 的来编写一个通用的数据分页控件。 本文使用的存储过程来自 http://www.codeproject.com/aspnet/PagingLarge.asp 在这里感谢作者，他为我们提供了多种存储过程分页方法的速度对比。 现在启动你的Visual Studio 2005 然后新建一个类库项目取名为SqlPaging 如下图 然后添加两个类文件取名为AssemblyInfo及SqlPaging如下图 然后打开本工程的属性对话框将程序集名称设置SqlPaging 将根命名空间设置为DRMSystem 将应用程序类型设置为 Web 控件库如下图 打开 AssemblyInfo类输入如下代码 Im..
　　[阅读全文]　　[返回页首]

Array()　　函数说明: 返回一个数组　　语法格式: Array(list)　　参数说明: 字符，数字均可　　代码范例: Dim User=Array(''张三'',''李四'',''王五'')　　返回结果: 建立了一个包含3个元素的数组CInt()　　函数说明: 将一个表达式转化为数字类型　　语法格式: CInt(expression)　　参数说明: 任何有效的字符均可　　代码范例: CInt(236.42)　　返回结果: 236 (如果字符串为空，则返回0值)CreateObject()　　函数说明: 建立和返回一个已注册的ACTIVEX组件的实例。　　语法格式: CreateObject(objName)　　参数说明: objName 是任何一个有效、已注册的ActiveX组件的名字.　　代码范例: Set Conn=Server.CreateObject(''Adodb.Connection'')　　返回结果:无CStr()　　函数说明: 转化一个表达式为字符串.　　语法格式: CStr(expression)　　参数说明: expression 是任何有效的表达式。　　代码范例: Response.Write CStr(123)　　返回结果: ''123''Date()　　函..
　　[阅读全文]　　[返回页首]

Asp运行时间在写程序，尤其是测试数据库时会经常用到，我们无论做什么程序，在制作阶段，都在bottom.asp之类的页面中加入这类代码，总是一种很不错的习惯。<%dim end_time,time_ijobend_time=timer()time_ijob=FormatNumber((end_time-startime),2)if time_ijob<1 thenresponse.write ''执行时间：<font color=''''#ff0000''''>0''&time_ijob&''</font>秒''elseresponse.write ''执行时间：<font color=''''#ff0000''''>''&time_ijob&''</font>秒''end if%>
　　[阅读全文]　　[返回页首]

内码问题.用这段代码的吧,我已经改得很精简了.'使用XMLHTTP抓取地址并进次内容处理Function GetBody(Url) Dim objXMLOn Error Resume NextSet objXML = CreateObject(''Microsoft.XMLHTTP'') With objXML .Open ''Get'', Url, False, '''', '''' .Send GetBody = .ResponseBodyEnd With GetBody=BytesToBstr(GetBody,''GB2312'')Set objXML = Nothing End Function'使用Adodb.Stream处理二进制数据Function BytesToBstr(strBody,CodeBase)dim objStreamset objStream = Server.CreateObject(''Adodb.Stream'')objStream.Type = 1objStream.Mode =3objStream.OpenobjStream.Write strBodyobjStream.Position = 0objStream.Type = 2objStream.Charset = CodeBaseBytesToBstr = objStream.ReadText objStream.Closeset objStream = nothingEnd Function
　　[阅读全文]　　[返回页首]

---提交页面upload.htm---主要是表单和文件域，这里无所谓, 把他连接到upload_ok.asp就可以了------处理页面upload_ok.asp代码------'导入upload_5xsoft.inc<!--# file=''upload_5xsoft.inc''--><% dim upload,objFile,formName,formPath,iCountset upload=new upload_5xSoft ''建立上传对象iCount=0for each formName in upload.objFile ''列出所有上传了的文件set objFile=upload.file(formName) ''生成一个文件对象if objFile.FileSize>0 and objFile.FileSize<150000 then ''如果 FileSize > 0 说明有文件数据objFile.SaveAs Server.mappath(''image\''&objFile.FileName) ''保存文件iCount=iCount+1elseresponse.Write(''图片文件不得超过150k！'')response.End()end ifset objFile=nothingnextset upload=nothing ''删除此对象%>-----------upload_5xsoft.inc--------<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>dim Data_..
　　[阅读全文]　　[返回页首]

在要转换的页面加入以下内容<a style=''COLOR: red'' name=StranLink>繁體中文</a><script language=''javascript'' src=''toGB.js''></script>-----下面是toGB.js内容//简繁转换 17ex.comvar Default_isFT = 0 //默认是否繁体，0-简体，1-繁体var StranIt_Delay = 50 //翻译延时毫秒（设这个的目的是让网页先流畅的显现出来）//－－－－－－－代码开始，以下别改－－－－－－－//转换文本function StranText(txt,toFT,chgTxt){if(txt==''''||txt==null)return ''''toFT=toFT==null?BodyIsFt:toFTif(chgTxt)txt=txt.replace((toFT?''简'':''繁''),(toFT?''繁'':''简''))if(toFT){return Traditionalized(txt)}else {return Simplized(txt)}}//转换对象，使用递归，逐层剥到文本function StranBody(fobj){if(typeof(fobj)==''object''){var obj=fobj.childNodes}else {var tmptxt=StranLink_Obj.innerHTML.toString()if(tmptxt.indexO..
　　[阅读全文]　　[返回页首]

方法一 : 禁用HTML 最简单的方法是直接禁用html标签而不用移除它们. 可以使用Replace()函数. 例如: strText = Replace(strText, ''<script'', ''<script'', 1, -1, 1) 或者直接禁用所有的html: strText = Replace(strText, ''<'', ''<'') 这样做虽然很安全,但显得不够友好.(用户提交的文本会变得难以阅读) 方法二: 使用''<''和''>'' 怎样使得html标签从文本中消失呢? 我们可以去掉''<''和''>''中间的所有内容 在JavaScript中这很简单: function RemoveHTML( strText ) { var regEx = /<[^>]*>/g; return strText.replace(regEx, ''''); } 关于正则表达式可以参考: http://developer.netscape.com/docs/manuals/js/client/jsguide/regexp.htm. 现在回到VBScript, 对于Scripting引擎5.0或更高版本(可以通过调用ScriptEngineMajorVersion和ScriptEngineMinorVersion函数来检验版本),..
　　[阅读全文]　　[返回页首]

网络大本营 在一般情况下，SQL Server 会自动完成数据类型的转换，例如，可以直接将字符数据类型或表达式与DATATIME 数据类型或表达式比较当表达式中用了INTEGER、 SMALLINT或TINYINT 时，SQL Server 也可将INTEGER 数据类型或表达式转换为SMALLINT数据类型或表达式，这称为隐式转换。如果不能确定SQL Server 是否能完成隐式转换或者使用了不能隐式转换的其它数据类型，就需要使用数据类型转换函数做显式转换了。此类函数有两个： ·CAST（）CAST（） 函数语法如下：CAST （<expression> AS <data_ type>[ length ]）·CONVERT（）CONVERT（） 函数语法如下：CONVERT （<data_ type>[ length ]， <expression> [， style]） 提醒： 1、data_type为SQL Server系统定义的数据类型，用户自定义的数据类型不能在此使用。2、length用于指定数据的长度，缺省值为30。3、把CHAR或VARCHAR类型转换为诸如INT或SAMLLINT这样的INTEGER类型、结..
　　[阅读全文]　　[返回页首]

前言： 半年前我对正则表达式产生了兴趣，在网上查找过不少资料，看过不少的教程，最后在使用一个正则表达式工具RegexBuddy时发现他的教程写的非常好，可以说是我目前见过最好的正则表达式教程。于是一直想把他翻译过来。这个愿望直到这个五一长假才得以实现，结果就有了这篇文章。关于本文的名字，使用“深入浅出”似乎已经太俗。但是通读原文以后，觉得只有用“深入浅出”才能准确的表达出该教程给我的感受，所以也就不能免俗了。 本文是Jan Goyvaerts为RegexBuddy写的教程的译文，版权归原作者所有，欢迎转载。但是为了尊重原作者和译者的劳动，请注明出处！谢谢！ 1.什么是正则表达式 基本说来，正则表达式是一种用来描述一定数量文本的模式。Regex代表Regular Express。本文将用<<regex>>来表示一段具体的正则表达式。 一段文本就是最基本的模式，简单的匹配相同的文本。 2.不同的正则表达式引擎 正则表达式引擎是一种可以处理正则..
　　[阅读全文]　　[返回页首]

<%dim RefreshIntervalTimeRefreshIntervalTime = 3 '防止刷新的时间秒数，0表示不防止If Not IsEmpty(Session(''visit'')) and isnumeric(Session(''visit'')) and int(RefreshIntervalTime) > 0 Then if (timer()-int(Session(''visit'')))*1000 < RefreshIntervalTime * 1000 then Response.write (''<meta http-equiv=''''refresh'''' content=''''''& RefreshIntervalTime &'''''' />'') Response.write (''刷新过快，请稍候'') Session(''visit'') = timer() Response.end end ifEnd IfSession(''visit'') = timer()%><!DOCTYPE HTML PUBLIC ''-//W3C//DTD HTML 4.01 Transitional//EN''><html><head><title>Asp如何防止网页频繁刷新-wwww.zhangpeng.com.cn</title><meta http-equiv=''Content-Type'' content=''text/html; charset=gb2312''><link rel=''stylesheet'' type=''t..
　　[阅读全文]　　[返回页首]

asp 文件拷贝，关键fso.CopyFile from_path,aim_path！ Set fso = CreateObject(''Scripting.FileSystemObject'') from_path=Server.MapPath(''download\reg1.jpg_1001'') if fso.FileExists(from_path) then response.Write(''文件存在<br>'')elseresponse.Write(''文件不存在<br>'')end ifaim_path=Server.MapPath(''pic'')&''\reg1_1001.jpg''fso.CopyFile from_path,aim_path
　　[阅读全文]　　[返回页首]