联系站长 加入收藏 设为首页 繁體中文 RSS
  首页 | 生活百科 | 电脑网络 | 高手学堂 | 语录名言 | 读书文学 | 极品软件 | 奇趣图片 | 站长微博  
 您的位置: 精品百字节网 >> 电脑网络 >> 网络编程 >> 编程问题 >> 正文 当前没有通告!
   □  ASP常用的函数模块    3星级
ASP常用的函数模块
[ 作者:作者不详     来源:互连网     点击数:     更新时间:2006-10-06     文章录入:Admin
【字体:
[内容提要]
暂无简介

<!--#include file="Conn.asp"--> 
<% ’公用模块用于存储所以的函数 

’Dim r, rst 
’Set r = New ClsCurrent 
’Set rst = r.OpenRst("select *") 
’ExeSql "Instr .." 
’r.NothingRst rst’关闭释放记录集 
’set r=nothing  

’定义超全局变量 
Dim URLSelf, URISelf 
URISelf = Request.ServerVariables("SCRIPT_NAME") 
If Request.QueryString = "" Then 
URLSelf = URISelf 
Else 
URLSelf = URISelf & "?" & Request.QueryString 
End If 
response.charset="utf-8" 
Response.Buffer = True 
Response.Expires = -1 
’=================================================================================== 
’ 函数原型:Quit 
’功 能:中止程序 
’参 数:无 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Sub Quit () 
Response.End() 
End Sub 
’=================================================================================== 
’ 函数原型:CheckEmpty(sVar,sInfo) 
’功 能:’检查是否为空,若空提示,并退回 
’参 数:要显示的消息 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function CheckEmpty(sVar,sInfo) 
If trim(sVar)<>""Then Exit Function 
MessageBox sInfo & "不能为空!" 
GoBack 
Quit 
End Function  
’=================================================================================== 
’ 函数原型: GotoURL (URL) 
’功 能:转到指定的URL 
’参 数:URL 要跳转的URL 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function GotoURL(URL) 
Response.Write "<script language=""JavaScript"">location.href=’" & URL & "’;</script>" 
End Function 

’=================================================================================== 
’ 函数原型: MessageBox (Msg) 
’功 能:显示消息框 
’参 数:要显示的消息 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function MessageBox(msg) 
msg = Replace(msg, "\", "\\") 
msg = Replace(msg, "’", "\’") 
msg = Replace(msg, """", "\""") 
msg = Replace(msg, vbCrLf, "\n") 
msg = Replace(msg, vbCr, "") 
msg = Replace(msg, vbLf, "") 
Response.Write "<script language=""JavaScript"">alert(’" & msg & "’);</script>" 
End Function 

’=================================================================================== 
’ 函数原型: ReturnValue (bolValue) 
’功 能:设置Window对象的返回值:只能是布尔值 
’参 数:返回值 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function ReturnValue(bolValue) 
If bolValue Then 
Response.Write "<script language=""JavaScript"">window.returnValue=true;</script>" 
Else 
Response.Write "<script language=""JavaScript"">window.returnValue=false;</script>" 
End If 
End Function 

’=================================================================================== 
’ 函数原型: GoBack (URL) 
’功 能:后退 
’参 数:无 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function GoBack() 
Response.Write "<script language=""JavaScript"">history.go(-1);</script>" 
End Function 

’=================================================================================== 
’ 函数原型: CloseWindow () 
’功 能:关闭窗口 
’参 数:无 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function CloseWindow() 
Response.Write "<script language=""JavaScript"">window.opener=null;window.close();</script>" 
End Function 

’=================================================================================== 
’ 函数原型: RefreshParent () 
’功 能:刷新父框架 
’参 数:无 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function RefreshParent() 
Response.Write "<script language=""JavaScript"">if(parent!=self) parent.location.reload();</script>" 
End Function 

’=================================================================================== 
’ 函数原型: RefreshTop () 
’功 能:刷新顶级框架 
’参 数:无 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function RefreshTop() 
Response.Write "<script language=""JavaScript"">if(top!=self) top.location.reload();</script>" 
End Function 

’=================================================================================== 
’ 函数原型: GenPassword (intLen,PassMask) 
’功 能:生成随机密码 
’参 数:intLen新密码长度 
’PassMask生成密码的掩码默认为空 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function GenPassword(intLen, PassMask) 
Dim iCnt, PosTemp 
Randomize 
If PassMask = "" Then 
PassMask = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz" 
End If 
For iCnt = 1 To intLen 
PosTemp = Fix(Rnd(1) * (Len(PassMask))) + 1 
GenPassword = GenPassword & Mid(PassMask, PosTemp, 1) 
Next 
End Function 

’=================================================================================== 
’ 函数原型: GenSerialString () 
’功 能:生成序列号 
’参 数:无 
’返 回 值:无 
’涉及的表:无 
’=================================================================================== 
Public Function GenSerialString() 
GenSerialString = Year(Now()) 
If Month(Now()) < 10 Then 
GenSerialString = GenSerialString & "0" 
End If 
GenSerialString = GenSerialString & Month(Now()) 
If Day(Now()) < 10 Then 
GenSerialString = GenSerialString & "0" 
End If 
GenSerialString = GenSerialString & Day(Now()) 
If Hour(Now()) < 10 Then 
GenSerialString = GenSerialString & "0" 
End If 
GenSerialString = GenSerialString & Hour(Now()) 
If Minute(Now()) < 10 Then 
GenSerialString = GenSerialString & "0" 
End If 
GenSerialString = GenSerialString & Minute(Now()) 
If Second(Now()) < 10 Then 
GenSerialString = GenSerialString & "0" 
End If 
GenSerialString = GenSerialString & Second(Now()) 
GenSerialString = GenSerialString & GenPassword(6, "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ") 
End Function 



’=================================================================================== 
’ 函数原型: ChangePage(URLTemplete,PageIndex) 
’功 能:根据URL模板生成新的页面URL 
’参 数:URLTempleteURL模板 
’ PageIndex新的页码 

[1] [2] [3] [4]  下一页

上一篇文章:asp精华代码 下一篇文章:ASP中时间函数的使用
发表评论 □告诉好友 □打印此文 □收藏此页 □关闭窗口 □返回顶部
 最新热点文章
 精品医院类网站网址大收集
 如何删除windows 2003或xp系统隐藏的...
 DedeCms管理员后台登陆经常自动退出的...
 知道IP如何用dos命令查出电脑名称
 WORD出错老是要求以安全模式打开文件...
 如何设置首页不显示页眉页脚?
 如何利用inurl命令查询网站外链及栏目...
 
 最新推荐文章
 精品医院类网站网址大收集
 如何利用宽带路由器控制局域网内电脑上...
 CSS圆角代码的实现方法
 带停顿的单行文字滚动代码
 实用的新网站免费收录提交地址精选
 Left join , Right Join, Inner Join用...
 趣话淘宝网衍生的多种新型职业
 
 最新图文
  ◇  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
关于本站 | 免责申明 | 网站地图 | 联系站长 | 友情链接 | 与我同在
冀ICP备06032589号【虚拟化精英群虚拟化精英群续
  Copyright© 2006-2009 100byte.Com All Rights Reserved
网站声明:本网站是公益性质网站,部分内容来源于网络,如有侵犯您权利的地方,请与精品百字节站长联系,尽快修正.
Powered By CreateLive CMS 本站法律顾问:(冀港)武镇海律师
点击这里给我发消息