www.gusucode.com > 云枫工作室企业网站源代码第五版 1.0 > docc/admin/include.asp
<script language="JavaScript"> function isDateString(sDate) { var iaMonthDays = [31,28,31,30,31,30,31,31,30,31,30,31] var iaDate = new Array(3) var year, month, day if (arguments.length != 1) return false iaDate = sDate.toString().split("-") if (iaDate.length != 3) return false if (iaDate[1].length > 2 || iaDate[2].length > 2) return false year = parseFloat(iaDate[0]) month = parseFloat(iaDate[1]) day=parseFloat(iaDate[2]) if (year < 1900 || year > 2100) return false if (((year % 4 == 0) && (year % 100 != 0)) || (year % 400 == 0)) iaMonthDays[1]=29; if (month < 1 || month > 12) return false if (day < 1 || day > iaMonthDays[month - 1]) return false return true } </script> <% function GetUpdateSql(TableName,str1,str2,bz,bzvalue)'返回一条用于数据更新的SQL语句 '表名,表单各项,数据库各项,条件数据项,条件数据项值 MM_fields = Split(str1, "|") MM_columns = Split(str2, "|") For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next MM_editQuery = "update " & TableName & " set " For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal Next MM_editQuery = MM_editQuery & " where " & bz & " = " & bzvalue GetUpdateSql = MM_editQuery end function function GetAddSql(TableName,str1,str2)'返回一条用于数据添加的SQL语句 '表名,表单各项,数据库各项 MM_fields = Split(str1, "|") MM_columns = Split(str2, "|") For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next Dim MM_tableValues Dim MM_dbValues MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & TableName & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" GetAddSql = MM_editQuery end function function GetReturnPath()'返回当前页面路径 strurl=Request.ServerVariables("URL") Strurl=split(strurl,"/") i=UBound(strurl,1) str_url=strurl(i)'得到当前页文件名 if Request.QueryString <> "" then str_url = str_url & "?" & Request.QueryString end if GetReturnPath = str_url end function function GetFileName()'返回当前页面名 strurl=Request.ServerVariables("URL") Strurl=split(strurl,"/") i=UBound(strurl,1) str_url=strurl(i)'得到当前页文件名 GetFileName = str_url end function %>