[其它] ASP把长的数字用逗号隔开显示的代码

说明：000000000000000000000000000000000000000000000000000000000000000 代码如下:<%  Function Comma(str)  If Not(IsNumeric(str)) or str = 0 Then  Result = 0  ElseIf Len(Fix(str))  0 Then  Dec = Mid(str,Pos)  End if  Res = StrReverse(Fix(st
<weixin_38635979> 上传 | 大小：17kb

[其它] 解决 JScript 中使用日期类型数据时出现类型错误的问题

说明：例如以下代码： 程序代码： 代码如下:  [removed]  Response.Cookies(“xujiwei”)(“name”) = “xujiwei”;  Response.Cookies(“xujiwei”)(“gender”) = “male”;  var expiredDate = new Date(2008, 11, 31);  Response.Cookies(“xujiwei”).Expires = expiredDate;  <
<weixin_38639089> 上传 | 大小：56kb

[其它] ASP常用的系统配置函数

说明：sub SaveConfig()  dim fso,hf  set fso=Server.CreateObject(“scr ipting.FileSystemObject”)  set hf=fso.CreateTextFile(Server.mappath(“../inc/config.asp”),true)  hf.write “<” & “%” & vbcrlf  hf.write “Const SiteName=” & chr(34) & trim(request(“SiteNa
<weixin_38619967> 上传 | 大小：16kb

[其它] asp事物功能简单小应用

说明：conn.begintrans ‘开启事物功能 …中间是一些添加修改删除操作 如果出现错误就取消 conn.rollbacktrans ‘取消事物更改并结束事物 如果没问题，就保存 conn.CommitTrans ‘保存事物并结束事物 代码如下: <LINK href=”../css/home1.css” type=text/css rel=sty
<weixin_38724370> 上传 | 大小：27kb

[其它] 修改正确的asp冒泡排序

说明：网上搜到的代码，千篇一律是这个 Function Sort(ary) Dim KeepChecking,I,FirstValue,SecondValue  KeepChecking = TRUE  Do Until KeepChecking = FALSE   KeepChecking = FALSE   For I = 0 to UBound(ary)    If I = UBound(ary) Then Exit For     If ary(I) > ary(I+1) Then   
<weixin_38658982> 上传 | 大小：22kb

[其它] windows2003下使用asp WScript.Shell的设置方法

说明：在windows2000下，IIS默认设置是可以web和可执行程序通信的。但是在2003下IIS关于这方面的服务是禁止的。 我现在遇到的问题是，利用web和一个带参数的可执行程序连接。并运行这个带参赛的可执行程序。 在windows2003下用asp中的Server.CreateObject(“Wscr ipt.Shell”) 运行没有出现错误，但是并没有执行。 但是在windows2000下可以执行。 呵呵，意识到那是IIS开的玩笑。 在windows2003下如果支持Server.Creat
<weixin_38609401> 上传 | 大小：44kb

[其它] asp下用datediff实现计算两个时间差的函数

说明：计算两个时间差的函数 ‘****************************** ‘||Function TimeDiff(sBegin, sEnd) ‘||本函数计算两个时间的差，可以不用更改直接使用 ‘||作者：machinecat 2001/10/26 ‘****************************** ‘****************************** ‘注：首先需要判断用户输入的sBegin与sEnd之间的大小 ‘可以通过DataDiff函数获得两者之间的时
<weixin_38654589> 上传 | 大小：25kb

[其它] ASP之处理用Javascript动态添加的表单元素数据的代码

说明：上一篇文章讲到了动态添加表单元素,这次我们来讲讲怎么样来处理这些动态添加的表单元素传过来的数据! 怎么样动态添加表单元素,我这里就不细说了!不明白的看看上一篇文章//www.jb51.net/html/200711/23/12856.htm下面是动态添加表单元素的页面代码! 代码如下:    动态添加表单元素BlueShine    [removed]  function AddElement(mytype){  var mytype,TemO=document.
<weixin_38685857> 上传 | 大小：42kb

[其它] asp jmail发邮件 详细解析第1/2页

说明：发个个比较详细的asp与jmail 实现发送邮件的代码，前一段时间有发过一个简单的JMAIL邮件发邮件的代码，今天就把这个代码做一个具体的注解，并增加了另外两个格式的代码，并举几个简单的例子：  首先是jmail.smtpmail的核心代码：   代码如下:<%   Set jmail = Server.CreateObject(“JMAIL.SMTPMail”) ‘创建一个JMAIL对象   jmail.silent = true ‘JMAIL不会抛出例外错误，返回的值为FALSE跟TR
<weixin_38502915> 上传 | 大小：46kb

[其它] Asp下实现多表单域无组件文件上传的实例

说明：最近经常有人问到这类问题,在此转贴一下,内容: 1。数据库表结构(Access)： UserID:Text(保存上传文件的用户ID) FileContentType:Text(用来保存上传文件的类型，eg:”Application/msword”，主要用来使用户能正确下载此文件） FileContent:OLE Object（保存文件数据） 2。HTML文件 muploadfile.htm <
<weixin_38750644> 上传 | 大小：36kb

[其它] asp空间奸商查询系统

说明：看到很多朋友无缘无故的被骗，特发布此查询系统，以免再次上当！ 使用方法非常简单： 直接输入对方的域名或者网站名称，支持中英文！点查询即可 代码如下: <% On Error Resume Next ff=”垃圾,是垃圾,骗子,无耻,不要买,骗钱,垃圾空间,垃圾中的极品,垃圾中的垃圾,经常掉线,无缘无故的关闭” if Request.Form(“checkbox”)”” then ff=Replace(Replace(request.Form(“zff”),” “,””),chr
<weixin_38703626> 上传 | 大小：49kb

[其它] ShowPage 显示“上一页 下一页”等信息的封装代码

说明：‘************************************************** ‘函数名：ShowPage ‘作  用：显示“上一页 下一页”等信息 ‘参  数：sFileName  —-链接地址 ‘       TotalNumber —-总数量 ‘       MaxPerPage  —-每页数量 ‘       ShowTotal   —-是否显示总数量 ‘       ShowAllPages —是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现J
<weixin_38714653> 上传 | 大小：27kb