IT博客-领星动网编程开发之爆炸小宇宙-随笔分类-ASP

ASP的微软官方脚本代码加密工具的真正可用的命令行语法

lxasp — Tue, 07 Aug 2012 16:04:00 GMT

ASP的微软官方脚本代码加密工具的真正可用的命令行语法

screnc.exe /xl /l vbscript 1.asp 2.asp

其中1.asp为待加密的ASP文件，2.asp为加密后的生成文件

生成了2.asp之后，将以下代码添加到2.asp文件内容的第一行
<%@LANGUAGE="VBSCRIPT.Encode"%>

微软官方脚本代码加密工具可以搜索以下关键字即可找到下载：
sce10chs
sce10en

或者将以下链接给迅雷即可下载！
http://download.microsoft.com/download/winscript56/Install/1.0/WIN98MeXP/CN/sce10chs.exe

lxasp 2012-08-08 00:04 发表评论

原创ASP框架：CVASP框架 201215D 发布！ASP依然可以那么优雅！

lxasp — Tue, 17 Apr 2012 07:59:00 GMT

◆基本信息：
◇版本编号：201215D
◇核心字节：50222
◇核心文件：cvcorem.asp
◇英文名称：CVASP -- Controller View for ASP Framework
◇中文名称：CVASP框架
◇程序语言：VBScript
◇字符编码：GB2312, GBK, UTF-8
◇作者主页：http://cnitblog.com/lxasp

◆功能简介：
◇简便：
常用函数和类采用精简命名，书写代码更少。
提供几个下划线的代码生成工具：
_convutf8.asp 　　--用于转换中文为UTF编码用于AJAX
_mkcvatpl.asp 　　--用于生成编程时用的代码书写模板
_viewsrc.asp 　　--用于查看cvcore.asp的源代码注释
具体效果用IIS管理器运行一下就知道了。
数据库类提供原生ADODB的rs和conn对象实例给外部使用，
熟悉ADO的可不影响之前使用习惯。
提供常用的功能函数以及省心省力的类：
模板类、数据库类、分页类、字符串拼接类等
◇灵活：
核心代码库可以单独INCLUDE出来使用。
例如：
◇安全：
Cookie类使用乱序的Base64编码，可预防Cookie欺骗。
使用reqF和reqS函数封装了Request.Form和Request.QueryString，可预防SQL注入。
提供简洁有效的表单验证的系列函数： vcnull, vclen, vcsize, vcnum, vcdate
◇快速：
提供高性能的单层区块模板类，可结合缓存类一起使用。
提供高性能的字符串拼接类，例如 dim sc : set sc=new clsStrCat
提供数据库类支持GetRows格式二维数组的数据库读取操作
◇整洁：
提供模板类使得ASP(VBS)服务器代码与HTML界面代码分离。
核心仅提供常用且精炼的功能函数和类，扩展功能(HELPER)要用时才自己INCLUDE。

【CVASP框架下载】
cvinc.cab.zip

lxasp 2012-04-17 15:59 发表评论

用于SQLSERVER2000的备份还原数据库和登录用户设置的ASP/VBS代码

lxasp — Fri, 13 Apr 2012 12:54:00 GMT

摘要: Function exSqlRestoreDb(conn, dbname, tosave, frombak)
Function exSqlBackupDb(conn, dbname, tosave)
Function exSqlCreateDb(conn, dbname, tosave)
Function exSqlInstallDb(conn, dbname, tosave, frombak)
Function exSqlCreateUser(conn, dbname, usr, pwd)
Function exSqlRemoveUser(conn, dbname, usr)
阅读全文

lxasp 2012-04-13 20:54 发表评论

领星动网信息系统技术解决方案

lxasp — Sat, 10 Mar 2012 18:39:00 GMT

代码生成器信息系统开发技术解决方案：Template Engine + JSON + HTA + PHP/ASP/JSP/JS Framework

用户中心系统访问权限架构简述

访客:Guest
↓↓注册:Signup
↓↓登录:Login{Usr,Pwd}
个人:Person→登入:Enter{Usr,Pwd}→应用:App
｛
　　类目:Class
　　└模块:Modal
　　　└动作:Action［RecordsFilter:{组别:Group,分片:Place}］
　　　　└表单:Form［FieldsFilter:{下拉:GroupCombo,隐藏:GroupHide}］
　　　　└表格:Grid［纯列表:ListGrid、可编辑:EditGrid］
　｝

特点：简单、灵活、强大！

权限粒度严格细分
能够挂接多种系统
便于发现所需功能
不需要无限分类树
开发省力容易配置

一套信息系统开发的获得成功的三大要点：

一、前提：物资到位；

　　包括两方面——资金：周付工资（500--2000元/周）；硬件：室内安静、空调、暖气、办公桌、办公椅、电脑主机、笔记本、多个大屏幕显示器、服务器。

二、重点：跟踪到位（目前最欠缺的）；

　　提供一名或多名需求分析跟踪人员，提供开发人员任务提醒和开发质量监督，以及后勤支持包括：餐饮、娱乐、旅游等。买卖双方应该是互相服务，而不是单向地谁对谁服务的事情；除了卖方经理带买方的领导出去消费、娱乐、旅游，而且还要买方的跟踪人员带卖方的开发人员出去消费、娱乐、旅游。

三、保障：制度到位。

　　领导要足够重视信息系统在单位中的应用，制定与信息系统相关政策规章制度，促使业务流程围绕信息系统为中心畅通接轨，通过信息系统而去规范原有的业务流程，为系统推广使用扫清障碍。

这三要点是环环相扣，相互相承的。第一点没有的条件下是不可能有二、三点的，第二点没有做好的时候就不能先做第三点！目前最多的问题是第二点没有做好的情况下做了第三点，这样只会使得原有的业务流程出现更多突出问题！

2006-2017
Lead eXperience Application System Provider -- 领先体验应用系统提供者
Lead eXperience Application System Platform -- 领先体验应用系统平台

lxasp 2012-03-11 02:39 发表评论

阉割的ACCESS的AUTOINCREMENT的SQL语句，只能用conn.Execute来运行。

lxasp — Sat, 10 Mar 2012 03:25:00 GMT

创建“自动编号”字段的语法

字段名 AUTOINCREMENT(1,1) PRIMARY KEY ,

◆严重注意（真TMD的阉割！）："字段名"与AUTOINCREMENT之间只能有空格，不能含有例如 INT NOT NULL 等其他关键词否则报错！

专用ASP代码：

<%
'运行ACCESS的SQL语句专用ASP文件 %23 = # %25 = %

if request.querystring("go")="ex" then exsql

sub exsql

    Dim tsql,a,i,t

    Dim rs, conn
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("youraccessfile.mdb")


    tsql=request.form("tsql")

    a=split(tsql,request.form("ck"))

    for i=0 to ubound(a)
        t=MSSQL2ACCESS( a(i) )
        if len(trim(a(i)))>0 then
            response.write t & "

"
            response.flush
            conn.Execute t
        end if
    next

    response.write "Finish Execute : " & i
    response.end
'    Set rs = CreateObject("ADODB.Recordset")
'    rs.Open SQLz, conn, 1, 1
end sub

function MSSQL2ACCESS(s)

    s=rxpgi(s,"(INTEGER|INT|NUMERIC\(\d*,\d*\))?\s*(NOT\s+NULL)?\s*IDENTITY","AUTOINCREMENT")

    s=rxpgi(s,"CLUSTERED","")

    s=rxpgi(s,"GETDATE","NOW")

    s=rxpgi(s,vbcr," ")
    s=rxpgi(s,vblf," ")

    MSSQL2ACCESS=s

end function

Function rxpgi(str1, patrn, replStr)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.Global = True
regEx.IgnoreCase = True
rxpgi = regEx.Replace(str1, replStr)
End Function

%>

<form id="" name="" method="post" action="?go=ex" onsubmit="return true;"><div>

<textarea name="tsql" cols="120" rows="30">textarea>
<br />
<input name="" id="" type="submit" value="!!-- 运行 --!!" />

自定义多条SQL语句分隔结束符:<input name="ck" id="" type="text" value=";" style="width:100px" />

div>form>

lxasp 2012-03-10 11:25 发表评论

ASP的SQL的SELECT语句的代码生成代码

lxasp — Wed, 16 Sep 2009 16:17:00 GMT

摘要: 主要用于从数据库字段设计字典的文档中，生成三重对应关系的字段名：数据库内部的字段名(可以做到无数据字典时，外人难以猜测其含义)；编写代码时用的变量名（也可以作为表单的字段名）；显示在界面上给用户看的文字含义名称英文识别词分别为：DataName, CodeName, ShowName另外，还可以用于在返回查询结果中，生成字段所对应的SELECT里的序号，例如SELECT abID,abTitle此... 阅读全文

lxasp 2009-09-17 00:17 发表评论

ACP框架的前身的两个版本的后台登录代码的对比

lxasp — Sun, 27 Apr 2008 13:52:00 GMT

摘要: 其实我的现在这个ACP框架已经是在以前的2个版本的改良改写后的版本了。第一个版本的后台登录代码…………；第二个版本的后台登录代码…………；
可以明显看出，前身的版本的代码两都在200行以上，而现在的版本仅不足100行。阅读全文

lxasp 2008-04-27 21:52 发表评论

后台用户登录的代码┅领星ASP开发平台(ACP框架┄ASP开发框架)

lxasp — Sun, 27 Apr 2008 11:25:00 GMT

<%
NoCache

If Request.QueryString("go")="check" Then

    Call CheckLogin()

Else

    If tp.Open("admin\Login.htm") Then
        tp("FORM_ACT")="?go=check"
        tp.Pump
    Else
        zerr "打开模板失败"
    End If

End If

Sub CheckLogin()

    Dim a,b

    With db

        .TypeStr
        Dim VF_ua_name : VF_ua_name=.VF("ua_name")
        Dim VF_ua_pwd : VF_ua_pwd=.VF("ua_pwd")
        Dim VF_vpwd : VF_vpwd=.VF("vpwd")
        Dim VF_vcode : VF_vcode=.VF("vcode")

    End With

    If db.HasErr Then
        zerr db.GetErr
    End If

    If Session("GetCode")<>VF_vcode Then zerr "验证码不正确"
    If VF_vpwd<>"123" Then zerr "内部密码不正确"

    a=db.Read("SELECT ua_id, ua_name, ua_pwd, ua_ugid, ug_name FROM LX_UA LEFT JOIN LX_UG ON LX_UA.ua_ugid = LX_UG.ug_id WHERE " & db.ES("ua_name","=",VF_ua_name) )

    If Not IsArray(a) Then zerr "用户名不正确"

    If a(2,0)<>md5(VF_ua_pwd) Then zerr "密码不正确"

    b=db.Read("SELECT lf_id FROM LX_MGF WHERE flag=-1 AND " & db.EN("ug_id","=",a(3,0) ) & " ORDER BY lf_id "  )

    Session("ua_id")=a(0,0)
    Session("ua_name")=a(1,0)
    Session("ua_ugid")=a(3,0)
    Session("ua_ugname")=a(4,0)
    Session("ua_rgt")=XRgt(b)

    Pause("")

End Sub

Function XRgt(rgts)
    Dim i,a,u
    If IsArray(rgts) Then
        u=UBound(rgts,2)
        ReDim a(u)
        For i=0 To u
            a(i)=","&rgts(0,i)
        Next
        XRgt=Join(a,"")
    End If
End Function
%>

lxasp 2008-04-27 19:25 发表评论

列表分页代码┅领星ASP开发平台(ACP框架┄ASP开发框架)

lxasp — Sun, 27 Apr 2008 02:53:00 GMT

<%

Response.Write ShowList()

ca.removeall

Function ShowList()
    Dim ls,t

    use.ls ls
    Set ls.Cache=ca
    If ls.Open("./tpl/default/list.htm") Then

        ls.PSize=20

        ls.SetRS(conn,"SELECT COUNT(*) FROM AE_Demo1")="SELECT ab_id, ab_title, ab_date FROM AE_Demo1 ORDER BY ab_date DESC"

        t=ls.Text

        If ls.HasErr Then
            zerr ls.GetErr
        End If

        t=Replace(t,"{=dirSKIN}","./tpl/default/")
        t=Replace(t,"{=info_runtimer}",GetTimer)
        t=Replace(t,"{=info_sqlcount}",sqlcount)
        t=Replace(t,"{=title}", GPV_site_name )


        ShowList=t

    Else

        Pause "打开模板失败"

    End If

End Function

%>

lxasp 2008-04-27 10:53 发表评论

代码示例┅领星ASP开发平台(ACP框架┄ASP开发框架)

lxasp — Sun, 27 Apr 2008 02:36:00 GMT

<%
tp.cache=empty              '禁用缓存模板
tp.open "Untitled-1.html"   '打开刚才的HTML
tp("title")="hello acp"     '设置title标签
tp("text")=now              '设置text标签
tp.pump                     '显示结果
%>

lxasp 2008-04-27 10:36 发表评论