预览模式: 普通 | 列表

竖排调用一二级分类新闻图片

显示被隐藏内容 显示被隐藏内容
sub main_news_pic(cs_tnum,cs_cnum,cs_sid)   
dim tmp1,tmp_topic,tmp_url   
tmp1=vbcrlf&"<tr align=center>"   
sql="select top "&cs_tnum&" id,topic,pic from news where hidden=1 and ispic=1 and c_id="&cs_sid&" order by id desc"   
set rs=joekoe_cms.exec(sql,1)   
do while not rs.eof   
tmp_topic=rs(1)   
tmp_url="view.asp?id="&rs(0)   
tmp1=tmp1&vbcrlf&"<td align=center>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td align=center>"&pic_fk(rs("pic"),1,tmp_url)&"</td></tr>" & _
vbcrlf&" <tr><td align=center height="&dim_num(6)&"><a href='"&tmp_url&"' target=_blank>"&joekoe_cms.code_html(tmp_topic,1,cs_cnum)&"</a></td></tr>" & _
vbcrlf&" </table>" & _
vbcrlf&"</td></tr>"
rs.movenext   
loop   
rs.close   
tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
vbcrlf&"<tr class=bg_td><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"&ukong  
end sub
隐藏内容 隐藏内容
该内容已经被作者隐藏,只有会员才允许查阅 登录 | 注册


调用:
call main_news_pic(4,24,122)
红色:图片数量
紫色:标题字数
蓝色:分类ID
sql中的修改:
c_id为一级分类
s_id为二级分类

查看更多...

分类:Cms | 固定链接 | 评论: 7 | 引用: 0 | 查看次数: 637

为注册功能增加密码强度检查 FOR 1.2

把附件文件解压到style目录

打开register.asp
查找
<tr><td>登陆密码:</td><td><input type=password name=password size=20 maxlength=20><%response.write redx%></td></tr>

替换为
<tr><td>登陆密码:</td><td><input type=password name=password size=20 maxlength=20 onkeyup="javascript:SetPwdStrengthEx(document.reg_frm,this.value);"><%response.write redx%></td></tr>
<script type="text/javascript" src="Style/Pw.js"></script>
<script type="text/javascript">
function DispPwdStrength(iN,sHL){ if(iN>3){ iN=3;}for(var i=0;i<4;i++){ var sHCR="css0162";if(i<=iN){ sHCR=sHL;}if(i>0){ GEId("IDSM"+i).className=sHCR;}GEId("IDSMT"+i).style.display=((i==iN)?"inline":"none");}}
</script> 
<tr><td>密码强度:</td><td><table style="width: 135px; height: 20px;" cellpadding="0" cellspacing="0"><tbody><tr><td id="IDSM1" style="background-color:#EBEBEB;border-right:solid 1px #BEBEBE;border-bottom:solid 1px #BEBEBE;" align="center" valign="middle" width="33%"><span style="font-size: 1px;"> </span><span id="IDSMT1" style="display: none; color:#FF0000">弱</span></td> <td id="IDSM2" style="background-color:#EBEBEB;border-right:solid 1px #BEBEBE;border-bottom:solid 1px #BEBEBE;" align="center" valign="middle" width="34%"><span style="font-size: 1px;"> </span><span id="IDSMT0" style="display: inline; font-weight: normal; color:#6633FF">未评级</span><span id="IDSMT2" style="display: none; color:#FF9900">中</span></td><td id="IDSM3" style="background-color:#EBEBEB;border-right:solid 1px #BEBEBE;border-bottom:solid 1px #BEBEBE;"  align="center" valign="middle" width="33%"><span style="font-size: 1px;"> </span><span id="IDSMT3" style="display: none; color:#339900">强</span></td></tr></tbody></table></td></tr>


打开user_pass.asp
查找<tr class=bg_tds>
<...

查看更多...

分类:Cms | 固定链接 | 评论: 8 | 引用: 0 | 查看次数: 667

用磁盘序列号对ASP进行加密

自从ASP(Active Server Pages)问世以来,因其可以创建健壮易于维护、与平台无关的应用系统,ASP技术受到了越来越多网络程序员的喜爱,使用ASP从事WEB开发的人也越来越多。但ASP只是一种非编译型的、在服务端运行的脚本语言,采用明文(plain text)方式来编写,即使采用了ASP加密程序对ASP源码进行加密,也不一定能保证发布到运行环境中去的ASP应用程序不被非法拷贝。对于高权限的管理员,可以轻而易举从服务器端拷贝出ASP程序应用到别的非授权网站。这样给ASP应用商业化带来了一定的困难。如何有效保护开发出来的ASP程序,本文基于磁盘序列号产生的随机性,结合微软官方免费提供的ASP脚本加密程序SCRENC.EXE,很好地解决了这个问题。 
    磁盘序列号,简称磁盘ID,是对磁盘进行格式化时随机产生的磁盘标识信息,是一个卷序列号。同一机器两次格式化随机产生固定格式的序列号相同几率几乎为零, DOS的后期版本和WINDOWS、WINNT均采用了这种磁盘标识方式,因而磁盘序列号常被运用用于商业化软件进行加密使用。从WINDOWS9.X切换到MS-DOS方式,键入DIR命令后回车,屏幕出现当前卷标序列号信息,这个类似"0A48-1CD7"的序列号是一个16进制数。一些限期使用的软件,在使用期限到了之后,会要求使用者在线申请新的授权序列号(使用许可)。这种授权序列号相当一部分是采用了静态磁盘序列号结合时间产生的。安装完毕之后的软件,程序即使被非法拷贝到非初始安装环境中,也不能使用。
 

上述思想用VC、VB及DELIPHI编程语言都容易实现,那么,在ASP中又如何实现呢?VBScript作为一种健壮的、安全的用户语言,是受客户机系统限制的,不能处理客户机上API的调用,也不能直接操纵客户机上的文件和文件系统之外的控件。因而本文采用VBScript并结合ASP内置组件FileSystem来实现上述思想。 以下程序根据具体情况略加修改,可以应用于实际的ASP应用系统。 

作为讲解实例,本文用到Access数据库安全机制,实际应用中,可以用其它格式的文件存放的数据。为便于阐述,我们先建一个Access数据库ID.mdb(密码为"kxj"),内建一个DriveInfo表,数据结构如下: 

id(自动编号) ;
Serno(文本,12,磁盘序列号(10进制)) ;
Wrimark(数字,1,写盘标志,)。


说明 

Wrimark 值为0代表合法用户未安装系统,值为1代表该系统已安装。当值为1且序列号与当前盘不符时,则判定为非法拷贝用户。 

初始化时先定义一个新记录,各字段初始值分别为1,12345678,0。 

在同一目录下,例如C:\INTERPUB\WWWROOT下,放置首页Default.asp,合法用户首页Success.asp,非法安装用户提示页Fail.htm及ID.mdb序列号存放库。 

各ASP文件的编写操作如下: 

1、用FrontPage(或NotePad),新建一个ASP文件Default.asp,录入以下程序代码: 

<html>
<head>
<title>Sample</title>
</head>
<% dim conn,fs,f
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=kxj;dbq="&server.mappath("id.mdb")
set fs=server.createObject("scripting.filesystemobject")
testDrive=Server.MapPath("/DRIVEINFO.ASP")
'通过MapPath获得当前盘盘符
testDrive=Left(testDrive,3)
set f=fs.getdrive(testDrive)
'调用GetDrive方法,将驱动器赋予一个变量
Mysql="Select * From driveinfo where id=1" 
set rsCheck = Server.CreateObject("ADODB.Recordset")
rsCheck.open Mysql,conn,1,1
FSER=trim(f.serialnumber)
'获得当前盘序列号
StrSerno=trim(rsCheck.fields("SERNO"))
StrMark=rsCheck.fields("WRIMARK")
if StrSerno<>FSER and StrMark=0 then
'若是首次安装,则置写盘标志为1
session("pass")=true
'定义用户Session,并置为全局ASP文档标识变量
set rsMain = Server.CreateObject("ADODB.Recordset")
Mysql1="update driveinfo SET SERNO="&FSER&", WRIMARK=1" 
rsMain.open Mysql1,conn,1,2
response.write("<a href='success.asp'>SETUP 
SUCCESSFUL!WELCOME TO ACCESS THE WEBS99vE!</a>")
set rsMain=nothing
else 
if StrSerno=FSER then
'若是合法用户再次合法进入
session("pass")=true
response.write("<a href='success.asp'>YOU ARE AUTHORIZED BY THE WEBS99vE MANAGER,WELCOME TO ACCESS !</a>")
else
'非法拷贝用户
session("pass")=false
response.write("<a href='fail.htm'>99v&nb...

查看更多...

分类:Asp | 固定链接 | 评论: 7 | 引用: 0 | 查看次数: 833

百度有个超长的域名 你们知道么

http://www.mamashuojiusuannizhucedeyumingzaichangbaidudounengsousuochulai.cn/

汉语拼音是
妈妈说就算你注册域名再长百度都能搜索出来

听说GOOGLE也有一个
http://www.mamashuojiusuannizhucedeyumingzaichanggoogledounengsousuochulai.cn/

而且这么变态的事是GOOGLE先干的
百度随后模仿的      

查看更多...

分类:Other | 固定链接 | 评论: 8 | 引用: 0 | 查看次数: 816
一对新婚夫妇生活贫困,要靠亲友的接济才能活下去。一天,丈夫对妻子说:“亲爱的,我要离开家了。我要去很远的地方找一份工作,直到我有条件给你一种舒适体面的生活才会回来。我不知到会去多久,我只求你一件事,等着我,我不在的时候要对我忠诚,我也会对你忠诚的。” 

  很多天后,来到一个正在招工的庄园,他被录用了。他要老板答应他一个请求:“请允许我在这里想干多久就多久,当我觉得应该离开的时候,您就要放我走。我平时不想支取报酬,请您将我的工资存在我的账户里,在我离开的那天,您在把我挣的钱给我。”双方达成协议。 

 

  年轻人在那里一工作就是20年,中间没有休假。一天,他对老板说:“我想拿回我的钱,我要回家了。”老板说:“好吧,我们有协议,我会照协议办的。不过我有个建议,要么我给你钱,你走人;要么我给你三条忠告,不给你钱,然后你走人。你回房间好好想想再给我答复。” 

  他想了两天,然后找到老板说:“我想要你那三条忠告。”老板提醒说:“如果给你忠告,我就不给你钱了。”年轻人坚持说:“我想要忠告。” 

  于是老板给了他“三条忠告”: 

  第一,永远不要走捷径。便捷而陌生的道路可能要了你的命。 

  第二,永远不要对可能是坏事的事情好奇,否则也会要了你的命。 

  第三,永远不要在仇恨和痛苦的时候作决定,否则你以后一生会后悔的。 

  老板接着说:“这里有三个面包,两个给你路上吃,另一个等你回家后和妻子一起吃吧。” 

  在远离自己深爱的妻子和家庭20年后,男人踏上了回家的路。一天后,他遇到了一个人,那人问他:“你去哪里?”他回答:“我要去一个沿着这条路要走20多天的地方。”那人说:“这条路太远了,我认识一条捷径,几天就能到。”他高兴极了,正准备走捷径的时候,想起老板的第一条忠告,他回到了原来的路上。后来,他得知那个人让他走的所谓捷径完全是个圈套。 

  几天后,他走累了,发现路边有家旅馆,他打算住一夜,付过房钱后他躺下睡了。睡梦中他被声惨叫惊醒,他跳了起来,正想开门看看发生了什么事,但他想起了第二条忠告,于是回到床上继续睡觉。起床后喝完咖啡,店主问他是否听到了叫声,他说听到了,店主问:“您不好奇吗?”他回答说不好奇。店主说:“您是第一个活着从这里出去的客人。我的独子有疯病,他经常大声叫着引客人出来,然后将他杀死埋掉。” 

  他接着赶路,终于在一天的黄昏时分,远远望见了自己的小屋。屋里的烟囱正冒着炊烟,还依稀可以看见妻子的身影,虽然天色昏暗,但他依然看清了妻子不是一个,还有一个男子伏在她的膝头,她抚摸着他的头发。看到这一幕,他的内心充满仇恨和痛苦,他想跑过去杀了他们,他深吸一口气,快步走了过去,这时他想起了第三条忠告,于是停下来,决定在原地露宿一晚,第二天在做决定。天亮后,已恢复冷静的他对自己说:“我不能杀死我的妻子,我要回到老板那里,求他收留我,在这之前,我想告诉我的妻子我始终忠于她。”她走到家门口敲了敲门,妻子打开门,认出了他,扑到他的怀里,紧紧的抱住了他。他想把妻子推开,但没有做到。他眼含泪水对妻子说:“我对你是忠诚的,可你背叛了我......” 

  妻子吃惊的说:“什么?我从未背叛过你,我等了你20年。” 

  他说:“那么昨天下午你爱抚的那个男人是谁?” 

  妻子说:“那是我们的儿子。你走的时候我刚刚怀孕,今年他已经20岁了。” 

  丈夫走进家门,拥抱了自己的儿子。在妻子忙着做晚饭的时候,他给儿子讲述了自己的经历。一家人坐下来一起吃面包,他把老板送的面包掰开,发现里面有一沓钱-那是他20年辛辛苦苦劳动得来的工钱。 

查看更多...

分类:Other | 固定链接 | 评论: 5 | 引用: 0 | 查看次数: 839

[转]老程序员十年生涯黯然总结

今年是我大学毕业满10年的日子,也是我投身it技术的第10年。一直想能对过去的经历做些回顾与反思,以更好地走向未来,但总没有笔。刚好csdn举办“讲述程序员的故事”征文,这件事成了一个引子,我终于趁着暑期有时间,敲了一天键盘,便有了这篇人生自述。
10年对于一个人来说是比较长的一个阶段,10年之后,同期大学毕业的同学情况差异之大,让人叹息命运之变幻莫测。

我在此记录下了我的生活足迹,由于时间较长,有些事记得不太清了,但我是尽量真实的记录当时的情况,有兴趣看我这篇长文的人请把我看成是一个在你我中间一块生活,一起喜怒哀乐,一起努力的平凡人,相信我们之间会有很多跨越时空的情感交流。
好,就说到此吧。


从1994到2003,不知不觉之间,我已在计算机技术的世界里沉浸了十年。有位哲人说过:如果一个人能用十年的时间专心致志地研究一门学问,或学习一门手艺,或从事一个职业,他一定能成为这个领域的专家。我天资平庸,但哲人的话是有道理的。我用十年的时间先成为了一名合格的程序员,再成为了一个重点大学计算机专业的大学教师。十年磨一剑,蓦然回首,年华如水,青春如歌!

我父母都是城市中的平民,家境仅能解决温饱,我想我可能代表了中国社会的一大类青年,我的经历与体会可能会对许多条件并不好的年青程序员有所启示:只要努力,天资差与环境不好都是可以克服的。因为我不是牛人,所以我不能教你如何成为牛人,我只是尽量真实地写下我的经历与感触,写一个平凡人的努力过程。我为我是一个软件开发者而自豪,为我从事的教书育人的事业而自豪,并愿意为中国落后的软件业尽己菲薄之力,为此,我人生无悔!
我想分为三部分讲述我的人生经历:上篇:学习人生:主要是我学习计算机技术的经历与感触,时间跨度大约是从1994~1996年;中篇:艰难人生:主要是我流迹社会,失业一年半,三次考研的痛苦经历;时间跨度大约是从1997~1999年;下篇:实践人生:主要是我的技术实践经历:在公司打工,开发软件,毕业求职与教书生涯,时间跨度是1999~2003。
  
  一 计算机是什么东西?
我是七十年代初在中国出生的那一代人,等我们长大开始读书时,文革已经结束,相对于我们的兄长,从我们这一代开始,以后出生的孩子都能受到较为正规的教育,这是我们幸运的地方。

也就是我们上小学的时候,七十年代末,以美国为技术资源中心的计算机技术开始在全球范围内迅猛发展,这时正是世界性的“软件危机”极为严重的时候,计算机技术各方面都在酝酿着新的突破,而此时比尔盖茨也正在准备构建他的明日微软帝国。
七十年代末与八十年代初,在我们的生活中,看不到一点计算机技术的影子,刚刚改革开放的中国,99%以上的人连“计算机”这个词恐怕都没听说过,中国游离于信息技术大门之外。
在“振兴中华”成为时代主旋律的八十年代,整个中国真的是呈现出一种勃勃的生机,这是一个民族在经历百年耻辱,十年挫折之后的再起步,象一些老歌---《金梭与银梭》,《在希望的田野上》等,就是当时青年的一种积极向上的精神风貌的体现。这种环境下,对于正在成长中的我们这一批少年,在潜意识中有极为深刻的影响,我们认为爱国与振兴中华是天经地义的事,并且成为了努力学习的主要动力(呵呵,现在的一些“愤青”---愤怒青年一定会说我们当时被“洗脑”了,也许真的是吧,这种信念确实会给人以极大的动力,我看不出有什么不好,至少我不会有现在这一批青年所经历的非常迷茫的感觉)。
1986年我考上了桂林市重点高中---桂林中学,在那儿,我第一次见到了电脑。

1.中学的计算机兴趣班

1987年我在桂林中学读高二,桂中是重点高中,条件较好,当时学校课外安排了两个班:无线电班和计算机班,我上的是计算机班,当时用的微机是apple ii,用basic编程。记得当时中国也开发了一种同档次的计算机,叫做中华学习机,要在中小学中大力推广,但apple ii后来发展成了著名的mac系列,并拥有了自己的操作系统,而中国的中华学习机,还有后来的小霸王等电脑学习机,都无疾而终了。
学校安排上机,有同学不知从哪找来了一些有趣的basic程序,什么“比翼双飞”,“飞机空战”等等,都是一些非常简单的小游戏,当时他抄了厚厚一本,一上机就敲一些到计算机中运行,而我是一点也不会,只有站在一边看的份。
那时会计算机的人很少,老师讲的我又不明白,考试的时候也不知道怎么过的。呵呵,后来我读研打工时,在网上看到洛阳一个高中生用vb编的一个“电子书童”程序,水平之高,我当时真是没法比。
1989年六四动乱,广西高考名额一下减了7000多,竞争激烈,十几人里才能取一个,由于压力过大,我高考前夕失眠,第二天考语文,120分的试卷当时只考了68分,因而与重点高校无缘。本想复读,但父母怕我来年考不上,一定要让我读广西大学,我万分不情愿地顺从了父母的意愿,去了我不喜欢的学校,读了我不喜欢的专业。男怕入错行,我在大学毕业后重新开始学我喜欢的专业,足足用了五六年的时间才转过来,真正成为一名合格的劳动者,走了一条长长的弯路,所以,父母的决定对缺乏经验与决断力的孩子而言,真的是非常重要。
现在想起来,父母当时没错,我也没错,那都是在时代与社会环境下的自然选择。

2.失败的四年本科与工作初期

作为六四之后第一批进入大学的本科生,我们学习了两年的“六四风波的反思”,四年里我是个老老实实的好学生,但四年除了玩命过了六级,什么也没学会。
记得大学第一节课就是basic语言,呵呵,也根本没学会,但我看来注定了要与basic难解难分了,后面的实践篇中我会讲我用basic开发的事。
大学里我学的专业是电力系统自动化,学过微机原理与fortran,上机时还用的是古老的主机加终端方式的计算机(叫做l/f机),我上机时真是一塌糊涂,因为这门课我从没学进去,也从没学懂过。有同学很厉害的,会用电脑打印出许多漂亮的图片(当然现在看起来很粗糙,针式打印机打的),我那时就称这些人为牛人了。
呵呵,我如果没记错的话,做超级解霸的梁肇新也是广西大学的,但不是我们系,记得我当时就已听到有关几个计算机牛人的事,估计其中就有他吧,如果我记错了,梁肇新先生请指正。在本科期间,我对电脑是神秘多于兴趣。这也说明我成为不了牛人与大师,天资有限。后来,我发现一个普遍的规律,如果能成为计算机方面的牛人与大师,请去翻翻他们的传记,绝大多数在本科期间就已展露出他们的才华。而我们现在的中国高校,这么多的本科生都在为考试、考研、考托、考g而奔忙,这种填鸭式的应试教育体制,扼杀了太多学生的创造性。结果是一个学生在大学里读得越认真,就受到的错误影响越大,我是用好几年的时间反思才得出这个结论的。所以,中国高校十几年数以几十万计的本科生中出不了可编写linux内核的杰出人才,一点也不奇怪。

1993年我毕业了,用我总结的一段话来说,是:
一张白纸进来,一脑浆糊出去。
毕业后我分到了一所号称是“中港合资”的生产蓄电池的公司,呵呵,刚刚工作的日子让我这个单纯的大学生被生活好好的教训了一下,许多无法以前想象的社会现象让我目瞪口呆,年轻气盛导致穿了小鞋,还只能忍气吞声。吃了生活的一个闷棍,我才明白,我除了有张文凭,什么都不是!
当时,我感到最郁闷的是我在公司里什么都不会做,一个电机烧坏了我楞不知如何下手修,公司老总办公室里的灯不亮了,学电的大学生我花了半小时楞不知原因在哪!我学的东西没一样能用的。开始我还以为是因为我在学校里没认真学,但后来问了很多同学,90%以上的都有同感,我现在终于认识到这不单是我个人的错,我自认为在学校中是很努力的,从未偷懒过,但如果90%以上的学生所学不能服务社会,这种教育体制一定存在问题。

四年里,我的电脑知识与技能=0!
现在看起来,我浪费了宝贵的四年光阴!但当时的环境与认识水平,也只能如此了,没有当初的浪费,怎有后来的珍惜?这是人生必经的一个阶段。

二 漫长的理论学习时期

1.从电脑培训班开始

我毕业后的第一个工作单位是一个非常差的企业,我在那儿见识了几乎所有中国差的企业的弊端:人浮于事,拉帮结派,暗箭伤人,损公肥私……。可以想见,在这样的企业工作,人是多么的颓废。我在无聊之中过了大半年的时间。1994年4月的一天我去桂林新华书店买书,看到桂林电子工业学院老师举办一个电脑培训班,教打字、排版、常用dos命令等电脑使用基础,反正也没事,不如上个班学点东西吧。不曾想就是这样一个培训班,却根本影响了我的人生之路。
我清楚地记得当我第一次上机时,连电脑开关在哪都找不到,老师拿着一张五寸软盘,插入软驱,打开电源,在一阵“吱吱”的声音之后,屏幕上开始有英文字符出现,然后,教师在键盘上敲入几个键,电脑沉默一会,突然在屏幕上跳出一个小人,出现一行字:快快乐乐学电脑,还传出了音乐。我当时真是惊呆了,电脑怎么还会唱歌?现在想起来,那个软件其实是台湾松岗系列教学软件,而我一个大学本科生,在毕业之后居然对电脑无知到这个地步,我真不知道是该哭还是该笑……!
俗语说:“一见钟情”。我是相信这种事的,因为就是这第一次上...

查看更多...

分类:Other | 固定链接 | 评论: 8 | 引用: 0 | 查看次数: 1781

Access转Excel AND Excel导入ACC 代码。

JaAcc_Excel.Asp

<!--#include file=common.asp-->
<%
'**********************************************
' Code by ASP导出EXCEL通用 
' 修改引用 By 子言(JaStudio) 
' QQ:23638564 Email:kpggdf@163.com
' web:www.gdsspt.com 
'**********************************************
Dim xibua
Dim mysql
xibua = Request.QueryString("ids")
if xibua="all" Then
mysql = "select * from singup"
Else
mysql = "select * from singup where [系部]='"&xibua&"'"
End If
server.scripttimeout=100000 '处理时间较长,设置值应大一点
On Error Resume Next 
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objSpreadsheet = objExcelBook.Sheets(1)
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset") 
objRS.Open mysql,conn,1,3 
If objRS.EOF then 
response.write("Error") 
respose.end
End if

Dim objField, iCol, iRow 
iCol = 1 '取得列号
iRow = 1 '取得行号
objSpreadsheet.Cells(iRow, iCol).Value = ""&xibua&"部的报名情况" '单元格插入数据
objSpreadsheet.Columns(iCol).ShrinkToFit=true '设定是否自动适应表格单元大小(单元格宽不变)
'设置Excel表里的字体 
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True '单元格字体加粗
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False '单元格字体倾斜
objSpreadsheet.Cells(iRow, iCol).Font.Size = 20 '设置单元格字号
objSpreadsheet.Cells(iRow, iCol).ParagraphFormat.Alignment=1 '设置单元格对齐格式:居中
objspreadsheet.Cells(iRow,iCol).font.name="宋体" '设置单元格字体
objspreadsheet.Cells(iRow,iCol).font.ColorIndex=2 '设置单元格文字的颜色,颜色可以查询,2为白色
objSpreadsheet.Range("A1:F1").merge '合并单元格(单元区域)
objSpreadsheet.Range("A1:F1").Interior.ColorIndex = 1 '设计单元络背景色
'objSpreadsheet.Range("A2:F2").WrapText=true '设置字符回卷(自动换行)
iRow=iRow+1
For Each objField in objRS.Fields 
'objSpreadsheet.Columns(iCol).ShrinkToFit=true
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
'设置Excel表里的字体 
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True 
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False 
objSpreadsheet.Cells(iRow, iCol).Font.Size = 20 
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '居中 
iCol =&...

查看更多...

分类:Asp | 固定链接 | 评论: 8 | 引用: 0 | 查看次数: 757

ASP初学者常用的代码

1.获得系统时间: 
<%=now()%> 
2.取得来访用的IP: 
<%=request.serverVariables("remote_host")%> 
3.获得系统,浏览器版本: 
<script> 
window.document.write("版本:"+navigator.appName+navigator.appVersion+" browser.") 
</script> 
4.去除IE混动条: 
<body scroll="no"> 
<body style="overflow-y:hidden"> 
5.进入网站,跳出广告: 
<script language="javascript"> 
<!-- 
<!-- 注意更改文件所在路径--> 
window.open(''http://www.XXXXXX.com'','''',''height=200,width=300,top=0,left=30''); 
// --> 
</script> 
6.随机数: 
<%randomize%> 
<%=(int(rnd()*n)+1)%> 
N为可改变数 
7.向上混动代码: 
<marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000; line-height: 150%; font-style:italic; 

font-weight:bold" scrollamount="2" width="206" height="207" bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh</marquee> 
8.自动关闭网页: 
<script LANGUAGE="javascript"> 
<!-- 
setTimeout(''window.close();'', 10000); //60秒后关闭 
// --> 
</script> 
<p align="center">本页10秒后自动关闭,请注意刷新页面</p> 
9.随机背景音乐: 
<%randomize%> 
<bgsound src="mids/<%=(int(rnd()*60)+1)%>.mid" loop="-1">   

 

可以修改数字,限制调用个数,我这里是60个. 
10.自动刷新本页面: 
<script> 
<!--   

var limit="0:10"   

if (document.images){ 
var parselimit=limit.split(":") 
parselimit=parselimit[0]*60+parselimit[1]*1 

function beginrefresh(){ 
if (!document.images) 
return 
if (parselimit==1) 
window.location.reload() 
else{ 
parselimit-=1 
curmin=Math.floor(parselimit/60) 
cursec=parselimit%60 
if (curmin!=0) 
curtime=curmin+"分"+cursec+"秒后重刷本页!" 
else 
curtime=cursec+"秒后重刷本页!" 
window.status=curtime 
setTimeout("beginrefresh()",1000) 

}   

window.onload=beginrefresh 
file://--> 
</script> 
11.ACCESS数据库连接: 
<% 
option explicit 
dim startime,endtime,conn,connstr,db 
startime=timer() 
'更改数据库名字 
db="data/dvBBS5.mdb" 
Set conn = Server.CreateObject("ADODB.Connection&qu...

查看更多...

分类:Asp | 固定链接 | 评论: 6 | 引用: 0 | 查看次数: 920

轻松玩转远程桌面

1、远程桌面的功能
  
  远程桌面连接组件是从windows2000server开始由微软公司提供的,在WINDOWS2000 SERVER中他不是默认安装的。该组件一经推出受到了很多用户的拥护和喜好,所以在WINDOWS XP和2003中微软公司将该组件的启用方法进行了改革,我们通过简单的勾选就可以完成在XP和2003下远程桌面连接功能的开启。
  
  当某台计算机开启了远程桌面连接功能后我们就可以在网络的另一端控制这台计算机了,通过远程桌面功能我们可以实时的操作这台计算机,在上面安装软件,运行程序,所有的一切都好象是直接在该计算机上操作一样。这就是远程桌面的最大功能,通过该功能网络管理员可以在家中安全的控制单位的服务器,而且由于该功能是系统内置的所以比其他第三方远程控制工具使用更方便更灵活。
  
2、远程桌面的前世今生
  
  说起远程桌面很多用户都认为是从WIN2000 SERVER才开始引入的,实际上我们可以在WIN98甚至是DOS中看到他的身影。远程桌面采用的是一种类似TELNET的技术,他是从TELNET协议发展而来的。
  
  计算机发展的早期在很多客户机硬件配置不高无法独立运行程序的情况下,TELNET协议应运而生,他是一种C/S模式,客户机可以通过TELNET登录到高配置的服务器上,在服务器上运行程序。当程序运行时所有的运算与存储都是教给服务器来完成的,当运算结束后服务器才把结果反馈回客户机,这样就可以在客户机配置不够的情况下完成程序的运行工作,而且运行结果出来的一点不慢。
  
  远程桌面连接就是从TELNET发展而来的,通俗的讲他就是图形化的TELNET。所以在下文中我们讲解远程桌面连接的使用时也会稍微介绍一些TELNET的相关知识。
  
3、启动远程桌面连接的方法
  
  微软操作系统发展至今只有以下三个操作系统可以使用远程桌面功能,他们是WINDOWS 2000SERVER,WINDOWS XP和WINDOWS 2003。这三个系统的开启远程桌面方法各不相同,我们一一介绍。
  
(1)WINDOWS 2000SERVER
  
  WINDOWS2000系统中PROFESSIONAL版本是不能开启远程桌面功能让别人访问的,但SERVER版可以开启,不过需要我们安装相应的WINDOWS组件。方法如下:
  第一步:通过任务栏的“开始->设置->控制面板”,选择里头的“添加/删除程序”。
  第二步:在左边选择“添加/删除WINDOWS组件”。
  第三步:稍后会出现添加删除WINDOWS组件窗口,我们从中选择“终端服务”,然后点“下一步”进行安装。这里要注意一点的是在安装过程中需要我们插入WINDOWS 2000SERVER系统光盘到光驱中。
  第四步:安装完毕后需要重新启动计算机,重启后就完成了在WINDOWS 2000SERVER下的远程桌面连接功能的安装工作。
(2)WINDOWS XP
  
  正如上文提到的,WINDOWS2000引入远程桌面连接功能后受到了广大用户的好评,大家普遍认为开启该功能的方法太复杂,而且在使用时不能保证每个人都拥有WINDOWS2000SERVER光盘。因此在XP和2003系统中微软将远程桌面开启的操作进行了简化。
  第一步:在桌面“我的电脑”上点鼠标右键,选择“属性”。
  第二步:在弹出的系统属性窗口中选择“远程”标签。
  第三步:在远程标签中找到“远程桌面”,在“容许用户连接到这台计算机”前打上对勾后确定即可完成XP下远程桌面连接功能的启用。
(3)WINDOWS 2003
  
  WINDOWS2003开启方法和XP类似,同样对操作步骤进行了简化。方法如下:
  第一步:在桌面“我的电脑”上点鼠标右键,选择“属性”。
  第二步:在弹出的系统属性窗口中选择“远程”标签。
  第三步:在远程标签中找到“远程桌面”,在“容许用户连接到这台计算机”前打上对勾后确定即可完成2003下远程桌面连接功能的启用。
 4、使用远程桌面连接的方法
  
  使用远程桌面连接的方法很简单,因为一旦连接到服务器上就和操作本地计算机一样了。所以唯一要讲解的就是连接操作。如何连接到开启了远程桌面功能的计算机呢?我们需要远程桌面连接登录器。
  
  (1)WINDOWS XP和2003操作系统:
  
  这两个系统将远程桌面连接程序内置到附件中,我们不用安装任何程序就可以使用远程桌面连接。
  第一步:通过任务栏的“开始->程序->附件->通讯->远程桌面连接”来启动登录程序。(如图4)
  第二步:在图4界面中的“计算机”处输入开启了远程桌面功能的计算机IP地址。
  第三步:点击“连接”按钮后我们就可以成功登录到该计算机上了,和操作自己计算机一样方便一样快捷。


       (2)其他WINDOWS操作系统:
  
  2000及以前的WINDOWS中系统没有将登录工具放到附件中,我们有两个方法获得登录器并实现远程桌面的连接功能。
  方法一:使用XP光盘登录器——MSRDPCLI
  在XP系统光盘盘符下\SUPPORT\TOOLS目录有一个叫做MSRDPCLI.exe的程序,该程序实际上是一个远程桌面连接登录器,在WIN98/2000机器上运行XP光盘目录下的msrdpcli.exe。将自动安装远程桌面连接程序。安装过程非常简单,一路“下一步”即可。完毕以后通过“开始->程序->附件->通讯->远程桌面连接”就可以登录网络上开启远程桌面功能的计算机了。
  
  方法二:第三方登录器
  实际上网络中有很多站点都提供了远程桌面登录器的下载,我们在98系统或2000系统上下载该登录器  
  冷烟远程桌面登录器
  下载地址:
  http://www.52z.com/Down.asp?ID=512&action=2

查看更多...

分类:Pc | 固定链接 | 评论: 7 | 引用: 0 | 查看次数: 870

卡巴优化设置及常见问题解答

俄罗斯的卡巴斯基是全球最著名最强大的反病毒软件之一,但是其资源占用方面一直为人所诟病。其实卡巴斯基经过合理的设置之后,并不比其他杀毒软件(例如瑞星)占用系统资源多。下面我就说说卡巴斯基的设置问题。    

  我的电脑配置是256m ddr的内存、AMD2800+处理器,显卡七彩虹MX550,这个配置不高不低,还算马虎。如果用卡巴斯基默认的设置,开机前一分钟和杀毒进行到最后时刻,机器反应严重迟钝,我根据自己的实际情况设置了一下,机器运行顺畅许多。相信按照我的建议设置之后,那些配置比较低的朋友也可以正常使用卡巴斯基了。 

  言归正传,首先说为什么要设置(高手和中手跳过)。卡巴斯基和其他杀毒软件一样,预设了一种适中的、保守的的模式,这种模式通常认为在安全和性能方面达到一定程度的平衡。而事实上,个人电脑对安全性的要求要低于预设的模式。一般来说,服务器对安全要求最高,其次是公司和单位电脑,再次是个人用户。卡巴斯基默认的设置较适用于公司用户,如果你的机器配置很高,则完全可以将安全级别设置得更高。但是对于那些低配置的电脑用户,您就得现实点啦。 

  第一步:设置--设置实时监控--将保护级别设置为高速; 

  第二步:如果你不使用微软的邮箱,请选择“禁用邮件实时监控”; 

  第三步:勾选“禁用脚本的实时监控”; 

  第四步:文件保护--勾选“不扫描磁盘引导扇区”,扫描超时500秒则停止; 

  第五步:网络攻击防御--勾选“使用隐藏模式”; 

  第六步:手动扫描设置为“高速”;高级设置里面勾选除“不扫描启动对象”、“不扫描压缩文件”之外的其余选项--请看仔细了,是这两个不选,其余的要选择! 

  第七步:不进行计划扫描; 

  第八步:选择“自动更新前通知用户”; 

  第九步:其他设置--不要选择“记录所有的信息”,其余的酌情自便; 

  全部优化设置完毕。 

  不喜欢卡巴斯基的,我推荐另外一个杀毒工具,那就是全世界市场占有率最大的McAfee SecurityCenter(中国用户戏称卖咖啡),这个软件实际上免费的,只要填写邮箱就可以无限制升级使用,杀毒能力丝毫不比卡巴斯基弱,而且体积小、运行快,是低配置用户的首选杀毒软件。关于这个软件的介绍自料网上很多,此处就不赘述了。 

  最后讲讲我本人的经历,有些搞笑。 

  我一向用的是卡巴斯基+江民2004,无奈有一天发现几个间谍软件用卡巴斯基清除不了(江民根本就查不到),于是就停止卡巴斯基(没有卸载和停止开机自运行),安装了McAfeeSecurityCenter10.0.28,结果杀掉两个,隔离一个,提示重启。正高兴呢,结果发现重启之后半天没有动静,原来是因为卡巴斯基和卖咖啡冲突,死机了。没奈何,权衡一番,决定卸载卡巴斯基和江民,留用卖咖啡。没想到卸载了卡巴斯基,卖咖啡也蔫了--系统栏力度图标由红色变为黑色,显示“已禁止”。我到注册表编辑器里面清除了所有卡巴斯基的信息,再卸载卖咖啡重装卖咖啡才解决问题。看来卡巴斯基是要和卖咖啡同归于尽啊--你不让我好过,我死了也不让你好过。 

  为什么我觉得搞笑呢?因为卡巴斯基代表俄罗斯,卖咖啡是美国的。

  附:卡巴使用问题解答 

  一:卡巴安装前一定要完全卸载其它杀软。如果已经发生冲突,在正常的Windows环境下不能反安装任何一个杀软,这时需要进入安装模式下,进行反安装操作。卡巴6.0我没试过,但是5.0和瑞星有严重冲突(即使关闭瑞星的监控功能),具体表现在开机进入桌面后就死机!对于很多网友说的,卡巴杀毒后导致系统崩溃无法启动的情况,我也遇到过!个人感觉是病毒或者木马与系统文件产生关联。卡巴提示:无法清除,我都选择的是:删除。删除的过程中与病毒或木马有关联的系统文件也被一起删除,导致系统崩溃!有点宁可错杀1000,不可放过1个的感觉。几次系统崩溃后,我选择了在装完系统后,在系统无毒的情况下马上安装卡巴,再安装各种软件,上网!卡巴的保护功能还是不错的,这样病毒或木马就不是那么容易感染上,也就没有再出现系统崩溃的情况了!

  二:一定记得把卡巴“自我保护”小勾选上,防止恶意代码修改卡巴!默认是选上了的,最好不要修改。

  三:在第一次装完卡巴后进行全盘扫描(此段时间可能会长点),在以后的扫描时,可以对我们确认安全的文件(如:电影,游戏)不扫描,这样可以大大节省扫描时间。方法:设置——保护——信任区域——排除标记——添加——就可以选择你认为安全的文件了。卡巴扫描压缩包也是相当耗时的。

  四:在还原系统或重装系统时,请务必做好病毒库的备份,再进行安装或还原。一般情况下,卡巴的病毒库放在此文件目录里:C:\Documents and Settings\All Users\Application Data\Kaspersky Lab 只需要把AVP6备份到其他的盘(Application Data文件夹的属性是隐藏,要修改才能找到),然后在还原或重装后,把你备份AVP6覆盖到这个目录下就可以了。(注意关掉卡巴的自我保护,否则有可能不能复制进去)。然后退出卡巴,再进入卡巴,他会提醒你重新启动电脑以完成更新,这样就可以方便的把以前更新过的病毒库再直接使用(记得开启“自我保护”)!若不按以上内容备份,那你的病毒库将被还原在你以前设还原点的那个地方,你将重新更新病毒库,时间会长些!

  五:卡巴斯基dmp文件是由于卡巴斯基程序中断后生成的临时文件,可以放心删除,丝毫不影响使用。
 
  六:卡巴升级时,会影响上网的速度,特别是对网络游戏影响较大。而且,卡巴有时升级失败,会不停的反复连接网络,影响游戏的正常操作。设置为手动升级,可以避免。

  七:对文件实时监控方面,卡巴在默认设置上对所有的网盘、所有本地磁盘、所有的移动磁盘都进行监控,如果你的电脑配置并不高,那么可以自定义文件监控,让它只监控系统盘就可以了,别的可以放行,反正一般来说可以做一个定期的全盘扫描。修改方法如下:打开卡巴的主界面,选择:设置-文件保护-自定义-保护范围,把默认的所有移动磁盘、所有本地磁盘、所有网盘前面的钩去掉,再点击右边的“添加”,打开“我的电脑”,选择系统盘(一般是C盘),再把底下的“包含所有子文件夹”选项前面的钩打上,再点确定-确定-应用-确定,就完全OK了。

  八:如果你不用微软邮件,可以把反垃圾邮件功能给去掉。

  九:win2000、win2003安装卡巴6.0需要下载orca.msi这一修改msi文件的工具,安装,它的版本号为3.1.4000.1830,是win2003sp1SDK里的工具。2.用orca打开KIS6.0或kav6.0,找到LaunchCondition这个Table,将MsiNTProductType=1 or Version9X这一行删掉,然后保存msi文件,
就可以在2003中安装了。

  十:安装时反复重启,这可能是计算机中原有的反病毒程序防火墙程序没有完全卸载掉造成的,手动卸载掉这些程序后在重新安装试一试。

  十一:adsl用户经常断网且卸载卡巴安全套装后上网正常,一般是由于卡巴安全套装的设置中选取了“网络攻击防御”,卡巴检测受到攻击,保护性断网。点击“入侵探测系统”-“设置”,去掉其默认的“禁止攻击计算机的时间”前面的那个钩就可了。这里要说明一下,去掉封锁时间,只是去掉了封锁的时间限制,封锁功能是一样有效的。

  十二:360的激活码是激活KAV(卡巴反病毒软件)的,你如果要用来激活KIS也就是互联网安全套装需要修改注册表,注册表里HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\AVP6\environment  里的ProductType项的KIS改成KAV的话可以使用,不过推荐使用key。

  十三:经常听卡巴杀猪一样的叫声,是不是感觉很不爽,有时不注意还会吓了自己一跳,可以先关闭卡巴的“自我保护”
然后到C:\Program Files\Kaspersky Lab\Kaspersky Internet Security 6.0\Skin\sounds,用自己喜欢的替换原来的Wav文件就行了。
...

查看更多...

分类:Down | 固定链接 | 评论: 6 | 引用: 0 | 查看次数: 854