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
%>