ASP SQL Server 2005 Row_Number() 分页类

作者 : yang 日期 : 2010-04-28

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

分类:ASP | 固定链接 | 评论: 0 | 人气: 75℃

ASP函数实现可选参数

作者 : yang 日期 : 2009-10-13

Response.Write("函数名 ShowMsg(msg) 一个参数 : " & ShowMsg("一个参数") & "<br /><br />")

分类:ASP | 固定链接 | 评论: 1 | 人气: 219℃

阳历转农历

作者 : yang 日期 : 2008-10-24

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>阳历转农历</title>
</head>

<body>
<%
Function Nongli()

分类:ASP | 固定链接 | 评论: 0 | 人气: 370℃

用asp实现把文件打包成Xml文件包，带解包的ASP工具！

作者 : yang 日期 : 2008-10-10

把文件打包成Xml文件包，带解包的ASP工具！
把网站源码全部打包到Xml文件里面，生成 updata.xml 文件，把xml文件上传到空间里面
然后通过 asp_setup.asp文件将文件全部释放出来。

压缩文件：asp_rar.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Server.ScriptTimeout=99999999 %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

分类:ASP | 固定链接 | 评论: 0 | 人气: 343℃

ASP突破IIS6上传文件尺寸限制

作者 : yang 日期 : 2008-09-02

IIS 6 出于安全考虑, 默认最大请求200K(也即最大提交数据限额为200KByte, 204800Byte).

　　解决办法:

　　1. 关闭 IIS Admin Service 服务 (net stop iisadmin)

　　2. 打开 C:\WINDOWS\system32\inetsrv\MetaBase.xml

　　3. 修改 ASPMaxRequestEntityAllowed 的值为自己需要的, 默认为 204800

分类:ASP | 固定链接 | 评论: 0 | 人气: 346℃

ASP汉字转拼音

作者 : yang 日期 : 2008-04-30

<form method=post>
请在此处输入中文：<input name=hz>
</form>
<%
Set d = CreateObject("Scripting.Dictionary")
d.add "a",-20319
d.add "ai",-20317
d.add "an",-20304
d.add "ang",-20295
d.add "ao",-20292
d.add "ba",-20283
d.add "bai",-20265
d.add "ban",-20257
d.add "bang",-20242
d.add "bao",-20230
d.add "bei",-20051
d.add "ben",-20036
d.add "beng",-20032

分类:ASP | 固定链接 | 评论: 0 | 人气: 1344℃

ASP站内搜索

作者 : yang 日期 : 2008-04-15

演示版地址http://www.531.hk/demo/spider/
功能版为本BLOG站内搜索(SiteSearch)模块；

绝不是搜索数据库表实现；
站长提供站内搜索定制服务；
联系方式：love_computer#qq.com [#换成@]

分类:ASP | 固定链接 | 评论: 4 | 人气: 1048℃

ASP计算当月天数

作者 : yang 日期 : 2008-01-25

dd = Date() '今天
dd = dateadd("m",1,dd) '月份加1
dd = Cdate(Year(dd) & "-" & Month(dd) & "-1") '下月的第一天
dd=dateadd("d",dd,-1) '本月的最后一天
dd=day(dd) '本月的天数
Response.Write(dd)

分类:ASP | 固定链接 | 评论: 0 | 人气: 556℃

ASP将相对地址格式化成当前网站完整的URL

作者 : yang 日期 : 2007-12-12

'函数名：FormatRemoteUrl
'作用：格式化成当前网站完整的URL-将相对地址转换为绝对地址
'参数： url ----Url字符串
'参数： CurrentUrl ----当然网站URL
'返回值：格式化取后的Url

Public Function FormatRemoteUrl(ByVal URL,ByVal CurrentUrl)
Dim strUrl
If Len(URL) < 2 or Len(URL) > 255 or Len(CurrentUrl) < 2 Then
FormatRemoteUrl = vbNullString
Exit Function
End If

分类:ASP | 固定链接 | 评论: 0 | 人气: 551℃

ASP生成不重复随机数

作者 : yang 日期 : 2007-11-21

Response.Write GetRnd()

Function GetRnd()
dim Char_Array(50)
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"

分类:ASP | 固定链接 | 评论: 0 | 人气: 943℃

asp排序方法

作者 : yang 日期 : 2007-11-15

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%

Dim aData
aData = Array(3,2,47,1,6,0)

Call ResponseArray(aData, "原来顺序")
Call ResponseArray(SelectSort(aData), "选择排序")
Call ResponseArray(QuickSort(aData), "快速排序")
Call ResponseArray(InsertSort(aData), "插入排序")

分类:ASP | 固定链接 | 评论: 0 | 人气: 594℃