代码如下:Dim strName, iLoop For Each strName in Session.Contents Response.Write strName & " - " & Session.Contents(strName)& "[BR]" Next 一般情况下，上面的代码可以工作得很好。但当Session变量是一个对象或者数组时，打印的结果就不正确了。 这样我们修改代码如下： 代码如下:'首先看看有多少Session变量在使用? Response.Write "There are " & Session.Contents.Count & _ " Session variables<P>" Dim strName, iLoo...
代码如下:<% set rs=server.createobject("adodb.recordset") exce="sql" 'sql 查询语句 rs.open exce,conn,1,1 %> 然后是分页属性的设置 <% rs.PageSize=3 ‘设置页码 pagecount=rs.PageCount '获取总页码 page=int(request("page")) '接收页码 if page<=0 then page=1 '判断 if request("page")="" then page=1 rs.AbsolutePage=page '设置本页页码 %> 最后是body里的分页显示 <% if rs.bof and rs.eof then response.write("NUL...
采用双重循环。把图片进行“.”分割后名字问前面部分，那其余数据库中的 图片路径记录进行对比 采用vb的InStr函数 如果存在的话返回值>0,过可以得出结论 代码如下deal.asp 代码如下:<%@ language="vbscript"%> <%response.Expires = 0%> <!--#include file="conn.asp"--> <% Dim objFSO,objFolder,objFile,FF '声明 objFSO 变量存放对象实例 FF = Server.MapPath("pro_s/") Set objFSO = Server.CreateObject("Scripting.FileSyst...
代码如下:Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld) if mulu="" then mulu="/" if htmlmulu="" then htmlmulu="/" mulu=replace(SysRootDir&mulu, "//", "/") htmlmulu=replace(SysRootDir&htmlmulu, "//", "/") FilePath=Server.MapPath(mulu)&"\"&FileName Do_Url="http://" Do_Url=Do_Url&Request.ServerVariables("server_name")&htmlmulu&filefrom Do_Url=Do_Url&"?"&htmla&htmlb&"&"&htmlc&...
这个类主要解决在类型转换时,如果直接使用类型转换函数,会因为变量为空或者格式不对而导致程序报错,而这种报错在大多数情况下是允许的.例如要转换一个字符串变量为数字,如果变量为空,则一般需要自动返回0. 另外一个重要功能就是封装变量格式化操作,可以保持整个网站的输出格式统一,例如时间格式,货币格式等等. 日期和货币格式化的时候,极易遇到因空值报错的情况,一般都不得不写个预判断空值的逻辑,再格式化变量. 使用这个类负责类型...
具体代码实现： 1.模板文件（html） 代码如下:<html xmlns="http://www.gxlsystem.com" target="_blank"><strong>哎呀呀</strong></a> <a href="http://www.gxlsystem.com" target="_blank">哎呀呀加盟</a> <a href="http://www.gxlsystem.com" target="_blank">哎呀呀饰品</a> <script src="http://s23.cnzz.com/stat.php?id=1117055&web_id=1117055" language="JavaScript" charset="gb2312"></script></span> </body> </html> ...
接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍微修改即可使用。 代码如下:<% sub AdminEdit() dim Action,rsCheckAdd,rs,sql Action=request.QueryString("Action") if Action="SaveEdit" then '保存编辑管理员信息 set rs = server.createobject("adodb.recordset") if Res...
代码如下:<% Dim AppealNum,AppealCount AppealNum=10 '同一IP60秒内请求限制10次 AppealCount=Request.Cookies("AppealCount") If AppealCount="" Then Response.Cookies("AppealCount")=1 AppealCount=1 Response.Cookies("AppealCount").Expires=DateAdd("s",60,Now()) Else Response.Cookies("AppealCount")=AppealCount+1 Response.Cookies("AppealCount").Expires=DateAdd("s",60,Now()) End If If Int(AppealCount)>Int(App...
代码如下:<% function CheckFileContent(FileName) dim ClientFile,ClientText,ClientContent,DangerString,DSArray,AttackFlag,k set ClientFile=Server.CreateObject("Scripting.FileSystemObject") set ClientText=ClientFile.OpenTextFile(Server.MapPath(FileName),1) ClientContent=LCase(ClientText.ReadAll) set ClientText=nothing set ClientFile=nothing AttackFlag=false DangerString=".getfolder|.createfolder|.del...
代码如下:<% dim objconn,connstr Set objconn = Server.CreateObject("ADODB.Connection") connstr = "Provider=SQLNCLI;Server=(local);Database=sosuo8.comdatabase;Uid=sa;Pwd=123;" objconn.Open connstr %>
好久没有写ASP代码了，今天在做一个简单的留言本时，出现了一下错误： Microsoft Office Access Database Engine 错误 '80040e14' Insert INTO 语句的语法错误。 上网查了一下资料，才知道该错误是由一下原因造成的： 1)将保留字用作名称。大多数数据库都有一组保留字。例如，"name"是保留字，因而不能用于数据库中的列名称。 2)名称中使用特殊字符。特殊字符的示例包括： . / * : ! # & - ? 3)在列名称中使用空格。 4)当为数据库中...
文章背景： 某天，我的一个同事给我看了CSDN上面的一篇关于编程语言排行榜的文章，里面我看到VB还是排名很不错的，我就说，asp（vbscript）确实挺不错。结果他就反驳我，说asp不好，很多东西很难实现。我说比如哪些东西？我开发了几年的asp都没有发现很难实现的东西，除非是属于非脚本语言范围内的，比如多线程的应用（当然，asp也可以模拟实现多线程任务）等。结果他说了什么多线程，还有编码转换等，说自己曾经为了转换编码费了很...
存储过程采用的是select top 加 not in的方式完成，速度也算是相当快了 我测试过了百万级数据量一般查询在1秒一下，贴出来大家交流下，看有没有什么好的建议。 简单几句话就可以实现分页功能,请看代码： 最简单使用方法（适用于任何数据表）： test.asp 代码如下:<!--#include file="conn.asp"--> <!--#include file="Page.asp"--> <% Set My = New Page With My .SetConnstr=Connstr '数据库链接字符串 .SetStrTable="users" '表...
可以把本功能写成一个函数，函数的处理过程描述如下： 首先调用adodb.connection对象中的openSchema函数，这样会得到一个Recordset，其中每一条“纪录”对应着数据库中的一张表，“纪录”的每个“字段”包含了对应表的某方面信息。其中TABLE_NAME字段包含了对应表的名称 然后遍历这个Recordset，如果“当前纪录”的TABLE_NAME字段的值和要查找的表的名字一样，证明要查找的表存在。 函数如下所示: 代码如下:function check_gived_...
代码如下:<% sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS) Function strUnicodeLen(asContents) '计算unicode字符串的Ansi编码的长度 asContents1="a"&asContents len1=len(asContents1) k=0 for i=1 to len1 asc1=asc(mid(asContents1,i,1)) if asc1<0 then asc1=65536+asc1 if asc1>255 then k=k+2 else k=k+1 end i...