login.htm<% @ Language=javascript %><%if (Request.Cookies("SavedLogin").HasKeys) { Response.Redirect("ch...
login.htm请注册登录随风起舞<FORM ACTION="checklogin.asp" METHOD="POST"> 电子邮件: <input TYPE="Text" NAME="email" SIZE="4...
< %@ LANGUAGE="VBscript" % >< % Chunfeng=Request.Cookies("Chunfeng")' 初始设置页面,读取名字为Chunfeng的Cookie值.If Chunfeng ="" ...
<%@ Language=VBScript %><%Option Explicitresponse.buffer=trueDim objCookieResponse.Write "春风精彩之不可告人删除CookieS<BR>"Fo...
1.撼雪喷云之显示Cookie<TABLE BORDER="2"> <Thead> <TH>Cooki...
Dim strCookie, strTrystrCookie = Request.Cookies("MyCookie") strTry = Request.QueryString("Try") &nbs...
<%@ transaction = required %><%response.buffer = true' 缓存输出,以显示不同的页面.%><html><body>欢迎使用千花飞舞之在线银行服务.<%se...
default.asp<html><head><title>星河影动之磁盘序列号加密代码存取管理</title></head><% dim conn,fs,fSet conn = Server.CreateObject("ADODB.Connection")c...
<%@ Language = VBScript%><%Response.Expires = 0p = "abcdefg"Set TestPWD = New CPassWordTestPWD.EnPWD pTestPWD.UnPWD TestP...
<%userid = Request("userid")userpass = Request("userpass")Set conn = Server.CreateObject("ADODB.Connection")DBPath = Server.Map...
第一个办法,这个程序可以进行万亿以下的货币金额转换(够用的了吧),其中汉字与数字均按一位计:Function AtoC(a As Currency) As String ' 定义两个字符串,A的值最多是两位小数. &nbs...
Public Function CheckBIG(strSource As String) As BooleanDim idx As LongDim ByteTemp() As ByteCheckBIG = FalseFor idx = 1 To Len(st...
<%Function Comma(str)If Not(IsNumeric(str)) Or str = 0 Then Result = 0ElseIf Len(Fix(str)) < 4 Then Result = str...
Public Function XtoF(str As Currency, Optional fenm As Integer = 32) As String ' 只限于整除分数. Dim Cfm As Currency Dim cfmm...
如何准确地获得一个整数?function NumbersOnlyNoDecimals(pInString) lNumbersOnly = "" for x = 1 to len(pInString) ...
如何检测字符串出现的次数?Function CheckTheChar(TheChar,TheString)' TheChar="要检测的字符串".' TheString="待检测的字符串".if inStr(TheString,TheChar) thenfor...
<%FUNCTION TestString(SomeString)TempString = trIM(SomeString)TempString_Length = Len(TempString)TempString_OK = trueFOR TempSt...
如何测试字符串的长度?Function CheckStringLength(txt) txt=trim(txt) x = len(txt) y =...
<form name=f1 METHOD="POST"><%OpenDB objConn, "xxxx"Set RSClass = objConn.Execute("select * from class Order by fldClass"...
< select name="XlSheet" >< %vOptions = "< option >< /option >"Do While Not oSchemaRs.EOF If oSchemaRs("...