joel's FLEX blog » 登录

临沂汽车界–修改版

joel — Thu, 04 Dec 2008 06:24:15 +0000

最近某网想用这套程序来做汽车网门户型网站,于是我就安装在本地测试了下,发现还是蛮强大的,可是传到空间去了,真正使用的时候,毛病就出现了一大堆:
1.安装临沂汽车界时候需要修改文件(这个其实算不上是问题)
2.后台不能发布新车的问题
3.后台新车品牌，新车类型，新车车型管理一系列问题
4.前台不能添加团购的问题。
5.前台4S店不能上传修改形象图片的问题。
6.后台信息超市不能添加信息的问题。
7.后台4S店管理里面经销商管理不能修改上传图片的问题。
8.后台信息列表不能修改信息的问题。(我下的版本好像没这个问题)
9.文章评论混乱的问题。
10.前台没有养车费用计算工具 (待解决)
11.汽车团购是否贷款和简短附言不起作用的问题。
12.后台编辑新闻很快就超时要求重新登录的问题.

幸好把这些问题一一解决掉了,以上信息是由我本人来修改的,所以有此需要的同学可以留下联系方式–最好是qq–方便嘛~当然,是有偿的哦!

以上问题都已解决，等有时间了整理一下

标签：ASP, QQ, 后台, 登录

KingCMS管理界面

joel — Thu, 23 Oct 2008 02:20:34 +0000

上次我们进入到了登录界面,现在,我们来看看后台管理文件,manage.asp,因为这个文件比较大,所以我就分开模块来写吧.
登陆进去以后的显示页面是由king_def来负责

sub king_def()
 
	king.head "0",king.lang("manage/title")'manage/title是调用文件zh-cn.xml中manage标签下面的title标签
	dim rs,dp,i
 
	Il ""&king.lang("manage/title")&"
"
 
	set rs=conn.execute("select systemver,dbver,systemname,instdate from kingsystem where systemname='KingCMS';")
		if not rs.eof and not rs.bof then
			Il ""k_table"" cellspacing=""0"">"
			Il ""
			Il ""
			Il ""
			Il ""
			Il ""
				Il ""
			Il ""
				Il ""
			Il ""
			Il ""
			Il ""
			Il ""
			Il ""w0"">"&king.lang("parameters/system")&" "&king.lang("parameters/server")&"
"&king.lang("parameters/systemname")&" -› "&rs(2)&" FSO -› "&king.isobj(king_fso)&"
"&king.lang("parameters/systemver")&" -› "&king.systemver&" ASPJPEG/1.5 -› "&king.isobj("Persits.Jpeg")&"
"&king.lang("parameters/newversion")&" -› "newversion""> ADODB.STREAM -› "&king.isobj(king_stm)&"
"&king.lang("parameters/dbver")&" -› "&rs(1)&" XMLHTTP -› "&king.isobj("Microsoft.XMLHTTP")&"
"&king.lang("parameters/dbtype/title")&" -› "&king.lang("parameters/dbtype/type"&king_dbtype)&" IIS -› "&Request.ServerVariables("SERVER_SOFTWARE")&"
"&king.lang("parameters/inst")&" -› "&king.inst&" ScriptEngine -› "&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion&"
"&king.lang("parameters/instdate")&" -› "&rs(3)&" ScriptTimeout -› "&Server.ScriptTimeout&"
"&king.lang("parameters/osite")&" -› "http://www.kingcms.com"" target=""_blank"">www.KingCMS.com ServerTime -› "&tnow&"
"&king.lang("parameters/mailto")&" -› KingCMS@Gmail.com IP -› "&king.ip&"
"
		else
			king.deletefile king_system&"system/fun.asp"
		end if
		rs.close
	set rs=nothing
 
	if king.level="admin" or king.instre(king.level,"log") then'判断当前管理员的level是否有管理访问日志的权利
		Il ""&king.lang("log/title")&"
"
		set dp=new record
			dp.create"select logid,adminname,lognum,ip,logdate from kinglog order by logid desc;"'连接数据库
			dp.purl="manage.asp?action=log&pid=$&rn="&dp.rn'20 40 100 200 那里;dp.rn给页面的100 200赋值
			dp.action="manage.asp?action=logset"'下拉框那里
			dp.but=dp.sect("logdelete:"&encode(king.lang("log/delete")))&dp.prn & dp.plist'删除登录信息;dp.prn作用是显示中间的200那里 ;dp.plist显示后面的分页
			dp.js="cklist(K[0])+K[0]+') '+K[1]"'
			dp.js="K[2]"
			dp.js="K[3]"
			dp.js="K[4]"
 
			Il dp.open
 
			Il ""&king.lang("log/list/id")&") "&king.lang("log/list/name")&""
			Il ""&king.lang("log/list/num")&""&king.lang("log/list/ip")&""&king.lang("log/list/date")&""
			Il ""
			Il dp.close
		set dp=nothing
	end if
end sub

"w0"">"&king.lang("parameters/system")&"	"&king.lang("parameters/server")&"
"&king.lang("parameters/systemname")&" -› "&rs(2)&"	FSO -› "&king.isobj(king_fso)&"
"&king.lang("parameters/systemver")&" -› "&king.systemver&"	ASPJPEG/1.5 -› "&king.isobj("Persits.Jpeg")&"
"&king.lang("parameters/newversion")&" -› "newversion"">	ADODB.STREAM -› "&king.isobj(king_stm)&"
"&king.lang("parameters/dbver")&" -› "&rs(1)&"	XMLHTTP -› "&king.isobj("Microsoft.XMLHTTP")&"
"&king.lang("parameters/dbtype/title")&" -› "&king.lang("parameters/dbtype/type"&king_dbtype)&"	IIS -› "&Request.ServerVariables("SERVER_SOFTWARE")&"
"&king.lang("parameters/inst")&" -› "&king.inst&"	ScriptEngine -› "&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion&"
"&king.lang("parameters/instdate")&" -› "&rs(3)&"	ScriptTimeout -› "&Server.ScriptTimeout&"
"&king.lang("parameters/osite")&" -› "http://www.kingcms.com"" target=""_blank"">www.KingCMS.com	ServerTime -› "&tnow&"
"&king.lang("parameters/mailto")&" -› KingCMS@Gmail.com	IP -› "&king.ip&"

标签：ASP, cms, CODE, KingCMS, ria, 后台, 登录

登录KingCMS

joel — Thu, 16 Oct 2008 08:52:27 +0000

通过上一次的研究，我们的kingcms应该已经安装完毕了，为了便于我们研究，那些配置文件里面的内容我都保持的默认状态。这时可以看到，根目录下面多了一个文件夹：db，就是数据库文件夹。好了，我们来登录后台管理：admin/system/login.asp





King Content Management System - Version 5.0



 
 

	
	
		
		[KingCMS官网]
		
	

 

	
	  King Content Management System! 5
		新一代 KingCMS 为您提供了：
更好的界面、更多的开发余地、更强大的扩展能力!
 
 
		
			
				
					
						帐号:
						密码:
					
					
						
					
					
			
		
 
 
		使用前，请先阅读 KingCMS 5.0 许可协议
		官方网站：KingCMS.com
		电子邮件：KingCMS@Gmail.com
		KingCMS交流群：5789106/13872621
		
 
<%
 
dim adminname,adminpass,adminsalt,rs,doc,ip,logcount,sql
adminname=left(form("adminname"),12)'截取name字符串
if len("adminname")>0 and len(form("adminpass"))>0 then'原作者好像少写了两个双引号
	adminpass=md5(form("adminpass"),1)
 
	on error resume next'遇到错误就跳过
 
	set conn=server.createobject("adodb.connection")
	conn.open objconn
 
	if err.number<>0 then'如果错误数量不为零，则设置默认选项
		set doc=Server.CreateObject(king_xmldom)
		doc.async=false
		doc.load(server.mappath(king_system&"system/language/"&king_language&".xml"))
		response.clear
		response.write doc.documentElement.SelectSingleNode("//kingcms/error/db").text
		response.end()
	end if
	err.clear
 
	ip=request.servervariables("http_x_forwarded_for")'记录ip
	if ip="" then ip=request.servervariables("remote_addr")
 
	if king_dbtype=1 then
		sql="select count(logid) from kinglog where ip='"&safe(ip)&"' and lognum=2 and getdate()-logdate<0.25;"
	else
		sql="select count(logid) from kinglog where ip='"&safe(ip)&"' and lognum=2 and now()-logdate<0.25;"'0.25是按照天算 就是6小时内，只允许尝试登录10次
	end if
	logcount=conn.execute(sql)(0)'记录尝试登录次数，也就是同一ip六个小时内的错误尝试
	if logcount>=king_loginnum then
		response.write ""red"">您尝试登录次数过多，已被系统锁定
"
	else
		set rs=conn.execute("select adminid from kingadmin where adminname='"&safe(adminname)&"' and adminpass='"&safe(adminpass)&"';")
			if not rs.eof and not rs.bof then
				conn.execute "update kingadmin set admindate='"&tnow&"',admincount=admincount+1 where adminname='"&safe(adminname)&"';"
				conn.execute "insert into kinglog (adminname,lognum,ip,logdate) values ('"&safe(adminname)&"',1,'"&safe(ip)&"','"&tnow&"')"
				response.cookies(md5(king_salt_admin,1))("name")=adminname
				response.cookies(md5(king_salt_admin,1))("pass")=adminpass'newpass
				response.redirect "manage.asp"
			else
				conn.execute "insert into kinglog (adminname,lognum,ip,logdate) values ('"&safe(adminname)&"',2,'"&safe(ip)&"','"&tnow&"')"
				if king_loginnum-logcount=1 then
					response.write ""red"">您尝试登录次数过多，已被系统锁定
"
				else
					response.write ""red"">您的帐号或密码有误 !还有"&(king_loginnum-logcount-1)&"次登录的机会。
"
				end if
			end if
			rs.close
		set rs=nothing
	end if
 
 
 
end if
%>
 


Copyright ©  KingCMS.com All Rights Reserved.

帐号: 密码:

标签：ASP, cms, CSS, DIV, html, KingCMS, Label, ria, Text, 后台, 登录

全新安装KingCMS

joel — Mon, 13 Oct 2008 07:52:16 +0000

最初，如何的安装KingCMS成为了摆在我面前的第一个困难。
进入admin目录，在这个下面有两个asp文件，分别是index.asp、default.asp，从这两个文件名来看，似乎就可能猜出大概的含义了，然后经过比对，两个文件全部内容都是一样的，我估计作者是想要有更高的移植能力吧。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim fs,l1,l2,l3'
l1="system/install.asp"'
set fs=createObject("Scripting.FileSystemObject")'设置fso
l2=server.mappath(l1)'l2取得文件install.asp的物理路径
l3=fs.folderexists(l2)'判断文件夹是否存在
if l3=false then l3=fs.fileexists(l2)'如果不存在则判断是否存在文件install.asp
set fs=nothing'关闭fso
 
if l3 then'
response.Redirect(l1)'使浏览器重定向到install.asp
else'否则
response.Redirect("system/login.asp")'转到登录文件login.asp
end if'结束
%>

这里，我们进行学习的顺序是按照前台的逻辑顺序来的，因为是新安装，所以我们就进入到install.asp文件。


<%
 
dim dbpath,page,scriptname
const king_systemver = 5.0
const king_dbver = 5.0
dbpath=server.MapPath("../db/King#Content#Management#System.asp")'取得数据库文件的物理路径
 
 
select case request("action")'选择语句，用来处理不同的情况
case"" king_def'如果参数为空，则执行king_def，起初还挺纳闷，怎么没有break呢，原来vbscript不用这个
case"install" king_install'安装
case"repass" king_repass'忘了密码，修复默认帐号(若不存在则创建,帐号:admin 密码:admin888) 
case"del" king_del
end select
 
sub king_def()
 
%>
 



KingCMS Installation <span style="color: #000000; font-weight: bold;"><%</span><span style="color: #006600; font-weight: bold;">=</span>king_systemver<span style="color: #000000; font-weight: bold;">%></span>



 

	
	
		
		[KingCMS官网]
		
	

 

 
安装(Install)
 

 
<%
		if isexistfile(king_db)=false or king_dbtype=1 then'判断mdb数据库文件或目录是否存在，如果不存在或者数据库为mssql
Il ""install.asp?action=install"">安装数据库 (创建数据库及表结构,并设置默认管理帐号)
"
		end if
%>
 
登录管理
	
		默认登录帐号为 admin ,密码是 admin888 
		忘了密码? 修复默认帐号(若不存在则创建,帐号:admin 密码:admin888)
	

 
删除此文件(数据库安装成功后,必须要删除,存在安全隐患)

 
 

	数据库连接: 点击安装数据库前,请先设置page/system/conn.asp中的数据库类型及参数,默认为ACCESS数据库
	参数设置: page/system/config.asp里可以指定一些参数
	修改前台系统目录: admin/system/config.asp里修改king_system值和include中的路径
	感谢您对KingCMS的关注及支持!

 

	KingCMS 5.0 许可协议(较宽松使用开发许可协议)
	KingCMS 5.0 插件开发规则
	KingCMS 5.0 函数解析

 


Copyright © KingCMS.com  All Rights Reserved.


 
<%
end sub
 
 
'  *** Copyright © KingCMS.com All Rights Reserved ***
sub king_del()
	deletefile "install.asp"'删除安装文件
	response.redirect "login.asp"'转向到登录文件
end sub
 
 
'  *** Copyright © KingCMS.com All Rights Reserved ***
sub king_repass()
	dim rs
	set conn=server.createobject("adodb.connection")
	conn.open objconn
	set rs=conn.execute("select adminname from kingadmin where adminname='admin';")
		if not rs.eof and not rs.bof then
			conn.execute "update kingadmin set adminpass='"&md5("admin888",1)&"' where adminname='admin';"
		else
			conn.execute "insert into kingadmin (adminname,adminpass,adminlevel,adminlanguage,admineditor,admindate) values ('admin','"&md5("admin888",1)&"','admin','zh-cn','fckeditor','"&now()&"')"
		end if
		rs.close
	set rs=nothing
	response.redirect request.servervariables("http_referer")
end sub
'  *** Copyright © KingCMS.com All Rights Reserved ***
sub king_install()
 
	dim adox,sNotdown,sql,i
 
	if king_dbtype=0 then'ACCESS数据库
 
		createfolder "../../db"'创建数据库文件夹db
		if isexistfile(king_db) then
			response.write "数据库已经存在,请先删除!"
			response.end
		end if
		Set adox = Server.CreateObject("ADOX.Catalog") '创建数据库需要用到的ado扩展库
		call adox.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(king_db))
		Set adox = nothing 
	end if
 
'	objconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath
	set conn=server.createobject("adodb.connection")
	conn.open objconn
'创建数据库各个table
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="systemname nvarchar(20),"'系统名称
	sql=sql&"systemver nvarchar(10),"'程序版本
	sql=sql&"dbver nvarchar(10),"'数据库版本
	sql=sql&"sitename nvarchar(50),"'网站名称
	sql=sql&"siteurl nvarchar(50),"'网站地址
	sql=sql&"sitemail nvarchar(100),"'mail
	sql=sql&"sitekeywords ntext,"'网站关键字组
	sql=sql&"plugin ntext,"'插件
	sql=sql&"lockip ntext,"'锁定IP
	sql=sql&"sitemap nvarchar(30),"'sitemaps文件名
	sql=sql&"rssnumber int not null default 50,"
	sql=sql&"rsspath nvarchar(30),"
	sql=sql&"rssupdate int not null default 1440,"'rss新闻更新周期
	sql=sql&"robot ntext,"'爬虫
	sql=sql&"instdate datetime"'安装日期
	conn.execute "create table kingsystem ("&sql&")"
	conn.execute "insert into kingsystem (systemname,systemver,dbver,sitename,siteurl,sitekeywords,instdate,sitemap,rsspath,robot) values ('KingCMS','"&formatnumber(king_systemver,1)&"','"&formatnumber(king_dbver,1)&"','KingCMS','http://www.kingcms.com','KingCMS,内容管理系统','"&tnow&"','sitemaps','news','Baidu|Baiduspider+"&vbcrlf&"Google|Googlebot"&vbcrlf&"Alexa|ia_archiver"&vbcrlf&"Alexa|IAArchiver"&vbcrlf&"ASPSeek|ASPSeek"&vbcrlf&"Yahoo|YahooSeeker"&vbcrlf&"Sohu|sohu-search"&vbcrlf&"Yahoo|help.yahoo.com/help/us/ysearch/slurp"&vbcrlf&"SOHU|sohu-search"&vbcrlf&"MSN|MSN"&vbcrlf&"AOL|Sqworm/2.9.81-BETA (beta_release; 20011102-760; i686-pc-linux-gnu)')"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="adminid int not null identity primary key,"
	sql=sql&"adminname nvarchar(12),"'name
	sql=sql&"adminpass nvarchar(32),"'pass
	sql=sql&"adminlevel ntext,"'级别
	sql=sql&"adminlanguage nvarchar(30),"'语言
	sql=sql&"admineditor nvarchar(30),"'编辑器
	sql=sql&"admincount int not null default 0,"'登陆次数
	sql=sql&"admindate datetime"'最后一次登录
	conn.execute"create table kingadmin ("&sql&");"
	conn.execute "insert into kingadmin (adminname,adminpass,adminlevel,adminlanguage,admineditor,admindate) values ('admin','"&md5("admin888",1)&"','admin','zh-cn','fckeditor','"&now()&"')"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="diymenuid int not null identity primary key,"
	sql=sql&"diymenulang nvarchar(10),"
	sql=sql&"diymenu ntext"
	conn.execute"create table kingdiymenu ("&sql&");"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="logid int not null identity primary key,"
	sql=sql&"adminname nvarchar(12),"
	sql=sql&"ip nvarchar(15),"
	sql=sql&"lognum int not null default 0,"
	sql=sql&"logdate datetime"
	conn.execute"create table kinglog ("&sql&");"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="mapid int not null identity primary key,"
	sql=sql&"maploc nvarchar(255),"
	sql=sql&"maplastmod datetime"'文档自动归类，每个类下面有3000条sitemaps链接
	conn.execute"create table kingsitemap ("&sql&");"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="rssid int not null identity primary key,"
	sql=sql&"rsstitle nvarchar(255),"
	sql=sql&"rsslink nvarchar(255),"
	sql=sql&"rssdescription nvarchar(255),"
	sql=sql&"rsstext ntext,"
	sql=sql&"rssimage nvarchar(255),"
	sql=sql&"rsskeywords nvarchar(255),"
	sql=sql&"rsscategory nvarchar(255),"
	sql=sql&"rssauthor nvarchar(255),"
	sql=sql&"rsssource nvarchar(255),"
	sql=sql&"rssorder int not null default 0,"
	sql=sql&"rsspubDate datetime"
	conn.execute"create table kingrss ("&sql&");"
	for i=1 to 100
		conn.execute "insert into kingrss (rssorder) values ("&i&")"
	next
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="botid int not null identity primary key,"
	sql=sql&"botname nvarchar(255),"
	sql=sql&"botnumber int not null default 1,"
	sql=sql&"botlastdate datetime,"'最后一次访问
	sql=sql&"botdate datetime"
	conn.execute"create table kingbot ("&sql&");"
 
 
 
 
	if king_dbtype=0 then
		conn.execute "create table notdown (notdown image)"
		sNotdown="<%response.redirect(""http://www.kingcms.com/"")%"&">"
		conn.execute "insert into notdown (notdown) values ('"&I1I(sNotdown)&"')" 
	end if
 
	conn.close
	set conn=nothing
 
 
	response.redirect request.servervariables("http_referer")
end sub
 
 
 
 
'I1I  我估计这个的作用是来转换字符的
function I1I(l1)
	dim l2,l3,i
	for i=1 to len(l1)
		l3=cstr(hex(asc(mid(l1,i,1))))
		if len(l3)=2 then
			l2=l2&chrb(clng("&"&chr(72)&trim(l3)))
		else
			l2=l2&chrb(clng("&"&chr(72))&mid(trim(l3),1,2))
			l2=l2&chrb(clng("&"&chr(72))&mid(trim(l3),3,2))
		end if
	next
	I1I=l2
end function
'createfolder 
sub createfolder(l1)
	on error resume next
	dim fs,l2,l3,l4,l5,I1,i
	set fs=Server.CreateObject(king_fso)
	I1=split(l1,"/")
	l4=ubound(I1)
	for i=0 to l4
		if I1(i)=".." then
			l3=l3&"../"
		else
			if l3&I1(i)<>"" then
				l5=server.mappath(l3&I1(i))
				if fs.folderexists(l5)=false then fs.createfolder(l5)'如果文件夹不存在就创建
				l3=l3&I1(i)&"/"
			else
				l3="/"
			end if
		end if
	next
	set fs=nothing
	if err.number<>0 then err.clear
end sub
'deletefile 
sub deletefile(l1)
	on error resume next
	dim fs,l2
	set fs=createobject(king_fso)
		l2=server.mappath(l1)
		if fs.fileexists(l2) then
			fs.deletefile(l2)
		end if
	set fs=nothing
	if err.number<>0 then err.clear
end sub
'isexist 
function isexistfile(l1)
  on error resume next
	dim fs,l2
	set fs=createObject(king_fso)
		l2=server.mappath(l1)
		isexistfile=fs.fileexists(l2)
	set fs=nothing
	if err.number<>0 then err.clear
end function
 
%>

标签：api, ASP, cms, CODE, CSS, DIV, google, html, KingCMS, ria, rss, Text, yahoo, 插件, 登录

flex登陆框实例

joel — Mon, 25 Aug 2008 07:50:42 +0000

本例子是实现了一个网页登录窗口的验证程序，具有验证码功能

"1.0" encoding="utf-8"?>
 xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" creationComplete="initApp()">
	>
	    
		 name="index">
		    
			 target="{panel1}"/>
			
			 position="lastChild">
				 x="231" y="174" text="欢迎来到主页" fontFamily="Georgia" fontSize="20" />
			>
		>
	>
	
		
		    import mx.controls.Alert;
		    private function initApp():void
		    {
		    	//显示校验码
		       lblCheckCode.text=GenerateCheckCode(); 
		    }
			private function loginHandle():void
			{
				//空的情况
				if(txtUsername.text==""||txtPassword.text=="")
				{
					Alert.show("请输入完整数据!");
				}
				else
				{
					//合法用户
					if(txtUsername.text=="Administrator"&&txtPassword.text=="123456"&&txtCheckCode.text.toLocaleLowerCase()==lblCheckCode.text.toLowerCase())
					{
						currentState="index";
					}
					//登录失败
					else  
					{
						//校验码错误
						if(txtCheckCode.text.toLowerCase()!=lblCheckCode.text.toLowerCase()) 
					    {
					       Alert.show("校验码错误!");
					       //重新生成校验码
					       lblCheckCode.text=GenerateCheckCode(); 
					    }
					    //用户名或密码错误
					    else  
						  Alert.show("用户名或密码错误!");
					}
				}
			}
			private function resetHandle():void
			{
				txtUsername.text="";
				txtPassword.text="";
				txtCheckCode.text="";
			}
 
            //生成随机码
			private function GenerateCheckCode():String
			{
				//初始化
				var ran:Number;
				var number:Number;
				var  code:String;
				var checkCode:String ="";
				//生成四位随机数
				for(var i:int=0; i<4; i++)
				{
					//Math.random生成数为类似为0.1234
					ran=Math.random();
					number =Math.round(ran*10000); 
					//如果是2的倍数生成一个数字
					if(number % 2 == 0)
					  //"0"的ASCII码是48  
					  code = String.fromCharCode(48+(number % 10)); 
					//生成一个字母
					else  
					  //"A"的ASCII码为65
					  code = String.fromCharCode(65+(number % 26)) ;
					checkCode += code;
				}
				return checkCode;
			}
 
		]]>
	
	 x="337.5" y="261" width="349" height="257" layout="absolute" title="用户登录" fontFamily="Georgia" fontSize="12" id="panel1">
		
		 x="41.5" y="33" text="用户名"/> 
		   
		 x="42.5" y="81" text="密码"/> 
		    
		 x="94.5" y="33" id="txtUsername"/>  
		
		 x="95.5" y="81" id="txtPassword" displayAsPassword="true"/>
		 
		 x="82.5" y="159" label="登录" id="btnLogin" click="loginHandle()"/> 
         
		 x="181.5" y="159" label="重置" id="btnReset" click="resetHandle()"/> 
		 
		 x="165.5" y="125" id="lblCheckCode" width="42.5" color="#377CD0"/>
		 x="216" y="123" label="看不清楚?" id="linkbtnReGenerate" click="lblCheckCode.text=GenerateCheckCode();" fontFamily="Georgia" fontSize="11"/>
		 x="39.5" y="123" text="校验码"/>
		 
		 x="96.5" y="121" id="txtCheckCode" width="61" maxChars="4"/>
	>
>

标签：CODE, FLEX, 例子, 登录

joel's FLEX blog » 登录

临沂汽车界–修改版

相关日志

KingCMS管理界面

"&king.lang("manage/title")&"

"&king.lang("log/title")&"

相关日志

登录KingCMS

相关日志

全新安装KingCMS

安装(Install)

相关日志

flex登陆框实例

相关日志