超长字符的智能分页-支持HTML 2004-6-17 0 · 大概在九九年做游戏网站的时候,就对文章的发布感到麻烦,不过那会儿玩ASP不精。只是将就用着。在遇到长文件 10000 字时网页就是一大片长了。 去年,做一个通用的文章与新闻管理系统时,曾写了一段代码,用来分离。现在贴出来。要说明的是:我的文章 录入界面是基于WEB的HEMLEDITOR,就像这里的ABC...
使用NextRecordset通过一个Connection输出多 ... 2004-6-17 1 · <%dim conndim strconndim rsdim strsql dim strsql2dim strsql3dim strsql4dim strsql5dim strsql6dim strsql7dim strsql8 'strconn = Driver={SQL Server};Description=example;SERVER=222.222.1.2;UID=webexample;PWD=;DATABASE=webexample"'Format Declare & EXEC statements that...
利用FSO取得BMP,JPG,PNG,GIF文件信息 2004-6-17 0 · <%':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::'::: BMP, GIF, JPG and PNG :::':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::'::::::::::::::::::::::::::::::::::::...
VBS、ASP代码语法加亮显示的类(2) 2004-6-17 0 · <!--#include file="token.ASP"--><% ' *************************************************************************' This is all test/example code showing the calling syntax of the ' cBuffer class ... the interface to the cBuffer object is quite simple.'' Use it...
在ASP中使用SQL语句之11:记录统计 2004-6-17 1 · 确定数据库内有多少记录,或者确定有多少记录达到了某些标准,这些用ASP完成并非难事。如果你采用了正确的游标类型,你可以用RecordCount 属性获得记录数当然也可以用recordset。但是,有个更简单的办法,这就是在自己的SELECT语句中采用count(*) ,代码如下所示:SQL = "SELECT count(*) FRO...
在ASP中使用SQL语句之10:视图 2004-6-17 0 · 假如页面上有很多条记录,很多情况下,对这些信息按照字母表降序排序会比传统的升序排序显示效率更高。采用你熟悉的ORDER BY 子句,你可以很容易地在页面上增加这一功能,让用户控制其记录显示的视图。 假设你有个页面的名字叫customers.ASP ,页面执行会从Customers表内选取全部记录并按照字母表 ...
在ASP中使用SQL语句之9:表单操作 2004-6-17 0 · 从某个页面表单中取出信息是ASP编程中常见的问题。但是,遍历通过表单传递的记录会花去多长时间呢?这取决于数据库的大小。简单的GUI界面都可能令循环遍历操作耗费太多的时间。 比方说,假设有个团队成员登录到GUI屏幕输入自己的名字姓氏和名字之间用点号连接:amy.cowen。这个值通过表单提交,她 ...
在ASP中使用SQL语句之8:随机数 2004-6-17 0 · 建立随机生成的HTML代码是一件相当容易实现的ASP特性。你可能创建过“每日一帖”、滚动广告等等,只需要稍加点缀就会令你的网站日久弥新。 对存储在数据库中的数据来说,随机数特性能给出上面的效果,但它们可能太慢了些。你不能要求ASP“找个随机数”然后打印出来。实际上常见的解决方案是建立如 ...
在ASP中使用SQL语句之7:ORDER BY 2004-6-17 0 · 从Access数据库中选取记录有件最令人丧气的事情,它们是以怎样的顺序输入到数据库内就按照怎样的顺序出来。就算你在Access环境内采用Sort By来改变记录视图,数据表内的记录顺序也并没有发生改变。 如果你正在使用ASPrecordset在网页上写出记录,那么你或许知道乱纷纷的顺序是多令人痛苦的事。但是...
在ASP中使用SQL语句之6:存储查询 2004-6-17 0 · 当你的查询相对简单的时候,每次从头开始创建SQL语句也不费什么工夫,不过,复杂的查询就不同了,每次都从头来会产生很多开发错误。因此,一旦让SQL顺利地运行起来,你最好把它们存起来,在需要时再调用它们。这样,哪怕是一个简单查询你都能随时用上存储的查询语句了。 假设你每周都要给团队做一 ...
一个测试数据库连接的函数 2004-6-17 0 · 以前一直困扰我的一个问题,如何判断数据库连接是否成功(比如sql没有启动,数据库不存在等),实现友好的错误处理,但vbscript的错误处理机制实在太差,只有on error resume nex/go to,但往往使用ADO的错误陷阱后,等待你的将是脚本超时,这个函数将改变这一状况(连接超时长短可以自己根据实际情况...
清空iis log 中自己登录ip的vbs 2004-6-17 1 · Option Explicit Dim sourcefile,ipaddress,objargsconst destfile="tempfile"Const ForWriting = 2Dim TextDim fso,objNet,ServiceObjDim txtStream, txtStreamOut Set objArgs = WScript.Arguments If objArgs.Count = 2 Then sourcefile=objArgs(0)ipaddress=objargs(1)Elsewscript.e...
构建稳定的服务器端组件的七个步骤 2004-6-17 0 · 实现健壮性能的规则 Hank Marquis来自于Enterprise Solutions for Microsoft Backoffice and Windows NT Magazine原稿地址:http://www.microsoft.com/china/technet/intranet/sevstep.ASP在你的服务器上安装了微软IIS(Internet Information Server),你就可以发挥ASP(Active Server Pages)的优势 ...
用文本+ASP打造新闻发布系统/图片上传 2004-6-17 1 · <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> Function GetUpload(FormData) Dim DataStart,DivStr,DivLen,DataSize,FormFieldData '分隔标志串(+CRLF) DivStr = LeftB(FormData,InStrB(FormData,str2bin(VbCrLf)) + 1) '分隔标志串长度 DivLen = LenB(DivStr) PosOpenBoundary = InStrB(FormDa...
用文本+ASP打造新闻发布系统(二)新闻添加 2004-6-17 0 · <!--#include file="news_session.ASP"--><HTML><head> <meta http-equiv="Content-Language" content="zh-cn"><meta http-equiv="Content-Type" content="text/HTML; charset=gb2312"><style type="tex...
用文本+ASP打造新闻发布系统(三)新闻列表显示 2004-6-17 1 · <% dim myfso,myreadset myfso=createobject("scripting.filesystemobject")set myread=myfso.opentextfile(server.mappath("./new_list.ASP"),1,0)if myread.atendofstream thenResponse.Write "目前没有添加新闻"Response.End elsedim mytext,listarraymytext=...
用文本+ASP打造新闻发布系统(四)新闻删除 2004-6-17 1 · <!--#include file="news_session.ASP"--> <% dim idid=Request.QueryString ("id")dim myfsoset myfso=createobject("scripting.filesystemobject") if myfso.FileExists(server.mappath("./news_content/"&id&".txt"))thenm...
在ASP中用EasyMailObject组件处理Exchange邮 ... 2004-6-17 1 · 删除邮件时调用的文件(mail_prc.ASP)<%@ Language=VBScript %><%'************************************* '这个文件是删除邮件时调用的'作者:awayeah'邮箱:awayeah@163.net'*************************************dim cc,cc1,sep,dd'取得邮件总数msgcount = session("msgcount&quo...
len(),lift(),right()不能正常识别中文的解决方法 2004-6-17 1 · 以下用法和len(),lift(),right()一样。 Function Strlength(Str)Temp_Str=Len(Str)For I=1 To Temp_StrTest_Str=(Mid(Str,I,1))If Asc(Test_Str)>0 ThenStrlength=Strlength+1ElseStrlength=Strlength+2End IfNextEnd FunctionFunction Strleft(Str,L)Temp_Str=Len(Str)For I=1 To Temp_StrTest...
简体中文编码对应器 2004-6-17 1 · <% DIM FirstCHR,LastCHR,K,I,JFirstCHR = Request("FirstCHR") 'FirstCHR="45217" '定义起始值LastCHR = Request("LastCHR") 'LastCHR="62289" '定义终结值HttpAddress = Request.ServerVariables("url") '不要动 Sub MakeChineseword()Res...
页次:283 /285 20篇/页 首页 上一页 下一页 尾页 合计 5696 篇 Go:第1页 第2页 第3页 第4页 第5页 第6页 第7页 第8页 第9页 第10页 第11页 第12页 第13页 第14页 第15页 第16页 第17页 第18页 第19页 第20页 第21页 第22页 第23页 第24页 第25页 第26页 第27页 第28页 第29页 第30页 第31页 第32页 第33页 第34页 第35页 第36页 第37页 第38页 第39页 第40页 第41页 第42页 第43页 第44页 第45页 第46页 第47页 第48页 第49页 第50页 第51页 第52页 第53页 第54页 第55页 第56页 第57页 第58页 第59页 第60页 第61页 第62页 第63页 第64页 第65页 第66页 第67页 第68页 第69页 第70页 第71页 第72页 第73页 第74页 第75页 第76页 第77页 第78页 第79页 第80页 第81页 第82页 第83页 第84页 第85页 第86页 第87页 第88页 第89页 第90页 第91页 第92页 第93页 第94页 第95页 第96页 第97页 第98页 第99页 第100页 第101页 第102页 第103页 第104页 第105页 第106页 第107页 第108页 第109页 第110页 第111页 第112页 第113页 第114页 第115页 第116页 第117页 第118页 第119页 第120页 第121页 第122页 第123页 第124页 第125页 第126页 第127页 第128页 第129页 第130页 第131页 第132页 第133页 第134页 第135页 第136页 第137页 第138页 第139页 第140页 第141页 第142页 第143页 第144页 第145页 第146页 第147页 第148页 第149页 第150页 第151页 第152页 第153页 第154页 第155页 第156页 第157页 第158页 第159页 第160页 第161页 第162页 第163页 第164页 第165页 第166页 第167页 第168页 第169页 第170页 第171页 第172页 第173页 第174页 第175页 第176页 第177页 第178页 第179页 第180页 第181页 第182页 第183页 第184页 第185页 第186页 第187页 第188页 第189页 第190页 第191页 第192页 第193页 第194页 第195页 第196页 第197页 第198页 第199页 第200页 第201页 第202页 第203页 第204页 第205页 第206页 第207页 第208页 第209页 第210页 第211页 第212页 第213页 第214页 第215页 第216页 第217页 第218页 第219页 第220页 第221页 第222页 第223页 第224页 第225页 第226页 第227页 第228页 第229页 第230页 第231页 第232页 第233页 第234页 第235页 第236页 第237页 第238页 第239页 第240页 第241页 第242页 第243页 第244页 第245页 第246页 第247页 第248页 第249页 第250页 第251页 第252页 第253页 第254页 第255页 第256页 第257页 第258页 第259页 第260页 第261页 第262页 第263页 第264页 第265页 第266页 第267页 第268页 第269页 第270页 第271页 第272页 第273页 第274页 第275页 第276页 第277页 第278页 第279页 第280页 第281页 第282页 第283页 第284页 第285页