● asp代码精华(二十二) - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: nicq (NoName), 信区: Homepage
标  题: asp代码精华(二十二)
发信站: 荔园晨风BBS站 (Wed Apr 23 13:35:35 2003), 站内信件

自制IE工具栏按钮
------------------------
IE的自制工具栏按钮在注册表中的的路径为：
[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions]
在该分支下的每一个主键，即表示一个自制的工具栏按钮。如：
{CD67F990-D8E9-11d2-98FE-00C0F0318AFE}表示：RealPlayer
{57E91B47-F40A-11D1-B792-444553540000}表示：NetAnts
仿照以上这些主键，我们可以自己“制造”一个
{00000000-0000-0000-0000-000000000001}（不过要注意的是，这一个键值一定要是唯一的
，要不可能破坏其它的工具栏按钮）。
在这每一个主键之下通常有以下几个键值（均为字符串型）：
ButtonText：自定义按钮上显示的文本。
CLSID： IE工具条的类标识码，恒为“{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}”。
Default Visible：控制自定义按钮是否可见，一般为“Yes”。
Exec：自定义按钮执行的目标，可以为执行程序或超文本链接。
HotIcon：鼠标移到按钮上时显示的图标。
Icon：按钮正常显示的图标。
MenuText：在IE的“工具”菜单中显示的菜单项。
MenuStatusBar：在状态条上显示的“注释”文本。
知道了这些必备知识，再来用VBScript自制IE工具栏按钮就不难了，下面我就以添加“我的
电脑”按钮为例，来说明用VBScript实现自制IE工具栏按钮的方法。
AddButton.vbs(将下述代码保存为AddButton.vbs文件)
'定义一个能与操作系统沟通的对象
Dim WSHShell
Set WSHShell=WScript.CreateObject("WScript.Shell")
'定义与按钮相关的各种参数
KeyName_11="ButtonText"
KeyData_12="我的电脑"
KeyName_21="CLSID"
KeyData_22="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
KeyName_31="Default Visible"
KeyData_32="Yes"
KeyName_41="Exec"
KeyData_42="C:\Windows\Explorer.exe"
KeyName_51="HotIcon"
'借用RealPlayer的图标
KeyData_52="C:\Program Files\Real\RealPlayer\eb_act.ico"
KeyName_61="Icon"
'借用RealPlayer的图标
KeyData_62="C:\Program Files\Real\RealPlayer\eb_inact.ico"
KeyName_71="MenuText"
KeyData_72="我的电脑"
KeyName_81="MenuStatusBar"
KeyData_82="打开我的电脑"
'定义与操作注册表相关的参数
RegPath="HKEY_LOCAL_MACHINE\Software\Microsoft\Internet
Explorer\Extensions\{00000000-0000-0000-0000-000000000001}\"
DataType="REG_SZ"
'定义一个在注册表中添加各项参数的功能函数
Function ValueAdd(KeyName,KeyData)
WSHShell.RegWrite RegPath&KeyName,KeyData,DataType
End Function
'调用Add()过程，添加各项参数到注册表
Call ValueAdd(KeyName_11,KeyData_12)
Call ValueAdd(KeyName_21,KeyData_22)
Call ValueAdd(KeyName_31,KeyData_32)
Call ValueAdd(KeyName_41,KeyData_42)
Call ValueAdd(KeyName_51,KeyData_52)
Call ValueAdd(KeyName_61,KeyData_62)
Call ValueAdd(KeyName_71,KeyData_72)
Call ValueAdd(KeyName_81,KeyData_82)
'弹出“确认”信息框，并作出相应的处理
Dim confirm
confirm=MsgBox("自制按钮已成功添加，需要重新启动系统才能生效，要重新启动吗?",4,
"请确认!")
If confirm=6 Then
MsgBox("自制按钮已成功设置,请重新启动系统!")
Else
WScrip t.Quit()
End If

>

ASP连接数据库的5种方法

第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

第二种－这种方法用在SQL SERVER中多
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=LoginID;Password=;DATABASE=Database_Name"
set conn = server.createobject("adodb.connection")
conn.open strconn

第三种
strconn="Driver={Microsoft Access Driver(*.mdb)};" _
&"DBQ=F:\Inetpub\wwwroot\somedir\db1.mdb;DefaultDir=" _
&"f:\Inetpub\wwwroot\somedir;uid=LoginID;" _
&"pwd=Password;DriverId=25;FIL=MSAccess;"
set conn = server.createobject("adodb.connection")
conn.open strconn

第四种运用系统数据源
The following uses a Data Source Name: Example
set conn = server.createobject("adodb.connection")
conn.open "Example"

第五种运用ODBC数据源，前提是你必须在控制面板的ODBC中设置数据源
set rs = server.createobject("adodb.recordset")
rs.open "tblname", "DSNName", 3, 3  第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

替换数据库不能保存的字符

------------------
public function MyReplace(InputStr) '对单个字符进行轮换
                InputStr=Replace(InputStr,"<","&lt")
                InputStr=Replace(InputStr,">","&gt")
                InputStr=Replace(InputStr,"'","''")
                InputStr=Replace(InputStr,vbCrLf,"<BR>")
                MyReplace=Replace(InputStr,chr(20)," ")
        end function

        public function ReMyReplace(InputStr) '对单个字符进行还原
                InputStr=Replace(InputStr,"&lt","<")
                InputStr=Replace(InputStr,"&gt",">")
                InputStr=Replace(InputStr,"''","'")
                InputStr=Replace(InputStr,"<BR>",vbCrLf)
                ReMyReplace=Replace(InputStr," ",chr(20))
        end function

        public function MyReplaceS(InputStr,Active)'对字符数组进行转换或还原
                '参数说明
                        'InputStr       是将要被转换或还原的数组
                        'Active         用于确定是进行转换还是还原
                        '                       Active=1时转换成可以在表格中直接
显示的超文本格式
                        '                       Active=0时还原成文本文件格式
                dim i
                if active=1 then
                                for i=0 to ubound(InputStr)
                                        InputStr(i)=MyReplace(InputStr(i))
                                next
                        else
                                for i=0 to ubound(InputStr)
                                        InputStr(i)=ReMyReplace(InputStr(i))
                                next
                end if
                MyReplaceS=InputStr
        end function

        public function MyTrimS(InputStrS)'对字符数组中的每个元素去左右空格
                dim i
                for i=0 to ubound(InputStrs)
                        InputStrS(i)=Trim(InputStrS(i))
                next
                MyTrimS=InputStrS
        end function

--
(S-Term)Sorry, i'm not here

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.180]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店