asp随机读取其中一个手机号函数

function getsj(str)
dim arrstr,n
arrstr=split(str,",")
if ubound(arrstr)>0 then
Randomize
n=Int((ubound(arrstr)+1 - 0) * Rnd + 0)
getsj=arrstr(n)
else
getsj=""
end if
end function

调用方法：<%=getsj("13600000000,18900000000,18900000000")%>

评论(0) 引用(0) 浏览(81)
post by 不懂戀愛魚兒 | 2011年12月14日 | 归档于 [Asp技术]
标签: asp 随机 函数 手机

asp生成随机字符串(大写)

function makeId(byVal maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makeId = strNewPass
end function

调用方法：<%=makeId(12)%>

评论(0) 引用(0) 浏览(69)
post by 不懂戀愛魚兒 | 2011年12月11日 | 归档于 [Asp技术]
标签: asp 随机 字符串

SQLserver2000中的表导出为access数据库文件方法

建立一个access文件，用sql server管理工具打开数据库，找到你要导的表，在表名上点右键，“所有任务”中选择导出数据，然后按照提示一步一步的来做就可以。记得在选择目标服务器时，把服务器类型选成microsoft access，然后选择新建的那个access文件。
评论(0) 引用(0) 浏览(146)
post by 不懂戀愛魚兒 | 2011年12月8日 | 归档于 [Asp技术]
标签: sql 数据库 server ACCESS

Set fso = Server.CreateObject("Scripting.FileSystemObject")

方法或者属性 描述
BuildPath()
生成一个文件路径
CopyFile() 复制文件
CopyFolder() 复制目录
CreateFolder() 创建新目录
CreateTextFile() 生成一个文件
DeleteFile() 删除一个文件
DeleteFolder() 删除一个目录
DriveExists() 检验盘符是否存在
Drives 返回盘符的集合
FileExists() 检验文件是否存在
FolderExists 检验一个目录是否存在
GetAbsolutePathName() 取得一个文件的绝对路径
GetBaseName() 取得文件名

阅读全文>>

评论(0) 引用(0) 浏览(433)
post by 不懂戀愛魚兒 | 2011年6月22日 | 归档于 [Asp技术]
标签: server fso createobject scripting FileSystemObject

asp获取当前网址函数

Function GetLocationURL() '获取当前页面的URL

Dim Url 

Dim ServerPort,ServerName,ScriptName,QueryString 

ServerName = Request.ServerVariables("SERVER_NAME") 

ServerPort = Request.ServerVariables("SERVER_PORT") 

ScriptName = Request.ServerVariables("SCRIPT_NAME") 

QueryString = Request.ServerVariables("QUERY_STRING") 

Url="http://">ServerName 

If ServerPort <> "80" Then Url = Url > ":" > ServerPort 

Url=Url>ScriptName 

If QueryString <>"" Then Url=Url>"?"> QueryString 

GetLocationURL=Url 

End Function

 

评论(2) 引用(0) 浏览(709)
post by 不懂戀愛魚兒 | 2011年5月22日 | 归档于 [Asp技术]
标签: asp function 函数 url
sitemap ƽ̨