?? act.u_m.asp
字號:
<%'前后臺公用調用
Class ACTM
Public Function ACT_MXList(ModeID)'表現方式.輸出模型
Dim RSObj
Set RSObj=ACTCMS.ACTEXE("Select * from TableUser_ACT Where ModeID=" & ModeID & " and ISType = 1 order by OrderID desc,ID Desc")
Do While Not RSObj.Eof
ACT_MXList=ACT_MXList &"<tr><td class=""td_bg"" align=""right"">"&RSObj("Title")&"：</td><td class=""td_bg"" align=""left"">"&ListField(RSObj,RSObj("id"))&"</td></tr>"
RSObj.MoveNext
Loop
RSObj.Close:Set RSObj=Nothing
' response.write ACT_MXList
End function
Public Function ACT_MXEdit(ModeID,ID)'表現方式.輸出模型
Dim RS
Set RS=ACTCMS.ACTEXE("Select * from TableUser_ACT Where ModeID=" & ModeID & " and ISType = 1 order by OrderID desc,ID Desc")
Do While Not RS.Eof
ACT_MXEdit=ACT_MXEdit &"<tr><td class=""td_bg"" width=""10%"" align=""right""><b>"&RS("Title")&"</b>：</td><td class=""td_bg"" align=""left""> "&EditField(RS,ModeID,ID)&"</td></tr>"
RS.MoveNext
Loop
RS.Close:Set RS=Nothing
response.write ACT_MXEdit
End function
Function Act_U_MX_Arr(ModeID)'返回模型數組
Dim Rs
Set Rs=ACTCMS.ACTEXE("Select FieldName,Title,IsNotNull,FieldType from TableUser_ACT Where ModeID=" & ModeID & " order by OrderID desc,ID Desc")
If Not Rs.Eof Then
Act_U_MX_Arr=Rs.GetRows(-1)
Else
Act_U_MX_Arr=""
End If
Rs.Close:Set Rs=Nothing
End Function
Function EditField(RSObj,ModeID,UserID)
Dim i , IsNotNull,TitleTypeArr,checked,rs1,FieldName
Set RS1=ACTCMS.ACTEXE("Select * from "&ACTCMS.actexe("select ModeTable from ModeUser_Act where ModeID ="&ModeID&"")(0)&" Where UserID="&UserID&"")
If rsobj("IsNotNull")="0" Then
IsNotNull=" <font color=red title=""必填"">*</font> "&rsobj("Description")
Else
IsNotNull=" "&rsobj("Description")
End If
FieldName= RSObj("FieldName")
Select Case RSObj("FieldType")
Case "TextType"
EditField= "<input title="""&RSObj("Description")&""" type=""text"" name="""&RSObj("FieldName")&""" size="""&RSObj("width")&""" value="""&RS1(FieldName)&""">"&IsNotNull& vbCrLf
Case "MultipleTextType"
EditField= "<textarea title="""&RSObj("Description")&""" name="""&RSObj("FieldName")&""" style=""height:"&RSObj("height")&"px;width:"&RSObj("width")&"px;"">"&RS1(FieldName)&"</textarea>"&IsNotNull& vbCrLf
Case "MultipleHtmlType"
EditField="<textarea rows=""1"" cols=""1"" name="""&RSObj("FieldName")&""" id="""&RSObj("FieldName")&""" style=""display:none;"">"&RS1(FieldName)&"</textarea>"& vbCrLf & _
"<script type=""text/javascript"" language=""JavaScript"">"& vbCrLf & _
"{"& vbCrLf & _
"var sBasePath = """&Actcms.ActSys&"editor/fckeditor/"""& vbCrLf & _
"var oFCKeditor = new FCKeditor('"&RSObj("FieldName")&"');"& vbCrLf & _
"oFCKeditor.BasePath = sBasePath;"& vbCrLf & _
"oFCKeditor.ToolbarSet = '"&RSObj("Content")&"';"& vbCrLf & _
"oFCKeditor.Width = '"&RSObj("width")&"px';"& vbCrLf & _
"oFCKeditor.Height = '"&RSObj("height")&"px' ;"& vbCrLf & _
"oFCKeditor.ReplaceTextarea() ;"& vbCrLf & _
"}"& vbCrLf & _
"</script>"
Case "RadioType"
TitleTypeArr=Split(RSObj("Content"), vbCrLf)
If RSObj("Type_Type")=0 Then
EditField= EditField&"<select name="""&RSObj("FieldName")&""">"
For I = 0 To UBound(TitleTypeArr)
If RS1(FieldName)=TitleTypeArr(I) Then checked="selected" Else checked=""
EditField = EditField & "<option value='" & TitleTypeArr(I) & "' "&checked&">" & TitleTypeArr(I) & "</option>"& vbCrLf
Next
EditField= EditField&" </select>"&IsNotNull
Else
For I = 0 To UBound(TitleTypeArr)
If RS1(FieldName)=TitleTypeArr(I) Then checked="checked" Else checked=""
EditField = EditField &"<label for="""&RSObj("FieldName")&i&"""> <input id="""&RSObj("FieldName")&i&""" type=""radio"" name="""&RSObj("FieldName")&""" value="""&TitleTypeArr(I)&""" "&checked&" />"&TitleTypeArr(I)&" </label>"& vbCrLf
Next
EditField = EditField&IsNotNull
End If
Case "ListBoxType"
TitleTypeArr=Split(RSObj("Content"), vbCrLf)
If RSObj("Type_Type")=0 Then
For I = 0 To UBound(TitleTypeArr)
If ACTCMS.FoundInArr(RS1(FieldName),TitleTypeArr(I),",")=true Then checked="checked" Else checked=""
EditField = EditField &"<label for="""&RSObj("FieldName")&i&"""> <input id="""&RSObj("FieldName")&i&""" type=""checkbox"" name="""&RSObj("FieldName")&""" value="""&TitleTypeArr(I)&""" "&checked&" />"&TitleTypeArr(I)&" </label>"& vbCrLf
Next
EditField = EditField&IsNotNull
Else
EditField= EditField&"<select size=""4"" style=""width:300px;height:126px"" name="""&RSObj("FieldName")&""" multiple>"
For I = 0 To UBound(TitleTypeArr)
If ACTCMS.FoundInArr(RS1(FieldName),TitleTypeArr(I),",")=true Then checked="selected" Else checked=""
EditField = EditField & "<option value=""" & TitleTypeArr(I) & """ "&checked&">" & vbCrLf& TitleTypeArr(I) & "</option>"& vbCrLf
Next
EditField= EditField&" </select>"&IsNotNull
End If
Case "DateType"
EditField= EditField&"<input name="""&RSObj("FieldName")&""" type=""text"" id="""&RSObj("FieldName")&""" value='"&RS1(FieldName)&"' onfocus='WdatePicker()' >"&IsNotNull
Case "PicType"
EditField= "<input name="""&RSObj("FieldName")&""" type=""text"" value="""&RS1(FieldName)&""" size=""40""><iframe src=""../User/Upload_user.asp?ModeID="&RSObj("ModeID")&"&instr=1&instrname="&RSObj("FieldName")&"&YNContent=0&instrct=content"" name=""image"" width='75%' height=""25"" scrolling=""No"" frameborder=""0"" id=""image""></iframe>"&IsNotNull
Case "FileType"
EditField= "<input name="""&RSObj("FieldName")&""" type=""text"" value="""&RS1(FieldName)&""" size=""40""><iframe src=""../User/Upload_user.asp?ModeID="&RSObj("ModeID")&"&instr=1&instrname="&RSObj("FieldName")&"&YNContent=0&file=yes&instrct=content"" name=""image"" width='75%' height=""25"" scrolling=""No"" frameborder=""0"" id=""image""></iframe>"&IsNotNull
Case "NumberType"
EditField= "<input type=""text"" name="""&RSObj("FieldName")&""" size="""&RSObj("width")&""" value="""&RS1(FieldName)&""">"&IsNotNull
Case "RadomType"
EditField= "<input type=""text"" name="""&RSObj("FieldName")&""" size=""25"" value="""&RS1(FieldName)&""">"&IsNotNull
Case else
EditField= "<font color=red>該字段錯誤</font>"
End Select
RS1.Close:Set RS1=Nothing
End Function
Function ListField(RSObj,id)
Dim i , TitleTypeArr,checked,IsNotNull
If rsobj("IsNotNull")="0" Then
IsNotNull=" <font color=red title=""必填"">*</font> "&rsobj("Description")
Else
IsNotNull=" "&rsobj("Description")
End If
Select Case RSObj("FieldType")
Case "TextType"
ListField= "<input type=""text"" title="""&RSObj("Description")&""" name="""&RSObj("FieldName")&""" size="""&RSObj("width")&""" value="""&RSObj("Type_Default")&""">"&IsNotNull
Case "MultipleTextType"
ListField= "<textarea title="""&RSObj("Description")&""" name="""&RSObj("FieldName")&""" style=""height:"&RSObj("height")&"px;width:"&RSObj("width")&"px;"">"&RSObj("Type_Default")&"</textarea>"&IsNotNull
Case "MultipleHtmlType"
ListField="<textarea rows=""1"" cols=""1"" name="""&RSObj("FieldName")&""" id="""&RSObj("FieldName")&""" style=""display:none;"">"&RSObj("Type_Default")&"</textarea>"& vbCrLf & _
"<script type=""text/javascript"" language=""JavaScript"">"& vbCrLf & _
"{"& vbCrLf & _
"var sBasePath = """&Actcms.ActSys&"editor/fckeditor/"""& vbCrLf & _
"var oFCKeditor = new FCKeditor('"&RSObj("FieldName")&"');"& vbCrLf & _
"oFCKeditor.BasePath = sBasePath;"& vbCrLf & _
"oFCKeditor.ToolbarSet = '"&RSObj("Content")&"';"& vbCrLf & _
"oFCKeditor.Width = '"&RSObj("width")&"px';"& vbCrLf & _
"oFCKeditor.Height = '"&RSObj("height")&"px' ;"& vbCrLf & _
"oFCKeditor.ReplaceTextarea() ;"& vbCrLf & _
"}"& vbCrLf & _
"</script>"
Case "RadioType"
TitleTypeArr=Split(RSObj("Content"), vbCrLf)
If RSObj("Type_Type")=0 Then
ListField= ListField&"<select name="""&RSObj("FieldName")&""">"
For I = 0 To UBound(TitleTypeArr)
If RSObj("Type_Default")=TitleTypeArr(I) Then checked="selected" Else checked=""
ListField = ListField & "<option value='" & TitleTypeArr(I) & "' "&checked&">" & TitleTypeArr(I) & "</option>"& vbCrLf
Next
ListField= ListField&" </select>"&IsNotNull
Else
For I = 0 To UBound(TitleTypeArr)
If RSObj("Type_Default")=TitleTypeArr(I) Then checked="checked" Else checked=""
ListField = ListField &"<label for="""&RSObj("FieldName")&i&"""> <input id="""&RSObj("FieldName")&i&""" type=""radio"" name="""&RSObj("FieldName")&""" value="""&TitleTypeArr(I)&""" "&checked&" />"&TitleTypeArr(I)&" </label>"& vbCrLf
Next
ListField = ListField&IsNotNull
End If
Case "ListBoxType"
TitleTypeArr=Split(RSObj("Content"), vbCrLf)
If RSObj("Type_Type")=0 Then
For I = 0 To UBound(TitleTypeArr)
If RSObj("Type_Default")=TitleTypeArr(I) Then checked="checked" Else checked=""
ListField = ListField &"<label for="""&RSObj("FieldName")&i&"""> <input id="""&RSObj("FieldName")&i&""" type=""checkbox"" name="""&RSObj("FieldName")&""" value="""&TitleTypeArr(I)&""" "&checked&" />"&TitleTypeArr(I)&" </label>"& vbCrLf
Next
ListField = ListField&IsNotNull
Else
ListField= ListField&"<select size=""4"" style=""width:300px;height:126px"" name="""&RSObj("FieldName")&""" multiple>"
For I = 0 To UBound(TitleTypeArr)
If RSObj("Type_Default")=TitleTypeArr(I) Then checked="checked" Else checked=""
ListField = ListField & "<option value=""" & TitleTypeArr(I) & """ "&checked&">" & vbCrLf& TitleTypeArr(I) & "</option>"& vbCrLf
Next
ListField= ListField&" </select>"&IsNotNull
End If
Case "DateType"
ListField= ListField&"<input name="""&RSObj("FieldName")&""" type=""text"" id="""&RSObj("FieldName")&""" size=""24"" value='' onfocus='WdatePicker()' >"&IsNotNull
Case "PicType"
ListField= "<input name="""&RSObj("FieldName")&""" type=""text"" value="""" size=""40""><iframe src=""../User/Upload_user.asp?ModeID=1&instr=1&instrname="&RSObj("FieldName")&"&YNContent=0&instrct=content"" name=""image"" width='75%' height=""25"" scrolling=""No"" frameborder=""0"" id=""image""></iframe>"
Case "FileType"
ListField= "<input name="""&RSObj("FieldName")&""" type=""text"" value="""" size=""40""><iframe src=""../User/Upload_user.asp?ModeID=1&instr=1&instrname="&RSObj("FieldName")&"&YNContent=0&file=yes&instrct=content"" name=""image"" width='75%' height=""25"" scrolling=""No"" frameborder=""0"" id=""image""></iframe>"&IsNotNull
Case "NumberType"
ListField= "<input type=""text"" name="""&RSObj("FieldName")&""" size="""&RSObj("width")&""" value="""&RSObj("Type_Default")&""">"&IsNotNull
Case "RadomType"
ListField= "<input type=""text"" name="""&RSObj("FieldName")&""" size=""25"" value="""&ACTCMS.MakeRandom(20)&""">"&IsNotNull
Case else
ListField= "<font color=red>該字段錯誤</font>"
End Select
End Function
End Class
Dim U_M
Set U_M = New ACTM
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -