dmsc.rar_aspdelphi资源-CSDN文库

共2个文件

htm：1个

txt：1个

版权申诉

118 浏览量 2022-09-24 13:12:00 上传评论收藏 14KB RAR 举报

资源推荐

资源详情

资源评论

收起资源包目录

dmsc.rar （2个子文件）

公版dmsc.htm 57KB

www.pudn.com.txt 218B

<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 "" 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 "" 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 "" 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 ''数字型范�

评论收藏

内容反馈

版权申诉