<![CDATA[聊设计|MyStudio Blog - Coding]]> https://blog.imwebs.com/ zh-cn PBlog2 v2.4 聊设计|MyStudio Blog https://blog.imwebs.com/images/logos.gif https://blog.imwebs.com/ 聊设计|MyStudio Blog https://blog.imwebs.com/article.asp?id=649 <![CDATA[常用ActionScript（AS3）功能实现]]> webmaster@imwebs.com(parno) Sat,20 Feb 2021 11:00:59 +0800 https://blog.imwebs.com/default.asp?id=649
```javascript
import fl.transitions.*;
import fl.transitions.easing.*;

TransitionManager.start(play_mc, {
    type: Fade,
    direction: Transition.OUT,
    duration: 0.2,
    easing: None.easeNone
});    
```

---

### 舞台全局属性设置

```javascript
stage.displayState = StageDisplayState.FULL_SCREEN;    //全屏显示
stage.scaleMode = StageScaleMode.EXACT_FIT;    //锁定比例显示
stage.addEventListener(MouseEvent.RIGHT_CLICK,function(e:MouseEvent):void{});    //屏蔽右键
```

---

### 生成事件监听

```javascript
v0_btn.addEventListener(MouseEvent.CLICK, v_btn_click);

function v_btn_click(event: MouseEvent): void {
        //trace(event)    
}
```

##### 常用动作库

> **import flash.events.Event;**
>
> > MouseEvent.CLICK
> > MouseEvent.MOUSE_MOVE
>
> **import fl.video.VideoEvent;**
>
> > Event.COMPLETE

---

### 元件属性

```javascript
play_mc.x = 0
play_mc.y = 0
play_mc.width = 0
play_mc.height = 0
play_mc.visible = true | false
play_mc.alpha=0.1;
```

---

### 音乐播放代码

```javascript
import flash.net.URLRequest;
import flash.media.Sound;
import flash.media.SoundChannel;

var req:URLRequest = new URLRequest("音乐.mp3");
var snd:Sound = new Sound();
var channel:SoundChannel = new SoundChannel();
snd.load(req);
channel=snd.play(0); | channel.stop();
```

---

### 定时器

```javascript
import flash.events.TimerEvent;
import flash.utils.Timer;

var myTimer:Timer=new Timer(1000,0);    //操作间隔1秒，重复次数无限（24.86天）
myTimer.addEventListener("timer", timerhandler);    //注意，事件timer必须全部小写
myTimer.start();
myTimer.stop();
```

---

### FLVPlayback 播放器

```javascript
import fl.video.FLVPlayback;
play_mc.player.source = url;
play_mc.player.autoRewind=true;    //播放停止時倒帶到「影格 1」
play_mc.player.getVideoPlayer(play_mc.player.activeVideoPlayerIndex).smoothing = true;    //平滑视频
play_mc.player.volume = 80;
play_mc.player.play();
```

]]> https://blog.imwebs.com/article.asp?id=643 <![CDATA[为EXE创建自签名的证书]]> webmaster@imwebs.com(parno) Tue,21 Jan 2020 23:50:56 +0800 https://blog.imwebs.com/default.asp?id=643
1.创建自签名的证书和公钥
makecert -r -sv MyStudio_key.pvk -n "CN=YourStudioName,E=Email,C=China,S=Jiangsu" MyStudio.cer

2.生成发行者证书
cert2spc MyStudio.cer MyStudio.spc

3.生成PFX格式的证书
pvk2pfx -pvk MyStudio_key.pvk –pi password -spc MyStudio.spc -pfx MyStudio.pfx –po password

4.使用pfx格式的证书对可执行文件进行签名
signtool  sign  /f  MyStudio.pfx /p password  *.exe

签名完成之后，查看执行性文件的属性即可看到签名的信息了。]]> https://blog.imwebs.com/article.asp?id=626 <![CDATA[增量更新方案]]> webmaster@imwebs.com(parno) Wed,12 Sep 2018 21:24:18 +0800 https://blog.imwebs.com/default.asp?id=626
用对比方法的好处是服务端什么都不用做，坏处是客户端逻辑复杂，耗网络流量。在这种方案里，数据的新增和删除很容易判断，根据客户端数据的id列表和服务端数据的id列表进行对比就行，若要判断哪个数据有修改则比较麻烦，需要取回数据进行对比，如果从服务端拉回所有对所有数据进行对比会很耗网络流量，有一个优化方式，就是对每个数据的修改进行标记。
以日历为例，一个日历可修改的字段很多，例如时间段，内容，邀请人等，全部拉回来对比不现实，对此可以在服务端给每个日历事件新增一个字段tag，表示这个日历事件的版本，服务端更新一个日历事件时会同时更新这个tag，客户端只需要取回每个id对应的tag，跟本地保存的tag对比，不一致表示这个日历事件已经更新，再去获取日历实体就完成更新了。

若服务端因为某些原因无法给每个数据保存一个版本标记，可以实时计算，在客户端和服务端约定一个算法，把所有可变参数拿出来，通过特定算法hash出一个值，对比这个hash值判断是否需要更新。

邮件协议IMAP，日历协议CalDAV就是用这种方式做增量更新，IMAP并没有做上述的优化，在判断邮件有没有更新时只能乖乖把所有数据请求回来对比，数据是XML，算是相当低效的协议。CalDAV给每个日历事件加了上述的tag，直接对比即可知道是否需要更新。]]> https://blog.imwebs.com/article.asp?id=616 <![CDATA[Javascript 产生指定范围的随机数]]> webmaster@imwebs.com(parno) Thu,17 Jul 2014 10:21:23 +0800 https://blog.imwebs.com/default.asp?id=616
HTML代码


[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
]]> https://blog.imwebs.com/article.asp?id=612 <![CDATA[毫米、缇和英寸的单位换算]]> webmaster@imwebs.com(parno) Sat,07 Dec 2013 09:42:55 +0800 https://blog.imwebs.com/default.asp?id=612 1毫米=56.47twip

那么 1毫米 = 56.47/1440 = 0.0392 英寸]]> https://blog.imwebs.com/article.asp?id=597 <![CDATA[ADODB.Stream 写文本文件相关的 ASP 函数]]> webmaster@imwebs.com(parno) Fri,18 Jan 2013 14:55:24 +0800 https://blog.imwebs.com/default.asp?id=597
复制内容到剪贴板程序代码 程序代码
<%
'================================================
'函数名：CreatedTextFile
'作 用：创建文本文件
'参 数：FileName
'================================================
Public Function CreatedTextFile(ByVal FileName, ByVal body)
On Error Resume Next
If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
Dim oStream
Set oStream = CreateObject("ADODB.Stream")
oStream.Type = 2 '设置为可读可写
oStream.Mode = 3 '设置内容为文本
oStream.Charset = "UTF-8" '设置编码
oStream.Open
oStream.Position = oStream.Size
oStream.WriteText body
oStream.SaveToFile FileName, 2
oStream.Close
Set oStream = Nothing
If Err.Number <> 0 Then Err.Clear
End Function

'================================================
'函数名：Readfile
'作 用：读取文件内容
'参 数：fromPath —-来源文件路径
'================================================
Public Function Readfile(ByVal fromPath)
On Error Resume Next
Dim strTemp,fso,f
If InStr(fromPath, ":") = 0 Then fromPath = Server.MapPath(fromPath)
Set fso = Server.CreateObject(FSO_ScriptName)
If fso.FileExists(fromPath) Then
Set f = fso.OpenTextFile(fromPath, 1, True)
strTemp = f.ReadAll
f.Close
Set f = Nothing
End If
Set fso = Nothing
Readfile = strTemp
If Err.Number <> 0 Then Err.Clear
End Function
'================================================
%>
]]> https://blog.imwebs.com/article.asp?id=587 <![CDATA[ASP 写入 UTF-8 BOM 签名]]> webmaster@imwebs.com(parno) Tue,07 Aug 2012 16:01:20 +0800 https://blog.imwebs.com/default.asp?id=587
BOM 签名为 0xEF 0xBB 0xBF 三个字节，使用 ASP 输出方法如下：
复制内容到剪贴板程序代码 程序代码
Response.BinaryWrite(chrb(239))
Response.BinaryWrite(chrb(187))
Response.BinaryWrite(chrb(191))


按此可解决 CSV 文件在 Excel 2003 出现乱码的问题。]]> https://blog.imwebs.com/article.asp?id=583 <![CDATA[C# 常用函数、正则表达式]]> webmaster@imwebs.com(parno) Wed,28 Mar 2012 22:37:03 +0800 https://blog.imwebs.com/default.asp?id=583 常用函数

1、DateTime 数字型
System.DateTime currentTime=new System.DateTime();
1.1 取当前年月日时分秒
currentTime=System.DateTime.Now;
1.2 取当前年
int 年=currentTime.Year;
1.3 取当前月
int 月=currentTime.Month;
1.4 取当前日
int 日=currentTime.Day;
1.5 取当前时
int 时=currentTime.Hour;
1.6 取当前分
int 分=currentTime.Minute;
1.7 取当前秒
int 秒=currentTime.Second;
1.8 取当前毫秒
int 毫秒=currentTime.Millisecond; //（变量可用中文）
1.9 取中文日期显示——年月日时分
string strY=currentTime.ToString("f"); //不显示秒
1.10 取中文日期显示_年月
string strYM=currentTime.ToString("y");
1.11 取中文日期显示_月日
string strMD=currentTime.ToString("m");
1.12 取当前年月日，格式为：2003-9-23
string strYMD=currentTime.ToString("d");
1.13 取当前时分，格式为：14：24
string strT=currentTime.ToString("t");

2、Int32.Parse(变量) Int32.Parse("常量")
字符型转换 转为32位数字型

3、 变量.ToString()
字符型转换 转为字符串
12345.ToString("n"); //生成 12,345.00
12345.ToString("C"); //生成 ￥12,345.00
12345.ToString("e"); //生成 1.234500e+004
12345.ToString("f4"); //生成 12345.0000
12345.ToString("x"); //生成 3039 (16进制)
12345.ToString("p"); //生成 1,234,500.00%

4、变量.Length 数字型
取字串长度：
如： string str="中国";
int Len = str.Length ; //Len是自定义变量， str是求测的字串的变量名

5、System.Text.Encoding.Default.GetBytes(变量)
字码转换 转为比特码
如：byte[] bytStr = System.Text.Encoding.Default.GetBytes(str);
然后可得到比特长度：
len = bytStr.Length;

6、System.Text.StringBuilder("")
字符串相加，（+号是不是也一样？）
如：System.Text.StringBuilder sb = new System.Text.StringBuilder("");
sb.Append("中华");
sb.Append("人民");
sb.Append("共和国");

7、变量.Substring(参数1,参数2);
截取字串的一部分，参数1为左起始位数，参数2为截取几位。
如：string s1 = str.Substring(0,2);

8、String user_IP=Request.ServerVariables["REMOTE_ADDR"].ToString();
取远程用户IP地址

9、穿过代理服务器取远程用户真实IP地址：
if(Request.ServerVariables["HTTP_VIA"]!=null){
string user_IP=Request.ServerVariables["HTTP_X_FORWARDED_FOR"].ToString();
}else{
string user_IP=Request.ServerVariables["REMOTE_ADDR"].ToString();
}

10、 Session["变量"];
存取Session值；
如，赋值： Session["username"]="小布什";

取值： Object objName=Session["username"];
String strName=objName.ToString();
清空： Session.RemoveAll();

11、String str=Request.QueryString["变量"];
用超链接传送变量。
如在任一页中建超链接:<a href=Edit.aspx?fbid=23>点击</a>
在Edit.aspx页中取值：String str=Request.QueryString["fdid"];

12、DOC对象.CreateElement("新建节点名");
创建XML文档新节点

13、父节点.AppendChild(子节点)；
将新建的子节点加到XML文档父节点下

14、 父节点.RemoveChild(节点);
删除节点

15、Response
Response.Write("字串")；
Response.Write(变量)；
向页面输出。

Response.Redirect("URL地址"）；
跳转到URL指定的页面

16、char.IsWhiteSpce(字串变量，位数)——逻辑型
查指定位置是否空字符；
如：
string str="中国 人民";
Response.Write(char.IsWhiteSpace(str,2)); //结果为：True, 第一个字符是0位，2是第三个字符。

17、char.IsPunctuation('字符') --逻辑型
查字符是否是标点符号
如：Response.Write(char.IsPunctuation('A')); //返回：False

18、(int)'字符'
把字符转为数字，查代码点，注意是单引号。
如：
Response.Write((int)'中'); //结果为中字的代码：20013

19、(char)代码
把数字转为字符，查代码代表的字符。
如：
Response.Write((char)22269); //返回“国”字。

20、 Trim()
清除字串前后空格

21 、字串变量.Replace("子字串","替换为")
字串替换
如：
string str="中国";
str=str.Replace("国","央"); //将国字换为央字
Response.Write(str); //输出结果为“中央”

再如：（这个非常实用）

string str="这是<script>脚本";
str=str.Replace("<","<font><</font>"); //将左尖括号替换为<font> 与 < 与 </font> （或换为<，但估计经XML存诸后，再提出仍会还原）
Response.Write(str); //显示为：“这是<script>脚本”

如果不替换，<script>将不显示，如果是一段脚本，将运行；而替换后，脚本将不运行。
这段代码的价值在于：你可以让一个文本中的所有HTML标签失效，全部显示出来，保护你的具有交互性的站点。
具体实现：将你的表单提交按钮脚本加上下面代码：
string strSubmit=label1.Text; //label1是你让用户提交数据的控件ID。
strSubmit=strSubmit.Replace("<","<font><</font>");
然后保存或输出strSubmit。
用此方法还可以简单实现UBB代码。

22、Math.Max(i,j)
取i与j中的最大值
如 int x=Math.Max(5,10); // x将取值 10

23、字串对比一般都用: if(str1==str2){ } , 但还有别的方法:

(1)、
string str1; str2
//语法: str1.EndsWith(str2); __检测字串str1是否以字串str2结尾,返回布尔值.如:
if(str1.EndsWith(str2)){ Response.Write("字串str1是以"+str2+"结束的"); }

(2)、
//语法:str1.Equals(str2); __检测字串str1是否与字串str2相等,返回布尔值,用法同上.

(3)、
//语法 Equals(str1,str2); __检测字串str1是否与字串str2相等,返回布尔值,用法同上.

24、IndexOf() 、LastIndexOf()
查找字串中指定字符或字串首次（最后一次）出现的位置,返回索引值，如：
str1.IndexOf("字")； //查找“字”在str1中的索引值（位置）
str1.IndexOf("字串")；//查找“字串”的第一个字符在str1中的索引值（位置）
str1.IndexOf("字串",3,2)；//从str1第4个字符起，查找2个字符，查找“字串”的第一个字符在str1中的索引值（位置）

25、Insert()
在字串中指定索引位插入指定字符。如：
str1.Insert(1,"字");在str1的第二个字符处插入“字”，如果str1="中国"，插入后为“中字国”；

26、PadLeft()、PadRight()
在字串左（或右）加空格或指定char字符，使字串达到指定长度，如：
<%
string str1="中国人";
str1=str1.PadLeft(10,'1'); //无第二参数为加空格
Response.Write(str1); //结果为“1111111中国人” ， 字串长为10
%>

27、Remove()
从指定位置开始删除指定数的字符


常用正则表达式
[中国自学编程网整理发布]

这是我发了不少时间整理的C#的正则表达式，新手朋友注意一定要手册一下哦，这样可以节省很多写代码的时间

只能输入数字："^[0-9]*$"

只能输入n位的数字："^\d{n}$"

只能输入至少n位的数字："^\d{n,}$"

只能输入m~n位的数字："^\d{m,n}$"

只能输入零和非零开头的数字："^(0|[1-9][0-9]*)$"

只能输入有两位小数的正实数："^[0-9]+(.[0-9]{2})?$"

只能输入有1~3位小数的正实数："^[0-9]+(.[0-9]{1,3})?$"

只能输入非零的正整数："^\+?[1-9][0-9]*$"

只能输入非零的负整数："^\-[1-9][]0-9"*$

只能输入长度为3的字符："^.{3}$"

只能输入由26个英文字母组成的字符串："^[A-Za-z]+$"

只能输入由26个大写英文字母组成的字符串："^[A-Z]+$"

只能输入由26个小写英文字母组成的字符串："^[a-z]+$"

只能输入由数字和26个英文字母组成的字符串："^[A-Za-z0-9]+$"

只能输入由数字、26个英文字母或者下划线组成的字符串："^\w+$"

验证用户密码："^[a-zA-Z]\w{5,17}$"正确格式为：以字母开头，长度在6~18之间，只能包含字符、数字和下划线

验证是否含有^%&',;=?$\"等字符："[^%&',;=?$\x22]+"

只能输入汉字："^[\u4e00-\u9fa5]{0,}$"

验证Email地址："^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"

验证InternetURL："^http://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?$"

验证电话号码："^(\(\d{3,4}-)|\d{3.4}-)?\d{7,8}$"正确格式为："XXX-XXXXXXX"、"XXXX-XXXXXXXX"、"XXX-XXXXXXX"、"XXX-XXXXXXXX"、"XXXXXXX"和"XXXXXXXX"

验证身份证号(15位或18位数字)："^\d{15}|\d{18}$"

验证一年的12个月："^(0?[1-9]|1[0-2])$"正确格式为："01"～"09"和"1"～"12"

验证一个月的31天："^((0?[1-9])|((1|2)[0-9])|30|31)$"正确格式为;"01"～"09"和"1"～"31"

利用正则表达式限制网页表单里的文本框输入内容：
用正则表达式限制只能输入中文：onkeyup="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\u4E00-\u9FA5]/g,''))"

用正则表达式限制只能输入全角字符： onkeyup="value=value.replace(/[^\uFF00-\uFFFF]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\uFF00-\uFFFF]/g,''))"

用正则表达式限制只能输入数字：onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"

用正则表达式限制只能输入数字和英文：onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"

得用正则表达式从URL地址中提取文件名的javascript程序，如下结果为page1
复制内容到剪贴板程序代码 程序代码
s="http://www.9499.net/page1.htm"
s=s.replace(/(.*\/){0,}([^\.]+).*/ig,"$2")
alert(s)


匹配双字节字符(包括汉字在内)：[^\x00-\xff]
应用：计算字符串的长度(一个双字节字符长度计2，ASCII字符计1)
复制内容到剪贴板程序代码 程序代码
String.prototype.len=function(){return this.replace([^\x00-\xff]/g,"aa").length;}


匹配空行的正则表达式：\n[\s| ]*\r

匹配HTML标记的正则表达式：/<(.*)>.*<\/\1>|<(.*) \/>/

匹配首尾空格的正则表达式：(^\s*)|(\s*$)
复制内容到剪贴板程序代码 程序代码
String.prototype.trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}


利用正则表达式分解和转换IP地址：
下面是利用正则表达式匹配IP地址，并将IP地址转换成对应数值的Javascript程序：
复制内容到剪贴板程序代码 程序代码
function IP2V(ip)
{
re=/(\d+)\.(\d+)\.(\d+)\.(\d+)/g //匹配IP地址的正则表达式
if(re.test(ip))
{
return RegExp.$1*Math.pow(255,3))+RegExp.$2*Math.pow(255,2))+RegExp.$3*255+RegExp.$4*1
}
else
{
throw new Error("Not a valid IP address!")
}
}
]]> https://blog.imwebs.com/article.asp?id=582 <![CDATA[Excel VBA 了解这点，做任何事]]> webmaster@imwebs.com(parno) Tue,27 Mar 2012 16:30:55 +0800 https://blog.imwebs.com/default.asp?id=582 Workbook 对象：Microsoft Excel 工作簿对象，可以看成当前打开的 Excel 文件
'可以使用 Application 对象的 ActiveWorkbook 属性得到当前工作簿实例。

'Worksheet 对象：工作表对象，是Worksheets 集合的成员
'可以使用 Worksheet 对象的 ActiveSheet 属性得到当前工作表实例。

'那么，试试获取当前工作簿的名称吧，应该会返回“Sheet1”

复制内容到剪贴板程序代码 程序代码
Sub TestWooksheetName()

Dim myWorkBook As Workbook
Dim mySheet As Worksheet

Set myWorkBook = Application.ActiveWorkbook
Set mySheet = myWorkBook.ActiveSheet

Debug.Print mySheet.Name

End Sub


'Cells 属性：Worksheet 对象的属性，表示工作表所有单元格
'它像一个二维数组，第一维是工作表行位置，第二维是工作表列位置，
'例如，取得工作表第一行第一列单元格表示为 Cells(1,1)

'遍历工作表第一列的所有内容及第一行的所有内容

复制内容到剪贴板程序代码 程序代码
Sub TestListColumns()

Dim myWorkBook As Workbook
Dim mySheet As Worksheet

Set myWorkBook = Application.ActiveWorkbook
Set mySheet = myWorkBook.ActiveSheet

Dim i As Long

'遍历工作表第一列的所有内容
For i = 1 To mySheet.Cells.Count
    If Len(mySheet.Cells(i, 1)) = 0 Then Exit For   '如果单元格为空则跳出循环
    Debug.Print mySheet.Cells(i, 1)
Next i

'遍历工作表第一行的所有内容
For i = 1 To mySheet.Cells.Count
    If Len(mySheet.Cells(1, i)) = 0 Then Exit For   '如果单元格为空则跳出循环
    Debug.Print mySheet.Cells(1, i)
Next i

End Sub


'上例中用 Cells.Count 取得了工作表所有的单元格，是一个比较大的数值。
'如果你想深入学习 Excel VBA 可能要去了解一下 Worksheet.UsedRange 对象的 Columns 属性和 Rows 属性，
'但仅是知道上面这些，只要你了解 VBscript 我觉得可以做任何事情了。]]> https://blog.imwebs.com/article.asp?id=569 <![CDATA[删除 SQL Server 2000 的危险扩展]]> webmaster@imwebs.com(parno) Tue,26 Jul 2011 11:29:56 +0800 https://blog.imwebs.com/default.asp?id=569
复制内容到剪贴板程序代码 程序代码
use master
exec sp_dropextendedproc 'xp_cmdshell'
exec sp_dropextendedproc 'xp_dirtree'
exec sp_dropextendedproc 'xp_enumgroups'
exec sp_dropextendedproc 'xp_fixeddrives'
exec sp_dropextendedproc 'xp_loginconfig'
exec sp_dropextendedproc 'xp_enumerrorlogs'
exec sp_dropextendedproc 'xp_getfiledetails'
exec sp_dropextendedproc 'Sp_OACreate'
exec sp_dropextendedproc 'Sp_OADestroy'
exec sp_dropextendedproc 'Sp_OAGetErrorInfo'
exec sp_dropextendedproc 'Sp_OAGetProperty'
exec sp_dropextendedproc 'Sp_OAMethod'
exec sp_dropextendedproc 'Sp_OASetProperty'
exec sp_dropextendedproc 'Sp_OAStop'
exec sp_dropextendedproc 'Xp_regaddmultistring'
exec sp_dropextendedproc 'Xp_regdeletekey'
exec sp_dropextendedproc 'Xp_regdeletevalue'
exec sp_dropextendedproc 'Xp_regenumvalues'
exec sp_dropextendedproc 'Xp_regread'
exec sp_dropextendedproc 'Xp_regremovemultistring'
exec sp_dropextendedproc 'Xp_regwrite'
drop procedure sp_makewebtask
go


假如需要恢复，可以使用下面的脚本：

复制内容到剪贴板程序代码 程序代码
use master
exec sp_addextendedproc xp_cmdshell,'xp_cmdshell.dll'
exec sp_addextendedproc xp_dirtree,'xpstar.dll'
exec sp_addextendedproc xp_enumgroups,'xplog70.dll'
exec sp_addextendedproc xp_fixeddrives,'xpstar.dll'
exec sp_addextendedproc xp_loginconfig,'xplog70.dll'
exec sp_addextendedproc xp_enumerrorlogs,'xpstar.dll'
exec sp_addextendedproc xp_getfiledetails,'xpstar.dll'
exec sp_addextendedproc sp_OACreate,'odsole70.dll'
exec sp_addextendedproc sp_OADestroy,'odsole70.dll'
exec sp_addextendedproc sp_OAGetErrorInfo,'odsole70.dll'
exec sp_addextendedproc sp_OAGetProperty,'odsole70.dll'
exec sp_addextendedproc sp_OAMethod,'odsole70.dll'
exec sp_addextendedproc sp_OASetProperty,'odsole70.dll'
exec sp_addextendedproc sp_OAStop,'odsole70.dll'
exec sp_addextendedproc xp_regaddmultistring,'xpstar.dll'
exec sp_addextendedproc xp_regdeletekey,'xpstar.dll'
exec sp_addextendedproc xp_regdeletevalue,'xpstar.dll'
exec sp_addextendedproc xp_regenumvalues,'xpstar.dll'
exec sp_addextendedproc xp_regread,'xpstar.dll'
exec sp_addextendedproc xp_regremovemultistring,'xpstar.dll'
exec sp_addextendedproc xp_regwrite,'xpstar.dll'
go

]]>