领星动网开发代码园地

http://www.cnitblog.com/lxasp/
IT博客 首页 新随笔 联系 聚合 管理
  6 Posts :: 0 Stories :: 0 Comments :: 0 Trackbacks

2008年6月6日 #

基于领星ASP开发平台的文章系统界面预览
posted @ 2008-06-06 18:52 lxasp 阅读(159) | 评论 (0) | 编辑 收藏

2008年5月21日 #

票据打印所需用到的大写转换(摘自:领星票据打印宝)
     摘要: [原创]领星票据打印宝[简易版] v0.1.0518　

◆功能特点：

◇支持多种票据模板：支票、银行进账单等
◇支持横向、纵向、侧向旋转的打印方式、支持A4、A3、A2等纸张
◇支持多种打印机：平推针式打印机、喷墨打印机、激光打印机、票据专用打印机等
◇每个字段均可精确定位到0.1毫米，均可设置不同字体大小
◇所见即所得的打印预览效果，可以更直观方便的调整位置等参数
◇支持备选列表设置，方便从下拉框中选取常用预设数据
◇支持模板参数保存，可以为不同的打印机作不同参数设置
◇采用INI格式文件作为模板，便于高级用户进行修改
◇采用Office 2007主题样式的强大界面，可灵活设定工具栏、快捷键等
◇[简易版]完全免费，无须注册，无功能限制，永不过期

  阅读全文
posted @ 2008-05-21 20:40 lxasp 阅读(68) | 评论 (0) | 编辑 收藏

2008年4月27日 #

ACP框架的前身的两个版本的后台登录代码的对比
     摘要: 其实我的现在这个ACP框架已经是在以前的2个版本的改良改写后的版本了。第一个版本的后台登录代码…………；第二个版本的后台登录代码…………；
可以明显看出，前身的版本的代码两都在200行以上，而现在的版本仅不足100行。  阅读全文
posted @ 2008-04-27 21:52 lxasp 阅读(238) | 评论 (0) | 编辑 收藏

后台用户登录的代码┅领星ASP开发平台(ACP框架┄ASP开发框架)
<!--#include file="acp/acp.asp"-->
<!--#include file="config.asp"-->
<!--#include file="app/Nome_MD5.asp"-->
<%
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("<script>window.top.location.replace('Admin.asp')</script>")
    
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
%>
posted @ 2008-04-27 19:25 lxasp 阅读(393) | 评论 (0) | 编辑 收藏

列表分页代码┅领星ASP开发平台(ACP框架┄ASP开发框架)
<!--#include file="acp/acp.asp"-->
<!--#INCLUDE FILE="acp/clsList.asp"-->
<!--#include file="config.asp"-->
<%

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


%>
posted @ 2008-04-27 10:53 lxasp 阅读(164) | 评论 (0) | 编辑 收藏

代码示例┅领星ASP开发平台(ACP框架┄ASP开发框架)
<!--#include file="acp/acp.asp"-->
<%
tp.cache=empty              '禁用缓存模板
tp.open "Untitled-1.html"   '打开刚才的HTML
tp("title")="hello acp"     '设置title标签
tp("text")=now              '设置text标签
tp.pump                     '显示结果
%>
posted @ 2008-04-27 10:36 lxasp 阅读(257) | 评论 (0) | 编辑 收藏

仅列出标题