hiscaler

<%
' Base64 加解密函数

' .NET 实现
' public string encrypt(string str)
' { 
'     byte[] encbuff = System.Text.Encoding.UTF8.GetBytes(str);
' 
'     return Convert.ToBase64String(encbuff);
' }

hiscaler

<%

' 数据库操作助手文件

Class Class_DbHelper

    ' 获取数据库版本
    Public Function version()
        Dim versionString, v:v = Null
        versionString = Conn.Execute("SELECT SERVERPROPERTY('productversion')")(0) ' 2000+

hiscaler

<%
' 在ASP中实现加密与解密,加密方法:根据 RSA
Class clsRSA

    Public PrivateKey
    Public PublicKey
    Public Modulus

    Public Function Crypt(pLngMessage, pLngKey)
        On Error Resume Next

hiscaler

<%
' String helper
Class Class_StringHelper

    '**************************************************
	'函数名：strLength
	'作  用：检测字符串长度
	'**************************************************
	Function strLength(Str)
        dim i, Temp_str, Test_Str, size

hiscaler

SELECT
    ( CASE WHEN a.colorder = 1 THEN d.name
           ELSE ''
      END ) N'表名',
    a.colorder N'字段序号',
    a.name N'字段名',
    ( CASE WHEN COLUMNPROPERTY(a.id, a.name, 'IsIdentity') = 1 THEN '√'
           ELSE ''
      END ) N'标识',
    ( CASE WHEN ( SELECT

hiscaler

public final class Base64 {

  static private final int BASELENGTH = 255;
	static private final int LOOKUPLENGTH = 64;
	static private final int TWENTYFOURBITGROUP = 24;
	static private final int EIGHTBIT = 8;
	static private final int SIXTEENBIT = 16;
	static private final int FOURBYTE = 4;
	static private final int SIGN = -128;
	static private final char PAD = '=';