<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
body {
background:#D6DFF7;
font-size: 12px;
margin-top:0px;
margin-left: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
td { font-size: 12px}
input, textarea { font-size: 12px; border-width:1px}
select { font-size: 12px; border-width:1px}
span { font-size: 12px; position: static }
a:link { color: #000000;text-decoration:none}
a:visited { color: #000000;text-decoration:none}
a:hover { color: #003399}
a.highlight:link { color:red; text-decoration:none }
a.highlight:visited { color:red; text-decoration:none }
a.highlight:hover { color:red; }
a.thisclass:link { font-weight:bold; text-decoration:none }
a.thisclass:visited { font-weight:bold; text-decoration:none }
a.thisclass:hover { font-weight:bold; }
a.navlink:link {color: #000000; text-decoration:none}
a.navlink:visited {color: #000000; text-decoration:none }
a.navlink:hover {color: #003399; text-decoration:none }
.twidth { width: 760px }
.content { font-size: 14px;font-family:Tahoma,??ì?; line-height:140%; margin:5px 20px }
.aTitle { font-size: 15px;font-weight:bold; }
td.forumHeaderBackgroundAlternate
{
background-image: url(skin/default/admin_top_bg.gif);
background-color: #799AE1;
color:#000000
}
#TableTitleLink A:link, #TableTitleLink A:visited, #TableTitleLink A:active {
COLOR: #FFFFFF;
TEXT-DECORATION: none;
}
#TableTitleLink A:hover {
COLOR: #FFFFFF;
TEXT-DECORATION: underline;}
td.forumRow
{
background:#77ADFF; padding:3px
}
td.tablebody1
{
background:#F7FBFF; padding:3px
}
td.forumRowHighlight
{
background: #F3F3f3; padding:3px
}
.tableBorder
{
border: 0px #6595D6 solid;
background-color: #FFFFFF;
}
th
{
background-color: #4455aa;
background-image: url(image/admin_bg_1.gif);
color: white;
font-size: 12px;
font-weight:bold;
}
.style1 {color: #FFFFFF}
</style>
<script Language=vbscript>
function onload()
disp(1)
end function
''定义总体变量
dim outstr
outstr=""
''数据列表
dim listarr()
redim listarr(0)
class listd
public list_disptitle
public list_dispbd
public list_dispmaxsize
public list_mode
public list_hsname
public list_hsdata
public list_sqltable
public list_sqlbd
public list_sqlwhere
end class
''数据列表排序
dim listpxarr()
redim listpxarr(0)
class listpx
public list_zdname
public list_zdmode
end class
dim formarr()
redim formarr(0)
''定义表单校验对象
class formchk
public datado ''如果为是则进行数据与表单操作，如果为否则只进行编辑输出操作。
public formname ''表单名
public bdname ''字段名
public msgname ''删除行首空格
public deltopnull ''删除行首空格
public nullstr ''空字符
public nullstr_msg ''空字符提示
public numchk ''数字型判断
public numchk_msg ''数字型判断提示
public timechk ''时间型判断
public timechk_msg ''时间型判断提示
public numbs ''数字型范围判断
public numbs_msg ''数字型范围判断提示
public numbs_big ''数字型范围判断大于
public numbs_big_v ''数字型范围判断大于值
public numbs_sma ''数字型范围判断小于
public numbs_sma_v ''数字型范围判断小于值
public badstr ''脏话判断
public badstr_msg ''脏话判断提示
public badstr_str ''脏话判断提示判断字符
public email ''电子邮件
public email_msg ''电子邮件判断提示
public sfz ''身份证号
public sfz_msg ''身份证号判断提示
public biglennum ''超过指定长度
public biglennum_msg ''超过指定长度提示
public biglennum_v ''超过指定长度的数值
public biglennum_t ''超过指定长度的模式
public smalennum ''小于指定长度
public smalennum_msg ''小于指定长度提示
public smalennum_v ''小于指定长度的数值
public smalennum_t ''小于指定长度的模式
public cnstr ''是否为中文模式
public cnstr_msg ''非中文模式提示
public ennum ''是否为英文数字模式
public ennum_msg ''非英文数字模式提示
end class
sub al(value)
outstr=outstr&value+vbcrlf
end sub
sub sc()
outstr=""
al "<!--#include virtual=""/inc/obj.asp""-->"
al "<%"
if gd("sc_llgq") then
al "Response.Expires = 0"
al "Response.ExpiresAbsolute = Now() - 1"
al "Response.AddHeader ""Pragma"",""No-Cache"""
al "Response.AddHeader ""Cache-Control"",""Private"""
end if
''权限校验
if gd("sc_zxtj") then
al "if " & gd("sc_zxtj_str") & " then"
if document.all("sc_zxtj_cz")(0).checked then
sc_zxtj_tempstr="javascript:history.go(-1)"
else
sc_zxtj_tempstr= gd("sc_zxtj_tzdz")
end if
al "Response.Write ""<"&"script Language=Javascript>alert('" & gd("sc_zxtj_msg") & "');location.href = '" & sc_zxtj_tempstr & "';<"&"/script>"""
al "Response.end"
end if
al "MODE=Request(""MODE"")"
al "IF MODE="""" THEN MODE=""list"""
al gd("sc_idname") & "=Request(""" & gd("sc_idname") & """)"
''数据库调用输出代码
''ACCESS模式
if document.all("sc_dbtype")(0).checked then
if document.all("sc_accesstype")(0).checked then
al "Set " & gd("sc_connname") & " = Server.CreateObject(""ADODB.CONNECTION"")"
al gd("sc_connname") & ".open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gd("sc_accessstr1") & """"
end if
if document.all("sc_accesstype")(1).checked then
al "Set " & gd("sc_connname") & " = Server.CreateObject(""ADODB.CONNECTION"")"
al gd("sc_connname") & ".open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source="" & Server.MapPath(""" & gd("sc_accessstr2") & """)"
end if
end if
''SQL模式
if document.all("sc_dbtype")(1).checked then
al "Set " & gd("sc_connname") & " = Server.CreateObject(""ADODB.CONNECTION"")"
al gd("sc_connname") & ".open ""provider=sqloledb;data source=" & gd("sc_sqlip") & ";uid=" & gd("sc_sqlname") & ";pwd=" & gd("sc_sqlpass") & ";database=" & gd("sc_sqldata") & ";"""
end if
''ASP文件模式
if document.all("sc_dbtype")(2).checked then
if document.all("sql_aspdatatype")(0).checked then
al "<!--#include file=""" & gd("sc_aspdataname") & """ -->"
else
if len(gd("sc_aspdataname"))=0 or (left(gd("sc_aspdataname"),"1")<>"/" and left(gd("sc_aspdataname"),"1") <> "\") then
alert("数据库调用文件地址在当前模式下不允许为相对路径")
disp(3)
exit sub
end if
al "<!--#include virtual=""" & gd("sc_aspdataname") & """ -->"
end if
end if
''OBJ模式
if document.all("sc_dbtype")(3).checked then
al "set " & gd("sc_connname") & " = connobj"
end if
''输出大CASE
al "select case MODE"
if gd("sc_inst") or gd("sc_edit") then
if gd("sc_inst") and gd("sc_edit") then al "case ""inst"",""edit"""
if gd("sc_inst") and not gd("sc_edit") then al "case ""inst"""
if not gd("sc_inst") and gd("sc_edit") then al "case ""edit"""
'在输出表单项计算出表单变量的最大长度与字段名的最大长度
dim zdstrlen,formstrlen
zdstrlen=0
formstrlen=0
'for sc_i=1 to ubound(formarr)
'if formarr(sc_i).datado then
' if len(pydt(formarr(sc_i).formname)) then zdstrlen
'next
''输出表单输入项
for sc_i=1 to ubound(formarr)
sc_checkstr=""
'
'输出删除行首空格代码
if formarr(sc_i).deltopnull="1" then
sc_checkstr="ltrim"
end if
'输出空字符判断
if formarr(sc_i).nullstr="1" then
if sc_checkstr<>"" then sc_checkstr=sc_checkstr&"|"
sc_checkstr=sc_checkstr&"null"
end if
'输出数字型信息判断
if formarr(sc_i).numchk="1" then
if sc_checkstr<>"" then sc_checkstr=sc_checkstr&"|"
sc_checkstr=sc_checkstr&"num"
end if
'输出时间型信息判断
if formarr(sc_i).timechk="1" then
if sc_checkstr<>"" then sc_checkstr=sc_checkstr&"|"
sc_checkstr=sc_checkstr&"time"
end if
'输出数值范围信息判断
if formarr(sc_i).numbs="1" then
'numbs_msg
'public numbs_big ''数字型范围判断大于
'public numbs_big_v ''数字型范围判断大于值
'public numbs_sma ''数字型范围判断小于
'public numbs_sma_v ''数字型范�
