<![CDATA[小鱼/sun]]> http://10874201.qzone.qq.com Sun, 29 Nov 2009 15:58:15 GMT Qzone zh-cn Copyright (C), 2005-2008, Tencent Tech. Co., Ltd. Fri, 09 Oct 2009 08:51:06 GMT <![CDATA[哗~~不知道乱吃会死人]]> http://10874201.qzone.qq.com/blog/1255078266 断定为因砒霜中毒而死亡。那砒霜从何而来一名医学院的教授被邀赶来协助破案。
教授仔细地察看了死者胃中取物，不到半个小时，暴毙之谜便揭晓。教授说：「死者并非自杀，亦不是被杀，而是死于无知的『它杀』」大家莫名其妙。教授说：「砒霜是在死者腹内产生的。」死者生前每天也会服食「维他命C 」，这完全没有问题问题出在她晚餐了大量的虾，虾本身也是没有问题的，所以她在家了都没有事，但死者却同时服用了「维他命C 」，问题就出在这里 !
美国芝加哥大学的研究员，通过实验发现，虾等软壳类食物含有大量浓度较高的－五钾砷化合物。这种物质食入体内，本身对体并无毒害作用但是，在服用「维生素C」之后，由于化学作用，使原来无毒的－五钾砷 (即砷酸酐，亦称五氧化砷，其化学式为(As05)，转变为有毒的三钾砷 (即亚砷酸酐 )，又称为三氧化二砷，其化学式为(As203)，这就是们俗称的砒霜!
砒霜有原浆毒作用，能麻痹毛细血管，抑制巯基梅的活性，并使肝脏脂变肝小叶中心坏死，心、肝、肾、肠充血，上皮细胞坏死，毛细血管扩张。故中其毒而死者，常是七窍出血。
所以；为慎重起见，在服用「维生素 C 」期间，应当忌食虾类。
看完后；请不要吝啬，转寄给的同学和亲友,现在很多饮料里都有维他命C
虾+维C=中毒 感冒药+可乐=中毒 ]]> http://10874201.qzone.qq.com/blog/1255078266#comment 134218240 Fri, 09 Oct 2009 08:51:06 GMT http://10874201.qzone.qq.com/blog/1255078266 <![CDATA[刚刚创建了《QQ飞车》新角色，来玩玩吧！]]> http://10874201.qzone.qq.com/blog/1219920590 最火爆赛车网游《QQ飞车》主打时尚与好玩两大特色，清新浪漫逼真的场景设计， 世界顶级的物理引擎、时尚的人物，炫酷的赛车、动感的音乐，真实的赛车手感、缤纷的赛道，边境赏金比赛、 浪漫海滨同城聊天……带你进入一个极速炫目，浪漫休闲，激情飞扬的飞车世界。
朋友，你是不是也有玩飞车也喜欢玩飞车呢？给我留言吧，我们有空约好一起去赛道上跑一跑，看看谁的车技好。如果你是顶尖高手，那可要让着我哦，我车技嘛， 还真不好说，赛场上见分晓，呵呵！
约好了，不见不散哦，让我们一起畅游《QQ飞车》极速世界，体验漂移无限乐趣吧！


《QQ 飞车》官方网站： http://speed.qq.com ]]> http://10874201.qzone.qq.com/blog/1219920590#comment 513 Thu, 28 Aug 2008 10:49:50 GMT http://10874201.qzone.qq.com/blog/1219920590 <![CDATA[和大家分享一下本人学习编写Flash播放器代码成果]]> http://10874201.qzone.qq.com/blog/1191043312 fscommand("allowscale", "false");
fscommand("showmenu", "false");
System.useCodepage = true;
c = 0;
txt = "数据加载中……";
var shiyan_lv = new LoadVars();
shiyan_lv.sendAndLoad("music.asp?act=my0668_music",shiyan_lv,"post");
shiyan_lv.onLoad = function(text){
if (text) { //获取外部歌曲目录数据内容/////注：利用后台music.asp文件读取数据库内容,输出所有歌曲目录数据
var mp3_path = shiyan_lv.txt_1;
var mp3_name = shiyan_lv.txt_2;
a = mp3_path.split("|");
b = mp3_name.split("|");
my_sound = new Sound();
my_sound.loadSound(a[c], true);
txt = b[c]+" <br>路径:"+a[c];
c++;
last_next();
}else{
txt = "数据加载失败";
trace("数据加载失败");
}
}
///////////////////////停止与播放函数
function play_stop(s){
switch (s) {
case 1:
c--;
play_s.gotoAndStop("no");
my_sound = new Sound();
my_sound.loadSound(a[c], true);
txt=b[c];
c++;
last_next();
break;
case 0:
play_s.gotoAndStop("yes");
my_sound.stop();
break;
}
}
////////////////////播放完一首后继续播放下一首//;
function last_next(){
my_sound.onSoundComplete = function(){
if(c>=a.length)c=0;
txt = b[c]+" <br>路径:"+a[c];
trace(a[c]+" 曲目:"+b[c]);
my_sound.loadSound(a[c], true);
c++;
}
}
//////////////播放上一首//////////////////
on (press) { //上一首
if(c>1){
c=c-2;
play_s.gotoAndStop("no");
my_sound.stop();
my_sound.loadSound(a[c], true);
txt = b[c]+" <br>路径:"+a[c];
c++;
_root.last_next();
}
}
//////////////播放下一首//////////////////
on (press) { //下一首
if(c<a.length){
play_s.gotoAndStop("no");
my_sound.stop();
my_sound = new Sound();
my_sound.loadSound(a[c], true);
txt = b[c]+" <br>路径:"+a[c];
c++;
_root.last_next();
}
}
///////////////////////////////////////////
on (press) { //播放按键
_root.play_stop(1);
}
on (press) { //停止按键
_root.play_stop(0);
}
简单的flash播放器核心代码到此完成！！~~至于界面嘛~~~
慢慢发挥一下自己的美术细胞~~~嘻! ]]> http://10874201.qzone.qq.com/blog/1191043312#comment 576 Sat, 29 Sep 2007 05:21:52 GMT http://10874201.qzone.qq.com/blog/1191043312 <![CDATA[2007年7月23那天我们遇到了——恶势力！]]> http://10874201.qzone.qq.com/blog/13 太阳再大，大地上总有它照不到的黑暗角落！
廉政与腐败并存，他们永远都在不停作斗争！
主宰世界的人类，有好人；也有坏人；但愿好人一生平安！
今天的屈辱与失败，是上天的考验，时时刻刻提醒我要自强！
摆在面前只有一条路：努力进取；自强不息；奋发图强！ ]]> http://10874201.qzone.qq.com/blog/13#comment 512 Thu, 26 Jul 2007 23:47:39 GMT http://10874201.qzone.qq.com/blog/13 <![CDATA[按钮链接乾坤大挪移]]> http://10874201.qzone.qq.com/blog/12 1、按钮做成链接(图片)的样子
提交按钮<input type="submit" value="提交">
提交链接<a href="#" onclick="表单名字.submit()">提交</a>

重置按钮<input type="reset" value="重置">
重置链接<a href="#" onclick="表单名字.reset()">重置</a>

普通按钮<input type="button" value="按钮" onclick="函数()">
普通链接<a href="#" onclick="函数()">链接</a>

至于图片也一样把a标签换成img

2、链接做成按钮的样子
<a href="reg.asp">注册</a>
=><input type="button" value="注册" onclick="location.href='reg.asp'">

-----------------------------------
有的时候我们完全可以手工做一个get方式的表单，至于用按钮还是链接随心所欲。
<form action="xx.asp" method="get" name="form1">
<input name="aa" type="text" id="aa">
<input name="bb" type="text" id="bb">
<input type="submit" name="Submit" value="提交">
</form>
=>
<input name="aa" type="text" id="aa">
<input name="bb" type="text" id="bb">
<input type="button" value="按钮" onclick="location.href='xx.asp?aa='+document.all['aa'].value+'&bb='+document.all['bb'].value">
-----------------------------------
进一步说我们还可以做一个按钮（链接）来同时传递js变量，表单input的值，asp变量，Recordset值
<script language="javascript">
var id1=1；
</script>
<%
id3=3
....
rs.open exec,conn,1,1
假设有rs("id4")=4
...
%>
<input name="id2" type="text" id="id2" value="2">
<input type="button" value="按钮"
onclick="location.href='xx.asp?id1='+id1+'&id2='+document.all['id2'].value+'&id3=<%=id3%>&id4=<%=rs("id4")%>'">
我们按下按钮会看到浏览器的url是xx.asp?id1=1&id2=2&id3=3&id4=4
在xx.asp中我们就可以用request.querystring来得到所有变量,这样是不是变相的客户端js和服务器段的变量传递？ ]]> http://10874201.qzone.qq.com/blog/12#comment 512 Thu, 27 Apr 2006 01:36:44 GMT http://10874201.qzone.qq.com/blog/12 <![CDATA[个人建站经验技巧]]> http://10874201.qzone.qq.com/blog/11
1.几个常用函数
Round(pi, 2) 四舍五入

FormatNumber(k,4) ' 把 k 格式化为带四位小数点的数。
eg. 如果k =20000则显示为20,000.00；如果把formatnumber(k,0)则为20,000

Replace(expression,find,replacewith) '返回一字符串，其中指定的子串已被另一个子串替换

Left(String,Length) '返回指定数目的从字符串的左边算起的字符串。

Split(expression[, delimiter[, count[, start]]]) '返回基于 0 的一维数组，其中包含指定数目的子字符串。
eg. 常用这个 Split(String,[delimiter]) ' 用delimiter(用于标识子字符串界限的字符)来划分字符串

Instr(String1,String2) '返回某字符串在另一字符串中第一次出现的位置
eg1. if instr(addation,"密码配置表")<>0 then '说明存在
eg2. if instr(str,”AP”) >0 不好区分str = (AP,AP&AC),此时只要变为（’AP’,’AP&AC’）,再用instr(str,”’AP’”)
2. 弹出窗口Pick值

function pickupSP(spdisid,pjnum,pdcode)
{
window.opener.<%=theForm%>.RefNum<%=Spid%>.value=spdisid;
window.opener.<%=theForm%>.LineS<%=Spid%>.value=pjnum;
window.opener.<%=theForm%>.kokey<%=Spid%>.value=pdcode;
window.close();
}
3. ASP控制图片显示的大小（等比例缩放）
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<script language="JavaScript">
<!--
var flag=false;
function DrawImage(ImgD){
var image=new Image();
image.src=ImgD.src;
if(image.width>0 && image.height>0){
flag=true;
if(image.width/image.height>= 164/112){
if(image.width>164){
ImgD.width=164;
ImgD.height=(image.height*164)/image.width;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+"x"+image.height;
}
else{
if(image.height>112){
ImgD.height=112;
ImgD.width=(image.width*112)/image.height;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+"x"+image.height;
}
}
}
//-->
</script>
</HEAD>
<BODY>
<a href="./img.jpg" target="_blank"><img src="./img.jpg" border="0" width="164" height="112" onload="javascript:DrawImage(this);"></a>
</BODY>
</HTML>
4. ASP中对数据库表的操作(INSERT/UPDATE/DELETE),可使用事务处理,并支持多事务处理.
在ASP的数据库对象链接对象中,提供了一下属性:
BeginTrans 事务开始
CommitTrans 事务提交
RollbackTrans 事务回滚
<%
On Error Resume Next ’错误发生后继续处理
'Asp中使用事务
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "course_dsn","course_user","course_password"
conn.begintrans '开始事务
sql="delete from user_info"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if conn.errors.count>0 then '有错误发生
conn.rollbacktrans '回滚
set rs=nothing
conn.close
set conn=nothing
response.write "交易失败，回滚至修改前的状态！"
response.end
else
conn.committrans '提交事务
set rs=nothing
conn.close
set conn=nothing
response.write "交易成功！"
response.end
end if
%>
在ASP中,不提供事务的结束,BeginTrans只作用于自己的域,类似于变量声明一样,如果在函数体内BeginTrans,则事物只作用于本函数体,如果BeginTrans在函数体外,处于页面级,则事务的作用域从BeginTrans开始,到页面的结束均处于事务的管理状态下. ]]> http://10874201.qzone.qq.com/blog/11#comment 512 Sat, 08 Apr 2006 05:34:07 GMT http://10874201.qzone.qq.com/blog/11 <![CDATA[保持数据库中原有格式不变]]> http://10874201.qzone.qq.com/blog/10 其实当在输入信息，然后提交信息的时候，所有内容的格式是没有变的。
只是在当提取数据库的时候，某些特殊的东西需要将它们显示出来：比如空格、比如回车等
1，先定义一个函数：主要作用是替换特殊字符代码
<%
function HTMLEncode(fString)

fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = Replace(fString, CHR(32), "&nbsp;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString

end function
%>
2，直接调用该函数
<%=HTMLEncode(rs("content"))%>

<script language=vbs>
function HTMLEncode(fString)
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = Replace(fString, CHR(32), "&nbsp;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function
function output(str)
out.innerHTML=HTMLEncode(str)
end function
</script>
<textarea name=phx cols=95 rows=12></textarea>
<br><button onclick=output(phx.value)>显示</button>
<div id=out style="border:1 solid red;width:500;height:300"></div>

3，练习使用request对象接受数据，并且综合运用些函数。
--++<<cnbruce.html>>++--
<form action="cnbruce.asp" method="post">
<input type="text" name="title"><br>
<textarea name="content" rows=10 cols=20></textarea><br>
<input type="submit">
</form>
--++<<cnbruce.asp>>++--
<%
function th(str)
str=replace(str,"妈的","MD")
str=replace(str,"靠","KAO")
th=str
end function

function encode(str)
str = replace(str, ">", "&gt;")
str = replace(str, "<", "&lt;")
str = Replace(str, CHR(32), "&nbsp;")
str = Replace(str, CHR(13), "")
str = Replace(str, CHR(10) & CHR(10), "</P><P>")
str = Replace(str, CHR(10), "<BR>")
encode=str
end function
%>

<%title=request.form("title")
content=request.form("content")%>

文章标题：<%=th(title)%><hr>
文章内容：<%=encode(th(content))%>

th(str)为自定义函数，主要功能很简单：过滤字符。encode(str)也为自定义函数，主要功能是完整地显示被传递的信息。
CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格。

附加功能：显示UBB代码。
即ubb.asp中含有ubb()函数。

增强的cnbruce.asp

<!--#include file="http://www.cnbruce.com/blog/ubb.asp"-->
<%
function th(str)
str=replace(str,"妈的","MD")
str=replace(str,"靠","KAO")
th=str
end function
%>

<script>
function runEx(cod1) {
cod=document.all(cod1)
var code=cod.value;
if (code!=""){
var newwin=window.open('','','');
newwin.opener = null
newwin.document.write(code);
newwin.document.close();
}
}
</script>

<%title=request.form("title")
content=request.form("content")%>

文章标题：<%=th(title)%><hr>
文章内容：<%=ubb(unhtml(th(content)))%>

有了这些锻炼，相信在使用数据库的时候同样可以胜任。

Replace函数的作用：返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。

Replace(expression, find, replacewith[, compare[, count[, start]]])

expression 必选项。字符串表达式包含要替代的子字符串。
find 必选项。被搜索的子字符串。
replacewith 必选项。用于替换的子字符串。
start 可选项。expression中开始搜索子字符串的位置。如果省略，默认值为1。在和count关联时必须用.
count 可选项。执行子字符串替换的数目。如果省略，默认值为－1，表示进行所有可能的替换。在和start关联时必须用。
compare 可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅"设置"部分。如果省略,缺省值为0 ,这意味着必须进行二进制比较。

从前到后分别是"在哪里找，找什么，用什么替换"。

在VBScript里""（两个引号）在字符串里会自动存为一个引号，在JavaScript里\"等于引号

vbcrlf相当于回车符和换行符的组合.

至于Replace函数,其作用就是将字符串Str中的vbcrlf替换为"<Br>" ,vbCrLf&vbCrLf替换为"<p></p>"

下面的一个就是很有用的文字转换程序

<script language=vbs>
text="妈的,****,****,"
text=replace(text,"妈的","MD")
text=replace(text,"操","CAO")
text=replace(text,"叼","DIAO")
alert (text)
</script> ]]> http://10874201.qzone.qq.com/blog/10#comment 512 Mon, 03 Apr 2006 04:05:22 GMT http://10874201.qzone.qq.com/blog/10 <![CDATA[ASP用JMail、CDO发送邮件]]> http://10874201.qzone.qq.com/blog/9 首先是jmail.smtpmail的核心代码：
<%
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 = "Server Address" ’发送邮件的服务器
jmail.AddRecipient Email ’邮件的收件人
jmail.SenderName = "SenderName" ’邮件发送者的姓名
jmail.Sender = "Email Address" ’邮件发送者的邮件地址
jmail.Priority = 1 ’邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = "Mail Subject" ’邮件的标题
jmail.Body = "Mail Body" ’邮件的内容
jmail.AddRecipientBCC Email ’密件收件人的地址
jmail.AddRecipientCC Email ’邮件抄送者的地址
jmail.Execute() ’执行邮件发送
jmail.Close ’关闭邮件对象
%>
　　w3 Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来的单一对象Jmail.smtpmail发送邮件，有些方法需要身份验证的(如163、yahoo等)，可以用下面的方法解决：
<%
Set jmail = Server.CreateObject("JMAIL.Message") ’建立发送邮件的对象
jmail.silent = true ’屏蔽例外错误，返回FALSE跟TRUE两值j
mail.logging = true ’启用邮件日志
jmail.Charset = "GB2312" ’邮件的文字编码为国标
jmail.ContentType = "text/html" ’邮件的格式为HTML格式
jmail.AddRecipient Email ’邮件收件人的地址
jmail.From = "Email From for Sender" ’发件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" ’登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" ’登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" ’邮件的标题
jmail.Body = "Mail Body" ’邮件的内容
jmail.Prority = 1 ’邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("Server Address") ’执行邮件发送（通过邮件服务器地址）
jmail.Close() ’关闭对象
%>
　　再讲一下微软自带的CDONTS组件的发信的方法：
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") ’建立邮件对象
cdomail.Subject = "Mail Subject" ’邮件标题
cdomail.From = "Sender’s Mail" ’发件人的地址
cdomail.To = "Email will from" ’收件人的地址
cdomail.Body = "Mail Body" ’邮件的内容
cdomail.Send ’执行发送
%>
　　这种方法发送邮件是最简单的，同时也带来一定的问题，就是很少有服务器会开这项服务！

　　我们写程序，一般情况下都是说要代码模块化，这样方便维护，同时也方便移植。因此，我在这里将这个发邮件的写成一个子程，在调用的时候可以直接调用（当然，如果你高兴写成函数的话也是可以的，这个主要是看个人兴趣）：
<%
’参数说明
’Subject : 邮件标题
’MailAddress : 发件服务器的地址,如smtp.163.com
’Email : 收件人邮件地址
’Sender : 发件人姓名
’Content : 邮件内容
’Fromer : 发件人的邮件地址
Sub SendAction(subject, mailaddress, 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.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

’调用此Sub的例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "这是一封用JMAIL发送的测试邮件"
strContent = "JMail组件发送测试成功！"
strEmail = "runbing@eyou.com"
strFromer = "runbing@eyou.com"
strMailAddress = "mail.ubbcn.com" ]]> http://10874201.qzone.qq.com/blog/9#comment 512 Mon, 27 Mar 2006 06:41:31 GMT http://10874201.qzone.qq.com/blog/9 <![CDATA[防止ASP木马在服务器上运行]]> http://10874201.qzone.qq.com/blog/8
　　目前比较流行的ASP木马主要通过三种技术来进行对服务器的相关操作。

　　一、使用FileSystemObject组件

　　FileSystemObject可以对文件进行常规操作

　　可以通过修改注册表，将此组件改名，来防止此类木马的危害。

　　HKEY_CLASSES_ROOT\Scripting.FileSystemObject\改名为其它的名字，如：改为FileSystemObject_ChangeName

　　自己以后调用的时候使用这个就可以正常调用此组件了

　　也要将clsid值也改一下

　　HKEY_CLASSES_ROOT\Scripting.FileSystemObject\CLSID\项目的值

　　也可以将其删除，来防止此类木马的危害。

　　注销此组件命令：RegSvr32 /u C:\WINNT\SYSTEM32\scrrun.dll

　　禁止Guest用户使用scrrun.dll来防止调用此组件。

　　使用命令：cacls C:\WINNT\system32\scrrun.dll /e /d guests

　　二、使用WScript.Shell组件

　　WScript.Shell可以调用系统内核运行DOS基本命令

　　可以通过修改注册表，将此组件改名，来防止此类木马的危害。

　　HKEY_CLASSES_ROOT\WScript.Shell\及HKEY_CLASSES_ROOT\WScript.Shell.1\改名为其它的名字，如：改为WScript.Shell_ChangeName或WScript.Shell.1_ChangeName

　　自己以后调用的时候使用这个就可以正常调用此组件了

　　也要将clsid值也改一下

　　HKEY_CLASSES_ROOT\WScript.Shell\CLSID\项目的值
　　HKEY_CLASSES_ROOT\WScript.Shell.1\CLSID\项目的值

　　也可以将其删除，来防止此类木马的危害。

　　三、使用Shell.Application组件

　　Shell.Application可以调用系统内核运行DOS基本命令

　　可以通过修改注册表，将此组件改名，来防止此类木马的危害。

　　HKEY_CLASSES_ROOT\Shell.Application\
　　及HKEY_CLASSES_ROOT\Shell.Application.1\
　　改名为其它的名字，如：改为Shell.Application_ChangeName或Shell.Application.1_ChangeName

　　自己以后调用的时候使用这个就可以正常调用此组件了

　　也要将clsid值也改一下

　　HKEY_CLASSES_ROOT\Shell.Application\CLSID\项目的值
　　HKEY_CLASSES_ROOT\Shell.Application\CLSID\项目的值

　　也可以将其删除，来防止此类木马的危害。

　　禁止Guest用户使用shell32.dll来防止调用此组件。

　　使用命令：cacls C:\WINNT\system32\shell32.dll /e /d guests
　　注：操作均需要重新启动WEB服务后才会生效。

　　四、调用Cmd.exe

　　禁用Guests组用户调用cmd.exe
　　cacls C:\WINNT\system32\Cmd.exe /e /d guests

　　通过以上四步的设置基本可以防范目前比较流行的几种木马，但最有效的办法还是通过综合安全设置，将服务器、程序安全都达到一定标准，才可能将安全等级设置较高，防范更多非法入侵。 ]]> http://10874201.qzone.qq.com/blog/8#comment 512 Thu, 23 Mar 2006 05:37:06 GMT http://10874201.qzone.qq.com/blog/8 <![CDATA[Asp程序错误详细说明例表]]> http://10874201.qzone.qq.com/blog/7 MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)-->sql语句出错(数据类型不匹配或表名(字段名)错误或表处于编辑状态，或表不存在于conn打开的数据库中)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E14)-->sql语句出错(字段名错误,或数据类型不匹配)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E07)-->sql语句出错(要插入或更新的字段的类型与变量数据类型不匹配)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E57)-->sql语句出错(要插入或更新的数据溢出)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E10)-->sql语句出错(update字段名或要更新的数据类型错误)
MicrosoftOLEDBProviderforODBCDrivers(0x80004005)-->sql语句出错(要插入或更新的字段的数值不能为空值)
MicrosoftOLEDBProviderforODBCDrivers(0x80004005)　-->打开数据库出错，没有在指定目录发现数据库
MicrosoftOLEDBProviderforODBCDrivers(0x80040E37)-->没有发现表
MicrosoftVBscript运行时错误(0x800A000D)-->错误引用rs变量(rs对像已关闭或未定义)
MicrosoftVBscript运行时错误(0x800A01C2)-->vbscript脚本错误(vbscript语句出错)
MicrosoftVBscript运行时错误(0x800A0006)-->vbscript脚本错误(溢出错误)
MicrosoftVBscript编译器错误(0x800A040E)-->缺少loop
MicrosoftVBscript编译器错误(0x800A03EA)-->缺少if或endif
MicrosoftVBscript编译器错误(0x800A03EE)-->语句未结束(缺少")")
MicrosoftVBscript编译器错误(0x800A03F6)-->if语句出错(缺少endif)
MicrosoftVBscript运行时错误(0x800A005B)-->缺少set
MicrosoftVBscript运行时错误(0x800A0005)-->变量未定义
MicrosoftVBscript编译器错误(0x800A03F9)-->if语句缺少then
MicrosoftVBscript编译器错误(0x800A0411)-->dim语句定义错误
MicrosoftVBscript编译器错误(0x800A0408)-->sql语句错误
ADODB.Recordset(0x800A0BB9)-->sql语句出错(sql语句或conn语句未定义或对一个rs属性进行赋值时发生错误)
ADODB.Recordset(0x800A0CC1)-->rs对像出错(rs对像本身不存在或错误地引用了一个不存在的字段名)
ADODB.Recordset(0x800A0BCD)-->rs对像出错(记录集中没有记录却对记录集进行操作)
ADODB.Recordset(0x800A0E78)-->rs对像出错(记录集不存在,缺少rs.open语句)
ADODB.Recordset(0x800A0CC1)-->rs对像出错(引用了一个不存在的字段名)
ADODB.Recordset(0x800A0E7D)-->conn定义错误
ADODB.Recordset(0x800A0CB3)-->数据库以只读方式打开，无法更新数据 ]]> http://10874201.qzone.qq.com/blog/7#comment 512 Thu, 23 Mar 2006 05:33:26 GMT http://10874201.qzone.qq.com/blog/7