<%
' +----------------------------------------------------------------------
' | POPASP [ ASP MVC ]
' +----------------------------------------------------------------------
' | Copyright (c) 2016 http://popasp.com All rights reserved.
' +----------------------------------------------------------------------
' | Licensed ( http://www.apache.org/licenses/LICENSE-2.0 )
' +----------------------------------------------------------------------
' | Author: popasp <1737025626@qq.com>
' +----------------------------------------------------------------------
' 自动完成代码类
Class POPASP_AUTO
'控制器包含文件，如 app/Runtime/Class/IndexAction.inc.asp
Private inc_file
Private Sub Class_Initialize
inc_file = POP_MVC.appPath & "/Runtime/Class/" & POP_MVC.c & "Action.inc.asp"
End Sub
'自动化生成英文验证码
Public Property Get Verify( )
Verify = verify_( "popasp_verify" , "auto_verify.txt" )
End Property
'自动化生成中文验证码
Public Property Get cnVerify( )
cnVerify = verify_( "popasp_cnverify" , "auto_cnverify.txt" )
End Property
'下载的自动完成
'参数同POP_MVC.Download
'自动写入下载的控制器方法
'自动完成下载链接的输出
'比如：">下载excel
'使用该方法会使用一次md5，因此性能会降低大约8ms
Public Property Get Download( arg )
Dim method_name,content,bReload,download_path,inc_content,file_path
if not isArray( arg ) then
download_path = chr(34) & arg & chr(34)
file_path = POP_MVC.file.basename( arg )
else
download_path = "Array( """ & join( arg , """,""" ) & """ )"
file_path = POP_MVC.file.basename(arg(0))
if ubound( arg ) > 0 then file_path = arg(1)
end if
'方法名
method_name = "download_" & md5( download_path )
Download = URL__ & method_name
If Not is_empty( C_( "APP_DEBUG" ) ) Then POP_MVC.pushAuto( "生成下载链接" & " " & "下载“" & file_path & "”" )
'如果方法体已经写入Runtime/Class/IndexAction.Class.asp中，则不再往下执行
if method_exists( POP_MVC.c & "Action" , method_name ) then
Exit Property
end if
'是否重载
bReload = not ctrl_inc_method( method_name,inc_content )
'如果需要重载，则重新写入文件
if bReload then
content = POP_MVC.file_get_contents( POP_MVC.mvc_dir & "Tpl/auto_download.txt" )
content = Replace( content, "METHOD_NAME" , method_name )
content = Replace( content, "DOWNLOAD_PATH" , download_path )
content = "<" & "%" & VbCrLf & inc_content & content & VbCrLf & "%" & ">"
Call POP_MVC.file_put_contents( inc_file ,content )
If Not is_empty( C_( "APP_DEBUG" ) ) Then POP_MVC.pushAuto( "写入方法 " & method_name & " " & P_("pagetrace").readFile( inc_file , "查看文件" ) )
end if
End Property
'上传文件的自动完成
'自动生成上传文件popasp_upload_type.asp
'自动完成上传链接的生成
'参数：字符串或数组 Array( input_name(一般与数据表中的字段名相同),文件类型 )
Public Property Get Upload( arg )
Dim upfile_name,srcname,content,upload_types,input_name,token_key,token_value
upload_types = C_("UPLOAD_ALLOW_TYPES") '默认上传类型
input_name = "popasp_auto_upload" '默认
open_window_args = "width=500,height=240,left=200,top=50,status=yes,toolbar=no,menubar=no,location=no"
if isArray( arg ) then
input_name = arg( 0 )
if Ubound( arg ) > 0 then upload_types = arg(1)
if Ubound( arg ) > 1 then open_window_args = arg(2)
else
input_name = arg
end if
'如果指定upload_types为空，则取配置
if trim(upload_types) = "" then
upload_types = C_("UPLOAD_ALLOW_TYPES")
end if
'上传文件名auto_upload_types
upfile_name = "./__popasp__/popasp_upload_" & POP_MVC.String.reg_replace( upload_types , "" , "\W" , "gi" ) & ".asp"
token_key = POP_MVC.file.basename( Array(upfile_name ,1 ) )
token_value = Replace(timer() ,"." , "" )
'采用cookie进行token验证，更好的办法应该是session验证
Call P_( "cookie" ).set( token_key , token_value )
'html代码
Upload = " 上传"
If Not is_empty( C_( "APP_DEBUG" ) ) Then POP_MVC.pushAuto( "生成上传html " & Server.HtmlEncode( Upload ) )
'自动生成上传文件
srcname = POP_MVC.mvc_dir & "Tpl/auto_upload.txt"
if Not POP_MVC.file.isExists( upfile_name ) then
content = POP_MVC.file_get_contents( srcname )
content = Replace( content, "MVC_DIR" , "../" & POP_MVC.String.ltrim(POP_MVC.String.ltrim(POP_MVC.mvc_dir , "./" ) , ".\" ) )
content = Replace( content, "APP_PATH" , POP_MVC.realPath(POP_MVC.appPath) )
content = Replace( content, "UPLOAD_TYPES" , upload_types )
content = Replace( content, "INPUT_NAME" , input_name )
Call POP_MVC.file_put_contents( upfile_name , content )
If Not is_empty( C_( "APP_DEBUG" ) ) Then POP_MVC.pushAuto( "生成上传文件 " & upfile_name & P_("pagetrace").readFile( upfile_name , "查看文件" ) )
end if
End Property
'自动生成添加数据的html,界面粗糙，只可作为演示或者管理员临时修改数据使用
'使用: <%=P_("auto").htmlAdd(模型名)%>
'该方法中使用了 checkAdd 、dbAdd ，形成了一套完整的可前后台验证的添加数据模块
'如果模型名与表名不一致，而又传入的是表名，则起不到前后台验证效果
'生成的代码大致如下:
'
'
Public Property Get htmlAdd( model_name )
dim html,data,prikey,m
set m = M_(model_name).db
set data = m.getTableFields("")
if not is_empty( m.prikey ) then
data.remove( m.prikey )
end if
html = Me.checkAdd( model_name )
html = html & "" & vbcrlf
htmlAdd = html
End Property
'自动生成修改数据的html,界面粗糙，只可作为演示或者管理员临时修改数据使用
'使用: <%=P_("auto").htmlSave(表名或模型名)%>
'该方法中使用了 checkSave 、auto、 dbSave，形成了一套完整的可前后台验证的添加数据模块
'如果模型名与表名不一致，而又传入的是表名，则起不到前后台验证效果
'浏览器地址栏必须传入id，如 save.asp?id=1，否则无法定位修改哪条记录
'在html中该方法使用js进行数据自动填充
'生成的代码大致如下:
'
'
'
Public Function htmlSave( arg )
dim html,data,prikey,m,model_name,id
id = POP_MVC.get("id")
if not isArray( arg ) then
model_name = arg
else
model_name = arg(0)
if ubound( arg ) > 0 then id = arg(1)
end if
set m = M_(model_name).db
set data = m.getTableFields("")
if not is_empty( m.prikey ) then
data.remove( m.prikey )
end if
html = Me.checkSave( model_name )
html = html & Me.auto( model_name , id , "" )
html = html & "" & vbcrlf
html = html & "" & vbcrlf
htmlSave = html
End Function
'将数据库中的数据以表格的形式显示，表格的最后一行是分页，表格的最右行是操作（修改|删除）
'界面粗糙，只可作为演示或者管理员临时修改数据使用
'最好使用连贯操作db.where().field().page().htmlList( save_asp )来完成
public Function htmlList( ByRef rs , ByRef tableName , ByRef save_asp )
dim html,i,k1,k2,item,j,prikey
dim dict,page
page = P_( "POPASP_PAGE" )(rs).show
set dict = P_("POPASP_TEMPLATE").rs2dict(rs)
html = ""
i = 0
for each k1 in dict
set item = dict(k1)
if i = 0 then
html = html & VbCrLf & vbTab & ""
html = html & VbCrLf & vbTab & vbTab
for each k2 in item
if isEmpty( prikey ) then prikey = k2
html = html & "| " & k2 & " | "
next
html = html & "操作 | "
html = html & VbCrLf & vbTab & "
"
end if
if item(prikey) > 0 then
if i mod 2 = 1 then
html = html & VbCrLf & vbTab & ""
else
html = html & VbCrLf & vbTab & "
"
end if
html = html & VbCrLf & vbTab & vbTab
j = 0
for each k2 in item
if j = 0 then
html = html & "| " & item(k2) & " | "
else
html = html & "" & item(k2) & " | "
end if
j = j + 1
next
html = html & "修改 | 删除 | "
html = html & VbCrLf & vbTab & "
"
else
html = html & VbCrLf & vbTab & "| " & "该行数据已被删除" & " |
"
end if
i = i + 1
next
html = html & VbCrLf & vbTab & "| " & page & " |
"
set item = nothing
html = html & VbCrLf & "
"
htmlList = html
End Function
'数据模型添加数据时的js前端验证
'自动写入控制器相关方法
'自动完成链接的输出
'使用了db.validate_，如果模型名与表名不一致，而又传入的是表名，则起不到前端验证效果
'比如：在<%=P_("auto").checkAdd( Array( 模型名 , 方法名 ) )%>
'生成字符串为js，如
'在form表单中还须使用popasp_check