📄 act.um.asp
字号:
<%'前后台公用调用
Class ACTM
Public Function ACT_MXList(ModeID)'表现方式.输出模型
Dim RSObj
Set RSObj=ACTCMS.ACTEXE("Select * from TableUser_ACT Where ModeID=" & ModeID & " 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 & " order by OrderID desc,ID Desc")
Do While Not RS.Eof
ACT_MXEdit=ACT_MXEdit &"<tr><td class=""td_bg"" width=""10%"" align=""left""><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 type=""text"" name="""&RSObj("FieldName")&""" size="""&RSObj("width")&""" value="""&RS1(FieldName)&""">"& vbCrLf
Case "MultipleTextType"
EditField= "<textarea name="""&RSObj("FieldName")&""" style=""height:"&RSObj("height")&"px;width:"&RSObj("width")&"px;"">"&RS1(FieldName)&"</textarea>"& 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>"
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
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
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>"
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=""../Upload_Admin.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"
EditField= "<input name="""&RSObj("FieldName")&""" type=""text"" value="""&RS1(FieldName)&""" size=""40""><iframe src=""../Upload_Admin.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>"
Case "NumberType"
EditField= "<input type=""text"" name="""&RSObj("FieldName")&""" size="""&RSObj("width")&""" value="""&RS1(FieldName)&""">"
Case "RadomType"
EditField= "<input type=""text"" name="""&RSObj("FieldName")&""" size=""25"" value="""&RS1(FieldName)&""">"
Case else
EditField= "<font color=red>该字段错误</font>"
End Select
RS1.Close:Set RS1=Nothing
End Function
Function ListField(RSObj,id)
Dim i , TitleTypeArr,checked
Select Case RSObj("FieldType")
Case "TextType"
ListField= "<input type=""text"" name="""&RSObj("FieldName")&""" size="""&RSObj("width")&""" value="""&RSObj("Type_Default")&""">"
Case "MultipleTextType"
ListField= "<textarea name="""&RSObj("FieldName")&""" style=""height:"&RSObj("height")&"px;width:"&RSObj("width")&"px;"">"&RSObj("Type_Default")&"</textarea>"
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>"
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
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
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>"
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=""../Upload_Admin.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=""../Upload_Admin.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>"
Case "NumberType"
ListField= "<input type=""text"" name="""&RSObj("FieldName")&""" size="""&RSObj("width")&""" value="""&RSObj("Type_Default")&""">"
Case "RadomType"
ListField= "<input type=""text"" name="""&RSObj("FieldName")&""" size=""25"" value="""&ACTCMS.MakeRandom(20)&""">"
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 + -