下面的函数可以对Email地址格式进行检查，只有形如： abc@abc.abc，abc@abc.abc.abc和abc@abc.abc.abc.abc状的串才能通过检查， 如下面这些非法地址都通不过： @abc@163.net，abc@163..net，abc@163.net.，abc@163@net等等都能剔除出来。 邮件地址就这几种格式吧？比如： swuse@yeah.net，liaojiayuan@BTamail.net.cn，abc@public.yj.gd.cn 还有没有更长的？ <script language="JavaScript1.2"> function checkmail(mail)   var strr;   re=/(\w+@\w+\.\w+)(\.{0,1}\w*)(\.{0...

Private Sub Comman1_Click() Dim str1, str2, str3 As String str1 = "王宇虹" str2 = Encrypt(str1, 188, 24) MsgBox str2 str3 = Encrypt(str2, 188, 24) MsgBox str3 End Sub   Private Function Encrypt(ByVal strSource As String, ByVal Key1 As Byte, _ ByVal Key2 As Integer) As String Dim bLowData As Byte Dim bHigData As Byte Dim i As Integer Dim strEncrypt As String Dim strChar As String For i = 1 To Len(strSource) '从待加（解）密字符串中取出一个字符 strChar = Mid(strSource...

'日期转换星座函数,参数是日期型function astro(birth)astro=""if birth="" or not isdate(birth) Then exit functionbirthmonth=month(birth) : if birthmonth<10 then birthmonth="0" & birthmonthbirthday=day(birth) : if birthday<10 then birthday="0" & birthdaybirth=trim(birthmonth & birthday) '重整月日,0903型 rAstro=split("水瓶座*0120*0219#双鱼座*0220*0320#白羊座*0321*0420#金牛座*0421*0521#双子座*0522*0621#巨蟹座*0622*0722#狮子座*0723*0823#处女座*0824*0923...

<% '===============ASP 文件操作函数集1.0版本========================= '     整理作者： 张辉 '     程序员代号：WJ008 '     整理时间：2008年 6 月 1 日 '     关注地址：www.wj008.net '     所有函数使用的文件地址 全部使用绝对地址 '==================================================================== 'LoadFile(ByVal File) 加载已经有的文件，并把文件的内容生成一个字符串返回 'SaveT...

<%Option ExplicitResponse.Buffer = TrueOn Error Resume NextDim StarTime,EndTime,Sql_Use,Conn,Db,ConnStr Rem ##########################################################################Rem ## 说明：本例中使用的数据库是动网论坛IP数据库 ##Rem ## 如果不想更换可以自行从动网论坛中找。 ##Rem ## 如果想更换数据库，那么你必须修改相应的SQL语句和其它参数 ##Rem ## 发布的该文档中我将JS附加在下面了，并且去掉了CSS等，可自行添加啦！ ##Rem ###############################...

'========取得带端口的URL，推荐使用================Function Get_ScriptNameUrl() If request.servervariables("SERVER_PORT")="80" Then Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name")) Else Get_ScriptNameUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&am...

1.gb.asp <%'获取服务器生成的html代码Function GetHTTPPage(url) dim XmlHttp set XmlHttp=Server.createobject("Microsoft.XMLHTTP") XmlHttp.open "GET",url,false XmlHttp.send() 'getHTTPPage=Http.responseText if XmlHttp.readystate<>4 then exit function GetHTTPPage=bytes2BSTR(XmlHttp.responseBody) set XmlHttp=nothing if err.number<>0 then err.ClearEnd Function Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.Cr...

function new_str(str) if instr(str,chr(34))<>0 and str<>"" then   str_split=split(str,chr(34))   i=1   str_s=""   for j=0 to ubound(str_split)-1    if i mod 2 then     str_s=str_s&str_split(j)&"“"&str_split(j+1)    else     str_s=str_s&str_split(j)&"”"&str_split(j+1)    end ...

DateDiff 函数 描述 返回两个日期之间的时间间隔。 语法 DateDiff(interval, date1, date2 [,firstdayofweek][, firstweekofyear]]) DateDiff 函数的语法有以下参数： 参数 描述 interval 必选。字符串表达式，表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。 date1, date2 必选。日期表达式。用于计算的两个日期。 firstdayofweek 可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。 firstweekofyear 可选。指定一年中第一周的常数。...

<% response.write makePassword(16) function makePassword(byVal maxLen) Dim strNewPass Dim whatsNext, upper, lower, intCounter Randomize For intCounter = 1 To maxLen     whatsNext = Int((1 - 0 + 1) * Rnd + 0) If whatsNext = 0 Then 'character         upper = 90         lower = 65 Else         upper = 57      &...