📄 accessfunctions.asp
字号:
<% '文件引用<!--#include file="Accessfunctions.asp"-->
'中文大写：壹贰叁肆伍陆柒捌玖拾
'函数或过程列表:
'* 数据操作类(以下都共用相同objconn对象,所以不能同时使用):
'1.打开数据库与读取表记录: GetRecordset(FileName,TableName)
'2.用SQL语句操作打开数据库: SQLRecordset(strSQL,Filename)
'3.用SQL语句操作打开带有密码的数据库: SQLpwdRS(strSQL,FileName,TableName,Password)
'4.完全关闭数据库: closeAll(objRS,objconn)
'5.返回数据库中满足条件的记录的总数量: countRS(db,table,term)
'6.读取数库中符合条件的第一条记录的某字段的值: getR(db,table,term,fieldname)
'7.修改数库中符合条件的第一条记录的某字段的值: modifR(db,table,term,fieldname,strValue)
'(以下可以同任何函数或过程同时使用):
'11.建立一个数据库连接connection对象: GreatObjConn(FileName)
'12.建立一个数据集合recordset对象: SqlRS(strSQL,objconn)
'8.删除当前记录: DelR(objRS),删除前n条满足条件的记录: DelRS(db,table,term,num)
'9.修改objRS当前记录: ModifyR(objRS,fieldname,value)
'10.关闭数据集合对象,objrs为记录集: CloseRS(objRS)
'13.执行SQL语句: call runSQL(conn数据库链接,SQL语句字符串)
'(其它不同数据库的连接函数:)
'SQL server连接方法: MSsqlConn(数据库名,用户名,密码)
'SQL server OLE DB连接方法: MSsqlOLEDBConn(SQL服务器名称或IP地址,数据库名,用户名,密码)
'Oracle 连接方法: OracleConn()
'Oracle OLE DB 连接方法: OracleOLEDBConn()
'dBase 连接方法: dBaseConn()
'mySQL 连接方法: mySQLConn()
'Visual Foxpro 连接方法: VFPConn()
'MS text 连接方法: MStextConn()
'MS text OLE DB 连接方法: MStextOLEDBConn()
'* 字符串操作类:
'将文本字符串转为网页Html代码: X = textTOhtml(文本字符串)
'将html语句转换成文本: x = htmlTOtext(html语句)
'将text串中的所有str1串变成str2串: x = strSPstr(text,str1,str2)
'产生指定上下界的随机数: RndNum(down,up)
'随机产生一条字符串: Rndstr(down,up)
'找查"字符串"中是否包含有"字符",有则返回true,否则为false: atStr(str,char)
'从一个字符串中取4个字符组成一个新字符串: findstr(str,n1,n2,n3,n4)
'将源串的第formN个字符到第toN个字符用指定的串替代: strSWAPstr(str,formN,toN,obj)
'用指定的串或字符替代源串中的所有某一字符: charSWAPstr(text,char,str)
'* 网页优化类:
'输出一个页面的执行时间单位为毫秒: RunTime(startime)
'输出一个分页列表的子程序: listpages(strSQL,FileName,num,page,FileASP)
'输出一个文字的链接: TextLinks(str,http,text,blank)
'将浏览器端导向至url所指定的网页: goURL(url)
'在浏览器中弹出一个信息窗口: call box("字符信息")
'在浏览器中弹出一个信息窗口,并转向其它网址: call BoxGoUrl("字符信息","转向的网址")
'链入CSS样式表文件: call linkcss(css文件名)
'* 其它类:
'在浏览器中输出指定的内容: call print(要输出的内容)
'使用Jmail发送邮件: sendmail(subject, mailaddress,username,password, email, sender, content, fromer)
'用Adodb.Stream上传文件,上传成功则返回值为true: x=UpLoadFile(将文件保存为的文件路径)
'获取用户真实IP函数:GetIP()
'清除HTML标记:stripHTML(strHTML)
'过滤HTML字符函数:HTMLEncode(fString)
'过滤不良字符:ChkBadWords(fString)
'获取文件后缀名:GetExt(filename)
'获取本页文件名:SelfName()
dim startime '网页执行的开始时刻
startime=time
dim objRSX '定义一个临时用的数据记录集对象
function GreatObjConn(FileName)
'打开数据库连接
set GreatObjConn=server.createobject("Adodb.connection")
GreatObjConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Filename)
GreatObjConn.Open
End function
'函数说明:打开数据库
'函数引用:set objconn=GreatObjConn("数据库文件路径")
function MSsqlConn(dbName,UID,PWD)
set MSsqlConn=server.createobject("adodb.recordset")
MSsqlConn.Open "Driver={SQL Server};Server=(Local);UID="&UID&";PWD="&PWD&";database="&dbName&";"
End function
'函数说明:连接数据库
'函数引用:set objconn=MSsqlConn(数据库名,用户名,密码)
function MSsqlOLEDBConn(MSSQLServer,dbName,UID,PWD)
set MSsqlOLEDBConn=Server.Createobject("adodb.connection")
MSsqlOLEDBConn.open "PROVIDER=SQLOLEDB;DATA Source="&MSSQLServer&";user ID="&UID&";Password="&PWD&";inital Catalog="&dbName
End function
'函数说明:连接数据库
'函数引用:set objconn=MSsqlOLEDBConn(SQL服务器名称或IP地址,数据库名,用户名,密码)
function SqlRS(strSQL,objconn)
'从表读取记录并存放在Recordset对象
set SqlRS=server.createobject("Adodb.recordset")
SqlRS.open strSQL,objconn,1,3,1
End function
'函数说明:读取数据库表记录
'函数引用:set objRS=SqlRS("SQL语句",数据库连接对象objconn)
'例如:strSQL="select TOP 8 * from 表名 where 条件 order by 排序字段 asc|desc"
function GetRecordset(FileName,TableName)
'打开数据库连接
set objconn=server.createobject("Adodb.connection")
objConn.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(FileName)
objconn.Open
'从表读取记录并存放在Recordset对象
set getrecordset=server.createobject("Adodb.recordset")
getrecordset.open TableName,objconn,1,3,2
end function
'函数说明:打开数据库与读取表记录
'打开FileName数据库文件连接,将TableName表的所有记录存放在一个Recordset对象实例,然后返回对象实例
'函数引用:set objRS=GetRecordset("数据库文件名.mdb","表名")
function SQLRecordset(strSQL,Filename)
'打开数据库连接
set objconn=server.createobject("Adodb.connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Filename)
objconn.Open
'从表读取记录并存放在Recordset对象
set SQLrecordset=server.createobject("Adodb.recordset")
SQLrecordset.open strSQL,objconn,1,3,1
End function
'函数说明:打开数据库与读取表记录
'函数引用:set objRS=SQLRecordset("SQL语句",数据库文件名.mdb)
'例如:strSQL="select TOP 8 * from 表名 where 条件 order by 排序字段 asc|desc"
Function SQLpwdRS(strSQL,FileName,TableName,Password)
set objconn=server.createobject("Adodb.connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(FileName)&";Jet OLEDB:Database Password=" & Password
objconn.Open
'从表读取记录并存放在Recordset对象
set SQLpwdRS=server.createobject("Adodb.recordset")
SQLpwdRS.open strSQL,objconn,1,3,1
end function
'函数说明: 用SQL打开带密码的数据库并读取表记录
'函数引用: set objRS=SQLpwdRS("SQL语句","文件名.mdb","表名","密码")
sub DelR(objRS)
objRS.delete
objRS.Update
end sub
'函数说明：删除当前记录
'函数引用：call DelR(objRS)
sub ModifyR(objRS,fieldname,xvalue)
objRS(fieldname)=xvalue
objRS.Update
end sub
'函数说明: 修改objRS当前记录
'函数引用: call ModifyR(objRS,"字段名",值)
sub close(objRS,objconn)
objrs.Close
set objrs=Nothing
end sub
'函数说明：关闭数据库,objrs为记录集
'函数引用：call close(记录集对象,数据库连接)
sub closeAll(objRS,objconn)
objrs.Close
set objrs=Nothing
objconn.Close
set objconn=Nothing
end sub
'函数说明：完全关闭数据库,objrs为记录集,objconn为数据库连接
'函数引用：call close(记录集对象,数据库连接)
sub sendmail(subject, mailaddress,username,password, email, sender, content, fromer)
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'UserName : 登录邮件服务器所需的用户名
'Password : 登录邮件服务器所需的密码
'Email : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'Fromer : 发件人的邮件地址
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = mailaddress '发送邮件的服务器
jmail.MailServerUserName = UserName '登录邮件服务器所需的用户名
jmail.MailServerPassword = Password '登录邮件服务器所需的密码
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = sender '邮件发送者的姓名
jmail.Sender = fromer '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = subject '邮件的标题
jmail.Body = content '邮件的内容
'由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复
'jmail.AddRecipientBCC Email '密件收件人的地址
'jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
end sub
'函数说明：使用Jmail发送邮件
'函数引用：call sendmail(邮件标题,发件服务器的地址,登录邮件服务器所需的用户名,登录邮件服务器所需的密码,收件人邮件地址,发件人姓名,邮件内容,发件人的邮件地址)
function RndNum(down,up)
Randomize
RndNum=Int((up - down + 1) * Rnd + down)
End function
'函数说明: 产生指定上下界的随机数
'函数引用: x=RndNum(随机数的下界，随机数的上界)
function Rndstr(down,up)
Select Case RndNum(down,up)
Case 1 str="光阴真是一去不复返啊!"
case 2 str="人生最宝贵的生命就存在时光中!"
case 3 str="我们不能浪费时间,我们应该努力!"
case 4 str="优秀是一种习惯!"
case 5 str="生命是一种过程!"
case 6 str="两点之间最短的距离并不一定是直线!"
case 7 str="只有知道如何停止的人才知道如何加快速度!"
case 8 str="放弃是一种智慧，缺陷是一种恩惠!"
case 9 str="Be it ever so humble, there is no place like home<BR>休嫌它寒微贫贱,天涯无处似家园"
case 10 str="Eternal vigilance is the price of liberty<BR>自由的代价是永远警惕"
case 11 str="Kind hearts are more than coronets<BR>好心胜过高帽子"
case 12 str="Knowledge makes humble,ignorance makes proud<BR>知识使人谦虚,无知使人骄傲"
case 13 str="Never fear shadows. They simply mean there's a light shining somewhere nearby<BR>不要害怕黑影。它只不过意味着附近有光在照耀"
case 14 str="Riches serve a wise man but commands a fool<BR>聪明人使财富为自已服务,傻瓜却任它支配自已"
case 15 str="Shallow streams make most din<BR>溪浅声喧"
case 16 str="The only thing necessary for the triumph of evil is for good men to do nothing<BR>只要好人不闻不问,邪恶就能胜利"
case 17 str="The wind cannot be caught in a net<BR>撒网捕风,徒劳无功"
case 18 str="There's no wisdom like silence<BR>保持沉默最聪明"
case 19 str="Things will probably come out all right, but sometimes it takes strong nerves just to watch<BR>事情可能结局很好,不过有时单是等待事态发展就需要极大的勇气"
case 20 str="Time is grain for peasants<BR>对农民来说,时间就是粮食"
case 21 str="Time is money<BR>时间就是金钱"
case 22 str="I couldn't agree more<BR>我完全同意"
case 23 str="We can work it out<BR>我们可以解决这个问题"
case 24 str="What kind of climate do you have in this country?<BR>这个国家的气候如何?"
case 25 str="He's on the phone<BR>他在打电话"
case 26 str="Yes,a lot of friends<BR>是的,很多朋友"
case 27 str="I leave the office at 7<BR> 我七点离开办公室"
End Select
Rndstr=str
End function
'函数说明: 随机产生一条字符串
'函数引用: str=Rndstr(随机数的下界，随机数的上界)
function atStr(str,char)
n=0
if (not isNull(str)) then
if len(str)>=1 then
for i=1 to len(str)
if Mid(str,i,1)=char then
n=n+1
end if
next
end if
end if
if n>0 then
atStr=true
else
atStr=false
end if
end function
'函数说明:找查"字符串"中是否包含有"字符",有则返回true,否则为false
'函数引用:Rs= atStr("字符串","字符")
function findstr(str,n1,n2,n3,n4)
findstr=mid(str,n1,1)&mid(str,n2,1)&mid(str,n3,1)&mid(str,n4,1)
end function
'函数说明: 从一个字符串中取4个字符组成一个新字符串
'函数引用: str=findstr(字符串,第1个字符位置,第2个字符位置,第3个字符位置,第4个字符位置)
function strSWAPstr(str,formN,toN,obj)
if str<>"" and (formN-toN+1)<=len(str) and len(str)>=formN and len(str)>=toN then
strSWAPstr=mid(str,1,formN-1)&obj&mid(str,toN+1,len(str))
end if
end function
'函数说明:将源串的第formN个字符到第toN个字符用指定的串替代
'函数引用:X = strSW(源字符串,从第formN个字符,到第toN个字符,替代为的串)
function charSWAPstr(text,char,str)
if text<>"" then
for j=1 to len(text)
if mid(text,j,1)=char then
text=strSWAPstr(text,j,j,str)
j=j+len(str)-1
end if
next
end if
charSWAPstr=text
end function
'函数说明:用指定的串或字符替代源串中的所有某一字符
'函数引用:X = charSWAPstr(源字符串,某个字符,替代为的串或字符)
sub RunTime(startime)
if FormatNumber((time-startime) *1000,3)>1 then
response.write "页面执行时间："&FormatNumber((time-startime) *1000,3) &" 毫秒"
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -