· unction encrypt(ecode)Dim textsdim ifor i=1 to len(ecode)texts=texts & chr(asc(mid(ecode,i,1))+i)nextencrypt = textsend function function decrypt(dcode) dim textsdim ifor i=1 to len(dcode)texts=texts & chr(asc(mid(dcode,i,1))-i)nextdecrypt=textsend functionfunction mi...
· 沐枫(初稿)表A:1-0-1,this is a test 3-1-1,this is a test 4-3-1,this is a test 5-3-1,this is a test 2-0-2,this is a test 上面是BBS主题列表的一个例子。一般来说,假如不是使用Oracle(Oracle 有一条查询语句可以自动生成家族树,请查阅Select ... start with ... connect by ...语句),那么...
· ASP简介ASP(Active Server Page)是Microsoft公司推出的基于IIS(Internet Information Server)的动态网页开发技术。ASP都是以ISAPI(Internet Service API)的原理实现的,它通常使用VBScript语言进行HTML文件的嵌入式脚本设计,文件名后缀是.ASP。它的原理如图1所示。当浏览器向Web Server发出.ASP请...
· <% '********************************************* ' THIS IS A SIMPLE GAME OF ROCK SCISSORS PAPER ' FEEL FREE TO DO WHATEVER YOU LIKE WITH THIS ' SCRIPT! -IAN S. CARROLL '********************************************* '********************************************* ' THIS FUN...
· <%'----数据库连接Start '---二级域名名称 Main_Domain="web" '--域名格式为pcc.net dim conn_Home dim conn_Homestr '定义数据库类别,1为SQL数据库,0为Access数据库 const IsSqlDataBase_Homestr = 1 call conn_Home_init() sub conn_Home_init() if IsSqlDataBase_H...
· '2004-6-11 => 二零零四年六月十一日 Function D(x) if int(split(x,"-")(2)/10)=0 then D=D & F(split(x,"-")(2)) else _ if split(x,"-")(2) mod 10 =0 then D=D & F(int(split(x,"-")(2)/10)) & "十" else _ D=D & F(int...
· function IP2Num(sip) dim str1,str2,str3,str4 dim num IP2Num=0 if isnumeric(left(sip,2)) then str1=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str2=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str3=left(sip,...