PJBlog3

在Vista的IIS系统中运行ASP的几个配置问题

2008-07-29T09:15:55+08:00

1、IIS不解析ASP程序的问题
如果Vista中的IIS是默认安装的，那么ASP程序是不能运行的，当在IE中打开扩展名为.ASP文件的时候，iis会当着普通的网页文件来显示。在IE中查看文件的源代码，可以看到ASP文件的所有原始代码，就跟我们双击打开文件一样的。
我们需要安装一些功能来支持ASP应用程序的解析，打开：控制面板- 程序 - 程序和功能 - 打开或关闭Windows功能，按照下面这个图示，把相应的ASP选上就行了。

2、ASP访问Access数据库出错
ASP程序可以运行，但是当访问数据库的时候，可能会得到一下错误信息：
Microsoft JET Database Engine 错误 '80004005'
未指定的错误
/inc/conn.asp，行 10
在网上找到了解决办法，找到这个路径：C:\Windows\ServiceProfiles\NetworkService\AppData\Local\Temp，C:\Windows指的是系统安装目录。另外AppData目录是隐藏的，要打开“显示所有文件”才能看到。然后在Temp目录上点击鼠标右键，点击属性，并选择安全选项卡，在用户列表中加入Authenticated Users用户组，然后在默认权限的基础上选中“修改”，这样访问Access数据库就可以了。

3、Regsvr32程序注册Dll组件出错
我们一个网站程序需要注册一个dll组件，结果在运行中注册的时候出现这个错误信息：
模块 xxx 已加载，但对 DllRegisterServer 的调用失败，错误代码为 0x80004005。
有关此问题的详细信息，请将该错误代码用作搜索字词进行联机搜索。
出现这个错误代码可能和权限问题有关，进入：程序 - 附件 - 命令提示符，在”命令提示符“上点击鼠标右键，选择”以管理员身份运行“命令，这个时候将打开Dos命令窗口，现在就按正常写法输入Regsvr32 xxx，就能够注册成功了。

深度精简xp系统fpse frontpage服务器扩展的安装方法

2008-07-12T18:47:56+08:00

精简版XP内无法安装IIS 且安装了IIS后却没有frontpage服务器扩展
安装了精简版GHOSTXP系统安装IIS开发.net程序，费了些周折才做好！

iis安装完后，一直没找到如何安装Frontpage服务器扩展，改inf文件的方法如下：

1. 打开 c:(系统盘)\windows\inf\sysoc.inf 文件，
2. 在 ims=imsinsnt.dll,OcEntry,ims.inf,,7 的下一行添加 (实际上在iis的下一行也可)fp_extensions=fp40ext.dll,FrontPage4Extensions,fp40ext.inf,,7
3. 将fp40ext.inf复制到 C:(系统盘)\WINDOWS\inf目录下；将fp40ext.dll 复制到 C:\WINDOWS\system32\Setup目录下。

"这两个文件也是在iis51文件夹里,其实是fp40ext.in_和fp40ext.dl_,用以下命令即可,以上的文章中讲的复制的方法是不行的".

EXPand d:\iis51\fp40ext.dl_ c:\Windows\system32\setup\fp40ext.dll

EXPand d:\iis51\fp40ext.in_ c:\Windows\inf\fp40ext.inf

当然,盘符d要根据自己的文件位置修改了.

这样就可以通过“添加删除Windows组件”添加“Internet 信息服务(IIS)”的子项“FrontPage扩展”了!

笑场_开心路过。

2008-06-24T19:44:36+08:00

1.
甲：“如果你的老公有外遇，你怎么办？”
乙：“我会睁一只眼闭一只眼。”
甲：“你这么大方？”
乙：“不，我是要用枪瞄准他。”

2.约会
有对情侣晚上约会到很晚，男孩送女孩回家。到了门口，以为气氛很好且难舍难分，男孩便在女孩家的楼底下吻起她来。过了一会儿，楼上的灯全亮了。咚咚咚，女孩的爸爸走了下来，打开门，脸色非常难看的说：“小子，你没有经过我的统一就和我女儿出去，这么晚才带她回来，还在门口做出这种举动……这些我都不和你计较，但是，请你不要一直压在门铃上好嘛！”

3.吞肥皂
小明洗澡时不小心吞下了一小块肥皂，妈妈慌慌张张地打电话给家庭医生求助。医生说：“我现在还有几个病人，可能要半个小时后才能赶过去。”小明妈妈说：“在您来之前，我该怎么做呢？”医生说：“给小明喝一杯白开水，然后用力跳跳，你就可以让它用嘴巴吹泡泡消磨时间了。”

4.职业病
一位穿迷你裙的小姐走进洗衣店，年轻的老板立刻直直的看着她。这位小姐笑盈盈的对他说：“年轻人，做你自己的事情吧！”老板说：“说老实话，小姐，我是关心本店的名誉，裙子不是我们店洗缩水的吧？”

5.老鼠劝架
有一个人，晚上在宾馆睡觉。第二天一早，他对服务员说：“最天晚上有两个老鼠吵架，害得我一夜没有睡好，我要求赔偿！”服务员说：“那也不至于吵得您睡不着呀！”他又说：“可是后来居然有几十只老鼠跑来劝架，你叫我怎么睡？”

6.歪打正着
大鹏在小学任教，长得人高马大威风凛凛，只是一紧张讲话就会口吃。一次监考，他发现有一个学生在作弊，他气急败坏地指着作弊的学生吼道：“你……你……你……你……你……你……你竟敢作弊，给我站起来！！”语毕，九个学生站了起来。

7.办不到
一名男子道理发店，对理发师说：“请你把左边的头发剪得短点，右边的头发让它垂到耳朵不要剪，然后在脑门上给我剪釷像五元硬币大的一块，还要留下一缕长发，使我能把它一直拉到下巴那里。”“对不起，先生，这个我可办不到。”顾客喝道：“上次就是你把我的头发剪成这个样子的。”

8.
史密斯先生看到一群孩子围着一只小狗，他问：“你们在干什么？”一个小孩说：“我们在比赛说谎话，谁说的慌最大，这只小狗就归谁。”史密斯先生说：“胡闹，我像你们这样大时可从没说过谎话。”那个孩子听了说：“史密斯先生，你赢了，这只小狗是你的了。”

9.
一日晚归，路遇劫匪。颤抖曰：“大哥，我是津桥的，刚毕业还没找到工作，真的没钱。”劫匪痛苦道：“兄弟，我也是津桥的，拿好毕业证，前面抢劫的也是津桥的，放心，我们不抢自己人。”

10.
女老师在黑板上画了一个苹果，然后提问：“孩子们，这是什么呀？”孩子们异口同声地回答：“屁股！”女老师哭着跑出教室，找校长告状。校长走进教室，表情严肃地说：“你们怎么把老师气哭了？啊！竟然还在黑板上画了一个屁股！”

11.
早上上班赶公交汽车，走到站台的时候，汽车已经启动。于是我边追边喊：“师傅，等等我！师傅，等等我呀！”这时，一位乘客从车窗探出头来冲我说了句：“八戒，你就别追了。’

12.
一罪犯越狱，被抓了回来。警察：“说！你为什么要逃跑？”罪犯：“这里的伙食太差了。”警察：“你是用什么把围墙上的铁条弄断的？”罪犯：“中午的馒头。”

13.
某游泳教练直爽且嗓门大。一天，他在商场碰到一位女学员向他打招呼，便大声说：“你穿上衣服，还真认不出你。”

最IN语集集

2008-06-23T23:24:10+08:00

没有云的天空，还是天空；没有天空的云，却不再是云了。
生活像场夜宴，但是十面埋伏。
和英俊的男人握握手，和深刻的男人谈谈心，和成功的男人多交流，和普通的男人过日子。
人生无非是让别人笑笑，偶尔笑笑别人。
十年树木，百年树袋熊。
我们老师说了，熊和鱼掌不可兼得。
有钱的是大爷，欠钱不还的更是。
三十岁以后，男人忙着装成熟，女人忙着装嫩。
拍脑袋决策，拍胸脯保证，拍屁股走人。
走自己的路，让别人打车去吧。
如果回帖是一种没得，那么我早就成为圣人了。
你这么难看，我还说你漂亮。我这么帅，你还说我难看。
善解风情的男人是好男人，不解风情的男人更是好男人。
听君一席话，省我十本书。
禽兽尚且有半点怜悯之心，而我一点儿也没有，所以我不是禽兽。
不要和地球人一般见识。
如果跟导师讲不清楚，那么就把他搞糊涂吧。
所有的男人生来平等，结了婚的除外。
25岁之前，请记得，爱情通常是假的，或者不是你所想象的那样纯洁和永远。如果你过了25，那么岁你应该懂得这个道理。
30岁之前请爱惜自己的身体，前30年你找病，后30年病找你。如果你过了30岁，你自然会懂得这个道理。
不能偏激的认为金钱万能，至少，金钱治不好艾滋病。
男人是社会的主体，不管你信或不信，所以男人应该有种责任感。
爱情永远不可能是天平，想在爱情里幸福就要舍得伤心。
有些烦恼是我们凭空虚构的，而我们却把它当成真实去承受。
当你以为自己一无所有的湿乎，你至少还有时间，时间能抚平一切创伤，所以请不要流泪。
油价急升的理由是：中国加油、北京加油、奥运加油、四川加油、汶川加油、我们加油！
你在别人眼中有多风光，你在自己内心就有多悲怆！
三人行，必有我师；三剑客，必有以强；三角恋，必有一伤。
理由少一点，度量大一点，嘴巴甜一点，脾气小一点，行动快一点，效率高一点，微笑露一点，脑筋活一点。一切只要一点点，老板就更会喜欢我一点。
老板面对总是有很多问题的远东：知之为知之，不知百度之。
人不犯傻，我不犯傻，人若犯贱，我必更贱。
假如有天我当明星了，我一定脱给你们看。
孟母三迁的故事其实说明她有一个好儿子，如果换了我，搬一百次家也没有用。
好狗不挡路，挡路的都是路障。
速度快不一定是最好的，否则的话，兔子早就来统治世界了。
爸爸今天打了我两次，第一次是一位看见了我手里2分的成绩单，第二次是一位成绩单是他小时候的。
别嘛自己的孩子是“小兔崽子”，因为从遗传学的角度讲，这对家长是不利的。
如果真的有鹊桥，我要跟你到桥尽头，然后把桥拆了决不让你走，愿意吗？
与你相识是一种缘，与你相恋是一种美，与你相伴是一种福，我愿与你相伴到永远。
如果一个人不知道他要驶向哪个码头，那么任何风都不会是顺风。
因为太爱你，所以不愿强迫你改变自己；因为太爱自己，所以不愿迁就现在的你。
吃饭秘诀——眼睛盯住，筷子别慌，一看没菜，赶紧喝汤。
木桶最短一节决定其容量；铁链最弱的一环决定其强度；人最大的缺点决定其是否成功。
爱情使人忘记时间，时间使人忘记爱情。
人生本来就是一种旅程，长短并不重要，重要的是与谁同行，故事精彩就是对人生最好的奖励。
智力测验就是要看到底笨到什么程度。
别洗它，要不是这些泥，这破车早就散架了。
十年树木，百年树人，百年以后数……
再聪明的女人在自己的相貌上也是糊涂的，再愚蠢的男人在女人的相貌上也是清醒的。
你的就是我的，我的还是我的。
我最鄙视的人就是鄙视别人的人。
好久没有人把牛皮吹得这么清新脱俗了。
块头大小并不重要，否则，奶牛就能跑过兔子了。
在网络世界，你的女朋友可能是一位男性，你的男朋友却可能是一位女性，这很痛苦，但你得接受。
失恋时，即使看见两条直直的铁轨，也会不由自主地把它想象成两行泪痕，流向天边。
相爱时，飞到天边都觉得踏实，因为有你的牵挂；分手后，坐在家里都觉得失重，因为没有了方向。
装傻这事，如果干的好，就叫大智若愚；木讷这事，如果干的好，就叫深沉。
男人应该感谢20多岁时陪伴在自己身边的女人。因为20岁是男人人生的最低谷，没钱，没事业；而20岁，却是女人一生中最灿烂的季节。
两个人之间的感情就像织毛衣，建立的时候一针一线，小心而漫长，拆除的时候只需要轻轻一拉。
女人是水，没有爱情的时候是白开水，有了爱情的时候是蜜糖水，失去爱情的时候是苦瓜水。
当你的眼泪要流出来的时候，睁大眼睛，千万别眨眼，你会看到世界由清晰到模糊的全过程。
香烟爱上火柴就注定要被伤害。
什么叫神话？请听男人向你表达爱意；什么叫传说？请听男人对你的承诺；什么叫梦境？请看你自己听到前两者时的反应。
如果幸福是浮云，如果痛苦似星辰，那我的生活真实万里无云，漫天繁星。
婚姻是键盘，太过秩序和规则；爱情是鼠标，一点就通。男人自比主机，内存最重要；女人好似显示器，一切都看的出来。
男人很容易喜欢一个女人，却从不轻易深爱一个女人。
其实全世界最幸福的童话，不过是一起度过柴米油盐的岁月。
一个人愿意等待，另一个人才愿意出现。
在看得见你的地方，我的眼睛和你在一起；在我看不见你的地方，我的心和你在一起。
再穷的男人买菜也不讲价，再有钱的女人买菜也要讨价还价。
性格本身没有好坏之分，乐观和悲观对这个世界都有贡献，前者发明了飞机，后者发明了降落伞。
感情有时候只是一个人的事，和任何人无关。爱，或者不爱，只能自行了断。
这是一个禁忌相断崩溃的时代，没人拦着你，只有你自己拦着自己，你的禁忌越多，成就越少。
自卑有多种档次，最高档次的自卑表现为吹嘘自己干什么都是天才。
人生最大的痛苦莫过于有烟无火。
天上为什么还不掉馅饼？想饿死我啊……
夏天，是女孩肉隐肉现的季节。
拿份报纸上厕所，俺是读书人。
蜜蜂整日忙碌，受到赞扬；蚊子不停奔波，人见人打。多么忙不重要，为什么忙才重要。
相爱的两个人就像共生的藤和树，藤倚生在树上，如果缠得太紧，树就会逐渐枯竭，藤也会因此萎败。
女人应该把它的结婚证书装进档案袋里，然后写上四个字：长期饭票。
故意不讨人喜欢，也是一种虚伪，而且程度不小。
懂得放手的人找到轻松，懂得遗忘的人找到自由，懂得关怀的人找到幸福。
男人是用来靠的，所以要可靠；女人是用来爱的，所以要可爱。
不生气要争气!不看破要突破！不嫉妒要欣赏！不拖延要积极！
机会就像秃子头上一根毛，你抓住就抓住，抓不住就没了。
如果我和你说了10分钟的话，但却没有和你产生任何争论。那么，我们之间一定有个人变得虚伪无比！
年轮向前转，人要向前看，不要沉醉于过去，生活依然要继续！
一生就看一个女人是不科学的，容易看出病来。
高职不如高薪，高薪不如高寿，高寿不如高兴。
如果你的工作机器也可以做，那总有一天，你也要变成机器。
对单身女孩，我始终争取；对十六岁以上女孩，我注意发掘；对小于十六的，要有战略性眼光。
心态决定状态，眼界决定境界！
笨鸟先飞，笨猪先肥。

无缝滚动

2008-06-13T11:00:24+08:00

关键词：无缝滚动，无缝滚动代码，无缝左滚动，无缝左滚动代码

{FS400_head滚动新闻}

[滚动的文字或者图片都可以 ]

automation服务器不能创建对象

2008-06-11T22:33:46+08:00

出现了“automation服务器不能创建对象”这个问题，有两个解决方法：
一：主要是Scripting.FileSystemObject (FSO 文本文件读写)被关闭了，开启FSO功能即可，在“运行”中执行regsvr32 scrrun.dll

二：如果javascript脚本中报这个错误是因为IE的安全设置不允许运行未标记为安全的activeX控件更改IE的安全设置，把相应的选项打开即可。
　　有时用上面“解决”中所提的方法不是100%成功的，因为毕竟导致同样现象的原因并不是只会有一个，这个亦是一个思路。如果是在安装某个软件后出现这种问题，可卸载该软件或重装一下！
这个根据具体情况不同而解决方式不同，自己可以按以上两个方式解决一下。如果有别的原因和解决方法可以评论告诉我！

ASP中网站侧边导航菜单的一个类

2008-06-02T18:19:45+08:00

<%
class menus

Public Title, ID, Image, TitleColor, Target, Background, HeadImage, Height, Width, Bgcolor, Style
Private menuItem, menuStr

Private Sub Class_Initialize
Title = ""
ID = ""
menuItem = ""
Image=""
TitleColor = "#000000"
Target = "_blank"
Background = ""
HeadImage = ""
Height = "20"
Width = "100%"
Bgcolor = ""
Style = ""
script
End Sub

Private Sub Class_Terminate
Title = ""
ID = ""
menuItem = ""
End Sub

Public Function AddItem(Byval nItem, Byval nURL)
menuItem = menuItem & " {$Image}" & nItem & ""
End Function

Public Sub Show()
menuStr = "

{$HeadImage}" & Title & "

" & menuItem & "

"

if Image<>"" then
menuStr = replace(menuStr, "{$Image}", Image)
else
menuStr = replace(menuStr, "{$Image}", "")
end if

if HeadImage<>"" then
menuStr = replace(menuStr, "{$HeadImage}", HeadImage)
else
menuStr = replace(menuStr, "{$HeadImage}", "")
end if

Response.Write menuStr
End Sub

Private Function script()
Dim JScript

JScript = ""

response.Write JScript
End Function

Public Sub AddNew()
Title = ""
ID = ""
menuItem = ""
menuStr = ""
End Sub

Public Sub OpenItem(Byval ItemID)

End Sub

end class
%>

使用方法：
<%
Dim NewMenus
Set NewMenus = new menus
NewMenus.Target = "" '打开方式
NewMenus.Bgcolor = "#336699" '主标签背景色
NewMenus.TitleColor = "#FFFFFF" '主标签字体颜色
NewMenus.Height = "10px" '高度
NewMenus.Style ="a1" '子标签样式
NewMenus.Width = "200px" '菜单宽度

NewMenus.AddNew
NewMenus.Title = "门户网站"
NewMenus.ID = "menu1"
NewMenus.AddItem "网易", "http://www.163.com"
NewMenus.AddItem "搜狐", "http://www.sohu.com"
NewMenus.Show

NewMenus.AddNew
NewMenus.Title = "个人网站"
NewMenus.ID = "menu2"
NewMenus.AddItem "IEBSoft studio", "http://iebsoft.512j.com"
NewMenus.AddItem "租用的空间", "http://107814.hxidc.com"
NewMenus.Show

NewMenus.AddNew
NewMenus.Title = "网站新闻管理"
NewMenus.ID = "menu3"
NewMenus.AddItem "新闻列表", "#"
NewMenus.AddItem "图片新闻", "#"
NewMenus.AddItem "新闻管理", "#"
NewMenus.Show

Set NewMenus = Nothing
%>

网页右侧浮动广告代码

2008-06-02T18:18:26+08:00

请将代码放置在之间即可

代码说明：
1、加到左侧的时候,把left属性改为10就好；
2、TOP是控制这个浮动广告离上边的距离，可以根据自己的实际情况进行调整；
3、这里href='http://www.click520.cn和这里img src='../20080128/er_p.jpg' 换成你想要的浮动广告的图片。其中这句src=../20080128/er_p.jpg' width='150' height='200'border='0' 中WIDTH=‘150’ height='200'是你浮动广告图片的宽和高。

ASP过滤SQL非法字符并格式化html代码

2008-06-02T10:56:48+08:00

<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ")
changechr=replace(replace(replace(replace(changechr,"[sayyes]",""),"[red]",""),"[big]","")
changechr=replace(replace(replace(replace(changechr,"[/sayyes]",">"),"[/b]",""),"[/red]",""),"[/big]","")
end function
’过滤SQL非法字符并格式化html代码
function Replace_Text(fString)
if isnull(fString) then
Replace_Text=""
exit function
else
fString=trim(fString)
fString=replace(fString,"’","’’")
fString=replace(fString,";","；")
fString=replace(fString,"--","—")
fString=server.htmlencode(fString)
Replace_Text=fString
end if
end function
’会员发布的各种信息过滤
’Function Replace_Text(fString)
’If Not IsNull(fString) Then
’fString = trim(fString)
’fString = replace(fString, ";", "；")     ’分号过滤
’fString = replace(fString, "--", "——") ’--过滤
’fString = replace(fString, "%20", "")    ’特殊字符过滤
’fString = replace(fString, "==", "")     ’==过滤
’fString = replace(fString, ">", ">")
’fString = replace(fString, "<", "<")
’fString = Replace(fString, CHR(32), " ")   ’
’fString = Replace(fString, CHR(9), " ")    ’
’fString = Replace(fString, CHR(34), """)
’fString = Replace(fString, CHR(39), "'") ’单引号过滤
’fString = Replace(fString, CHR(13), "")
’fString = Replace(fString, CHR(10) & CHR(10), "

")
’fString = Replace(fString, CHR(10), "
")
’Replace_Text = fString
’End If
’End Function
’过滤SQL非法字符
Function checkStr(Chkstr)
dim Str:Str=Chkstr
if isnull(Str) then
   checkStr = ""
   exit Function
else
   Str=replace(Str,"’","")
   Str=replace(Str,";","")
   Str=replace(Str,"--","")
   checkStr=Str
end if
End Function
’检测传递的参数是否为数字型
Function Chkrequest(Para)
Chkrequest=False
If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
    Chkrequest=True
End If
End Function
’检测传递的参数是否为日期型
Function Chkrequestdate(Para)
Chkrequestdate=False
If Not (IsNull(Para) Or Trim(Para)="" Or Not IsDate(Para)) Then
    Chkrequestdate=True
End If
End Function
’得到当前页面的地址
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & CheckStr(Trim(Request.QueryString))
GetUrl = strTemp
End Function
’Function CheckReferer()   ’检查用户是否在浏览器里输入了本页的地址
’     Dim sReferer, Icheck
’     CheckReferer = True
’     sReferer = Request.ServerVariables("HTTP_REFERER")
’     ServerIP = Request.ServerVariables("LOCAL_ADDR")
’     Icheck = InStr(sReferer, "ServerIP")
’     If Icheck = 0 Then
’     CheckReferer = False
’     End If
’End Function
’日期格式化
Function FormatDate(DT,tp)
dim Y,M,D
Y=Year(DT)
M=month(DT)
D=Day(DT)
if M<10 then M="0"&M
if D<10 then D="0"&D
select case tp
case 1 FormatDate=Y&"年"&M&"月"&D&"日"
case 2 FormatDate=Y&"-"&M&"-"&D
end select
End Function
’不允许外部提交数据的选择
Function ChkPost()
     dim HTTP_REFERER,SERVER_NAME
dim server_v1,server_v2
chkpost=false
     SERVER_NAME=CheckStr(Request.ServerVariables("SERVER_NAME"))
HTTP_REFERER=CheckStr(Request.ServerVariables("HTTP_REFERER"))
server_v1=Cstr(HTTP_REFERER)
server_v2=Cstr(SERVER_NAME)
if mid(server_v1,8,len(server_v2))<>server_v2 then
   chkpost=false
else
   chkpost=true
end if
End Function
’构造上传图片文件名随机数
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
’Email检测
function IsValidEmail(email)
dim names, name, i, c
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
    IsValidEmail = false
    exit function
end if
for each name in names
    if Len(name) <= 0 then
      IsValidEmail = false
      exit function
    end if
    for i = 1 to Len(name)
      c = Lcase(Mid(name, i, 1))
      if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
        IsValidEmail = false
        exit function
      end if
    next
    if Left(name, 1) = "." or Right(name, 1) = "." then
       IsValidEmail = false
       exit function
    end if
next
if InStr(names(1), ".") <= 0 then
    IsValidEmail = false
    exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
    IsValidEmail = false
    exit function
end if
if InStr(email, "..") > 0 then
    IsValidEmail = false
end if
end function
’Jmail邮件发送
Function SendJmail(Email,Topic,MailBody)
Dim JMail
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend             = true
JMail.silent             = true
JMail.Charset             = "gb2312"
JMail.ContentType       = "text/html"
JMail.Sender             = "wemaster@alibaba.info" ’我们网站自己的邮箱
JMail.ReplyTo             = "wemaster@alibaba.info" ’我们网站自己的邮箱
JMail.SenderName       = "阿里爸爸邮件发送"
JMail.Subject             = Topic
JMail.SimpleLayout       = true
JMail.Body             = MailBody
JMail.Priority             = 3
JMail.AddRecipient Email
JMail.AddHeader "Originating-IP", GBL_IPAddress
If JMail.Execute() = false Then
   SendJmail = 0
Else
   SendJmail = 1
End If
JMail.Close
Set JMail = Nothing
End Function
’分页
Function listPages(LinkFile)
    if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1
’ if instr(linkfile,"?page=")>0 or instr(linkfile,"&page=")>0 then
’ pos=instr(linkfile,"page=")-2
’ linkfile=left(linkfile,pos)
’ end if

If LCase(Request.ServerVariables("HTTPS")) = "off" Then
     strTemp = "http://"
     Else
     strTemp = "https://"
     End If
     strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
     If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
     strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
     lenstrTemp=len(strTemp)+1
if instr(left(linkfile,lenstrTemp),"?")>0 then

if blockPage = 1 Then
   Response.Write "【←前10页 "
Else
   Response.Write("【←前10页 ")
End If
    i=1
    Do Until i > 10 or blockPage > n
     If blockPage=int(gopage) Then
   Response.Write("["&blockPage&"]")
Else
   Response.Write(" ["&blockPage&"] ")
     End If
     blockPage=blockPage+1
     i = i + 1
     Loop
if blockPage > totalpage Then
   Response.Write " 后10页→】"
Else
   Response.Write(" 后10页→】")
End If
response.write" 直接到第 "
response.write""
     for i=1 to totalpage
     response.write"     if i=gopage then response.write"selected"
     response.write">"&i&""
     next
     response.write""
     response.write" 页

"

else

if blockPage = 1 Then
   Response.Write "【←前10页 "
Else
   Response.Write("【←前10页 ")
End If
    i=1
    Do Until i > 10 or blockPage > n
     If blockPage=int(gopage) Then
   Response.Write("["&blockPage&"]")
Else
   Response.Write(" ["&blockPage&"] ")
     End If
     blockPage=blockPage+1
     i = i + 1
     Loop
if blockPage > totalpage Then
   Response.Write " 后10页→】"
Else
   Response.Write(" 后10页→】")
End If
response.write" 直接到第 "
response.write""
     for i=1 to totalpage
     response.write"     if i=gopage then response.write"selected"
     response.write">"&i&""
     next
     response.write""
     response.write" 页

"

End If

Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
   Response.Write("  共 "&totalrec&" 条信息当前显示第 "&Startinfo&" - "&Endinfo&" 条每页 "&msg_per_page&" 条信息共 "&n&" 页")
end if
End Function
’分页2
Function listPages2(LinkFile)
    if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1

If LCase(Request.ServerVariables("HTTPS")) = "off" Then
     strTemp = "http://"
     Else
     strTemp = "https://"
     End If
     strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
     If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
     strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
     lenstrTemp=len(strTemp)+1
if instr(left(linkfile,lenstrTemp),"?")>0 then

if blockPage = 1 Then
   Response.Write "前10页 "
Else
   Response.Write("前10页 ")
End If
    i=1
    Do Until i > 10 or blockPage > n
     If blockPage=int(gopage) Then
   Response.Write(""&blockPage&"")
Else
   Response.Write(" "&blockPage&" ")
     End If
     blockPage=blockPage+1
     i = i + 1
     Loop
if blockPage > totalpage Then
   Response.Write " 后10页"
Else
   Response.Write(" 后10页")
End If
response.write" 直接到第 "
response.write""
     for i=1 to totalpage
     response.write"     if i=gopage then response.write"selected"
     response.write">"&i&""
     next
     response.write""
     response.write" 页

"

else

if blockPage = 1 Then
   Response.Write "【←前10页 "
Else
   Response.Write("【←前10页 ")
End If
    i=1
    Do Until i > 10 or blockPage > n
     If blockPage=int(gopage) Then
   Response.Write("["&blockPage&"]")
Else
   Response.Write(" ["&blockPage&"] ")
     End If
     blockPage=blockPage+1
     i = i + 1
     Loop
if blockPage > totalpage Then
   Response.Write " 后10页→】"
Else
   Response.Write(" 后10页→】")
End If
response.write" 直接到第 "
response.write""
     for i=1 to totalpage
     response.write"     if i=gopage then response.write"selected"
     response.write">"&i&""
     next
     response.write""
     response.write" 页

"

End If

Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
   Response.Write("  共 "&totalrec&" 条信息当前显示第 "&Startinfo&" - "&Endinfo&" 条每页 "&msg_per_page&" 条信息共 "&n&" 页")
end if
End Function
’判断文件类型是否合格
Function CheckFileExt(FileExt)
Dim ForumUpload,i
ForumUpload="gif,jpg,bmp,jpeg,png"
ForumUpload=Split(ForumUpload,",")
CheckFileExt=False
For i=0 to UBound(ForumUpload)
   If LCase(FileExt)=Lcase(Trim(ForumUpload(i))) Then
    CheckFileExt=True
    Exit Function
   End If
Next
End Function
’格式后缀
Function FixName(UpFileExt)
If IsEmpty(UpFileExt) Then Exit Function
FixName = Lcase(UpFileExt)
FixName = Replace(FixName,Chr(0),"")
FixName = Replace(FixName,".","")
FixName = Replace(FixName,"asp","")
FixName = Replace(FixName,"asa","")
FixName = Replace(FixName,"aspx","")
FixName = Replace(FixName,"cer","")
FixName = Replace(FixName,"cdx","")
FixName = Replace(FixName,"htr","")
End Function
’文件Content-Type判断
Function CheckFileType(FileType)
CheckFileType = False
If Left(Cstr(Lcase(Trim(FileType))),6)="image/" Then CheckFileType = True
End Function
%>

辞职了。搬家了。

2008-05-31T23:47:25+08:00

前几天辞职了。今天也搬家了。

好好的干一把！