Asp常用通用函数之Cookie防乱码
'函数名：CodeCookie
'作 用：Cookie防乱码写入时用
'参 数：str ---- 字符串
'返回值：整理后的字符串
'示 例：
'**************************************************
Public Function CodeCookie(str)
If isNumeric(str) Then str=Cstr(str)
Dim newstr
newstr=""
For i=1 To Len(str)
newstr=newstr & ascw(mid(str,i,1))
If i<> Len(str) Then newstr= newstr & "a"
Next
CodeCookie=newstr
End Function
'**************************************************
'函数名：DecodeCookie
'作 用：Cookie防乱码读出时用
'参 数：str ---- 字符串
'返回值：整理后的字符串
'示 例：
'**************************************************
Public Function DecodeCookie(str)
DecodeCookie=""
Dim newstr
newstr=Split(str,"a")
For i = LBound(newstr) To UBound(newstr)
DecodeCookie= DecodeCookie & chrw(newstr(i))
Next
End Function
相关文档：
Javascript 的变量声明规则
1、变量名以英文字母开头；
2、长度不能超过255字节；
3、之间不能有空格；
4、不能包含 Javascript 的运算符；
5、不能使用 Javascript 的保留字；
6、区分大小写。
Javascript 的流程控制语句
与VBSCRIPT 相同， Javascript 的流程控制语句与分为条件语句和循环语句。
实� ......
http://fjtysgzx.hpw-js.com/Photo-151469.aspx) <%@ Import Namespace="System" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Net"%>
<%@ Page Language="C#" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD ......
在网上看到很多这方面的代码，但是有些是不能用，有些是垃圾代码太多，我简单的修改了一下现在与大家共享一下。
<%
Option Explicit
dim databasename '定义数据库名称
databasename="database.mdb" '数据库名称
dim databasepath '定义数据库存放路径
......
功能作用：ASP产生不重复的随机数（模拟游戏洗牌）
<%
function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum ......
