查看更多...

sub forum_pic(n)
dim tmp1,id,iid,pic,topic,fid,name,counter
tmp1=vbcrlf&"<tr align=center>"
sql="select top "&n&" upload.id,upload.iid,bbs_topic.topic,bbs_topic.counter,bbs_topic.forum_id,bbs_topic.username,upload.url from upload INNER JOIN bbs_topic ON upload.iid = bbs_topic.id where nsort='forum' and genre='jpg' or genre='gif' or genre='bmp' order by upload.id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("iid")
  pic=rs("url")
  topic=rs("topic")
  fid=rs("forum_id")
  name=rs("username")
  counter=rs("counter")
  tmp1=tmp1&vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
            vbcrlf&" <tr><td>"&pic_fk(pic,4,"forum/forum_view.asp?forum_id="&fid&"&view_id="&id)&"</td>" & _
            vbcrlf&" <td><a href='forum/forum_view.asp?forum_id="&fid&"&view_id="&id&"' target=_blank alt='标题："&joekoe_cms.code_html(topic,1,0)&"<br>人气："&counter&"<br>发 布 人："&name&"'>"&joekoe_cms.code_html(topic,1,30)&"</a></td></td>" & _
  rs.movenext
loop
rs.close
tmp1=tmp1&vbcrlf&"</tr>"
tmp1="<table border=0 cellspacing=0 cellpadding=0 width='100%'>"&tmp1&vbcrlf&"</table>"
  response.write vbcrlf&"<table cellspacing=0 cellpadding=0 class=table>" & _
                 vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>" & _
                 vbcrlf&"</table>"
end sub

调用方法:<%call forum_pic(1)%>

查看更多...

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

查看更多...

把附件文件解压到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>
<...

查看更多...

自从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...

查看更多...

http://www.mamashuojiusuannizhucedeyumingzaichangbaidudounengsousuochulai.cn/

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

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

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

查看更多...

一对新婚夫妇生活贫困，要靠亲友的接济才能活下去。一天，丈夫对妻子说：“亲爱的，我要离开家了。我要去很远的地方找一份工作，直到我有条件给你一种舒适体面的生活才会回来。我不知到会去多久，我只求你一件事，等着我，我不在的时候要对我忠诚，我也会对你忠诚的。” 

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

 

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

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

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

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

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

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

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

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

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

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

　　妻子吃惊的说：“什么？我从未背叛过你，我等了你20年。” 

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

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

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

查看更多...

今年是我大学毕业满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命令等电脑使用基础，反正也没事，不如上个班学点东西吧。不曾想就是这样一个培训班，却根本影响了我的人生之路。
我清楚地记得当我第一次上机时，连电脑开关在哪都找不到，老师拿着一张五寸软盘，插入软驱，打开电源，在一阵“吱吱”的声音之后，屏幕上开始有英文字符出现，然后，教师在键盘上敲入几个键，电脑沉默一会，突然在屏幕上跳出一个小人，出现一行字：快快乐乐学电脑，还传出了音乐。我当时真是惊呆了，电脑怎么还会唱歌？现在想起来，那个软件其实是台湾松岗系列教学软件，而我一个大学本科生，在毕业之后居然对电脑无知到这个地步，我真不知道是该哭还是该笑……！
俗语说：“一见钟情”。我是相信这种事的，因为就是这第一次上...

查看更多...

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 =&...

查看更多...

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">　  

　

可以修改数字，限制调用个数，我这里是６０个． 
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...

查看更多...