addclassjs.asp

科汛网站管理系统(KeSion CMS) v2.2 是科汛网络基于ASP技术开发的网站管理系统

			Response.Write "              <td width=""50%"" height=""25"">标题字数"
			Response.Write "                <input name=""TitleLen"" onBlur=""CheckNumber(this,'标题字数');"" type=""text""  class=""textbox""  style=""width:70%;"" value=""" & TitleLen & """>"
			Response.Write "              </td>"
			Response.Write "              <td width=""50%"" height=""25"">排序方法"
			Response.Write "                <select name=""ArticleSort"" class=""textbox"">"
						 If ArticleSort = "ID Desc" Then
						Response.Write ("<option value='ID Desc' selected>文章ID(降序)</option>")
						Else
						Response.Write ("<option value='ID Desc'>文章ID(降序)</option>")
						End If
						If ArticleSort = "ID Asc" Then
						Response.Write ("<option value='ID Asc' selected>文章ID(升序)</option>")
						Else
						Response.Write ("<option value='ID Asc'>文章ID(升序)</option>")
						End If
						If ArticleSort = "AddDate Asc" Then
						Response.Write ("<option value='AddDate Asc' selected>更新时间(升序)</option>")
						Else
						Response.Write ("<option value='AddDate Asc'>更新时间(升序)</option>")
						End If
						If ArticleSort = "AddDate Desc" Then
						 Response.Write ("<option value='AddDate Desc' selected>更新时间(降序)</option>")
						Else
						 Response.Write ("<option value='AddDate Desc'>更新时间(降序)</option>")
						End If
						If ArticleSort = "Hits Asc" Then
						 Response.Write ("<option value='Hits Asc' selected>点击数(升序)</option>")
						Else
						 Response.Write ("<option value='Hits Asc'>点击数(升序)</option>")
						End If
						If ArticleSort = "Hits Desc" Then
						  Response.Write ("<option value='Hits Desc' selected>点击数(降序)</option>")
						Else
						  Response.Write ("<option value='Hits Desc'>点击数(降序)</option>")
						End If
				   
			 Response.Write "               </select></td>"
			 Response.Write "           </tr>"
			 Response.Write "           <tr>"
			 Response.Write "             <td width=""50%"" height=""25"">排列列数"
			 Response.Write "               <input type=""text"" onBlur=""CheckNumber(this,'排列列数');"" class=""textbox"" style=""width:70%;"" value=""" & ColNumber & """ name=""ColNumber"">"
			 Response.Write "             </td>"
			 Response.Write "             <td width=""50%"" height=""25"">显示图文标志"
					   
					   If JSID = "" Then
						Response.Write ("<input name=""ShowPicFlag"" type=""radio"" value=""true"">是")
						Response.Write ("<input name=""ShowPicFlag"" type=""radio"" value=""false"" checked>否")
					  Else
						 If ShowPicFlag = True Then
						  Response.Write ("<input type=""radio"" value=""true"" name=""ShowPicFlag"" checked>是")
						  Response.Write ("<input type=""radio"" value=""false"" name=""ShowPicFlag"">否")
						 Else
						  Response.Write ("<input type=""radio"" value=""true"" name=""ShowPicFlag"">是")
						  Response.Write ("<input type=""radio"" value=""false"" name=""ShowPicFlag"" checked>否")
						 End If
					  End If
				   
			Response.Write "               　</td>"
			Response.Write "            </tr>"
			Response.Write "            <tr>"
			Response.Write "              <td width=""50%"" height=""25"">导航类型"
			Response.Write "                <select name=""NavType"" style=""width:70%;"" class=""textbox"" onchange=""SetNavStatus()"">"
					   
					   If JSID = "" Or CStr(NavType) = "0" Then
						Response.Write ("<option value=""0"" selected>文字导航</option>")
						Response.Write ("<option value=""1"">图片导航</option>")
					   Else
						Response.Write ("<option value=""0"">文字导航</option>")
						Response.Write ("<option value=""1"" selected>图片导航</option>")
					   End If
					   
			Response.Write "                </select></td>"
			Response.Write "              <td width=""50%"" height=""25"">"
					  
					If JSID = "" Or CStr(NavType) = "0" Then
					  Response.Write ("<div align=""left"" id=""NavWord""> ")
					  Response.Write ("<input type=""text"" name=""TxtNavi"" class=""textbox"" style=""width:70%;"" value=""" & Navi & """> 支持HTML语法")
					  Response.Write ("</div>")
					  Response.Write ("<div align=""left"" id=NavPic style=""display:none""> ")
					  Response.Write ("<input type=""text"" readonly class=""textbox"" style=""width:120;"" id=""NaviPic"" name=""NaviPic"">")
					  Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.NaviPic);"" name=""Submit3"" value=""选择图片..."">")
					  Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.NaviPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
					  Response.Write ("</div>")
					Else
					  Response.Write ("<div align=""left"" id=""NavWord"" style=""display:none""> ")
					  Response.Write ("<input type=""text"" name=""TxtNavi"" class=""textbox"" style=""width:70%;""> 支持HTML语法")
					  Response.Write ("</div>")
					  Response.Write ("<div align=""left"" id=NavPic> ")
					  Response.Write ("<input type=""text"" readonly class=""textbox"" style=""width:120;"" id=""NaviPic"" name=""NaviPic"" value=""" & Navi & """>")
					  Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.NaviPic);"" name=""Submit3"" value=""选择图片..."">")
					  Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.NaviPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
					  Response.Write ("</div>")
					End If
					
			Response.Write "              </td>"
			Response.Write "            </tr>"
			Response.Write "            <tr id=""MoreLinkArea"">"
			Response.Write "              <td width=""50%"" height=""25"">更多链接"
			Response.Write "                <select name=""MoreLinkType"" style=""width:70%;"" class=""textbox"" onchange=""SetMoreLinkStatus()"">"
					   
					   If JSID = "" Or CStr(MoreLinkType) = "0" Then
						Response.Write ("<option value=""0"" selected>文字链接</option>")
						Response.Write ("<option value=""1"">图片链接</option>")
					   Else
						Response.Write ("<option value=""0"">文字链接</option>")
						Response.Write ("<option value=""1"" selected>图片链接</option>")
					   End If
					   
			Response.Write "                </select></td>"
			Response.Write "              <td width=""50%"" height=""25"">"
					
					If JSID = "" Or CStr(MoreLinkType) = "0" Then
						Response.Write ("<div align=""left"" id=""LinkWord""> ")
						Response.Write ("  <input type=""text"" class=""textbox"" name=""MoreLinkWord"" style=""width:70%;"" value=""" & MoreLink & """>")
						Response.Write ("</div>")
						Response.Write ("<div align=""left"" id=""LinkPic"" style=""display:none""> ")
						Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""MoreLinkPic"" name=""MoreLinkPic"">")
						Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.MoreLinkPic);"" name=""Submit3"" value=""选择图片..."">")
						Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.MoreLinkPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
						Response.Write ("</div>")
					Else
					   Response.Write ("<div align=""left"" id=""LinkWord"" style=""display:none""> ")
					   Response.Write ("<input type=""text"" class=""textbox"" name=""MoreLinkWord"" style=""width:70%;"">")
					   Response.Write ("</div>")
					   Response.Write ("<div align=""left"" id=""LinkPic""> ")
					   Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""MoreLinkPic"" name=""MoreLinkPic"" value=""" & MoreLink & """>")
					   Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.MoreLinkPic);"" name=""Submit3"" value=""选择图片..."">")
					   Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.MoreLinkPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
					   Response.Write ("</div>")
					End If
					
			Response.Write "              </td>"
			Response.Write "            </tr>"
			Response.Write "            <tr>"
			Response.Write "              <td height=""25"" colspan=""2"">分隔图片"
			Response.Write "                <input name=""SplitPic"" class=""textbox"" type=""text"" id=""SplitPic"" style=""width:61%;"" value=""" & SplitPic & """ readonly>"
			Response.Write "                <input name=""SubmitPic"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.SplitPic);"" type=""button"" id=""SubmitPic2"" value=""选择图片..."">"
			Response.Write "                <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.SplitPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>"
			Response.Write "               </td>"
			Response.Write "            </tr>"
			Response.Write "            <tr>"
			Response.Write "              <td height=""25"">日期格式"
			Response.Write "                <select  style=""width:70%;"" class=""textbox"" name=""DateRule"" id=""select2"">"
			Response.Write KSCMS.ReturnDateFormat(DateRule)
			Response.Write "                </select> </td>"
			Response.Write "              <td height=""25"">"
			Response.Write "                <div align=""left"">日期对齐"
			Response.Write "                  <select name=""DateAlign"" id=""DateAlign"" class=""textbox"" style=""width:70%;"">"
						
						If JSID = "" Or CStr(DateAlign) = "left" Then
						 Str = " selected"
						Else
						 Str = ""
						End If
						 Response.Write ("<option value=""left""" & Str & ">左对齐</option>")
						If CStr(DateAlign) = "center" Then
						 Str = " selected"
						Else
						 Str = ""
						End If
						 Response.Write ("<option value=""center""" & Str & ">居中对齐</option>")
						If CStr(DateAlign) = "right" Then
						 Str = " selected"
						Else
						 Str = ""
						End If
						 Response.Write ("<option value=""right""" & Str & ">右对齐</option>")
						
			Response.Write "                  </select>"
			Response.Write "                </div></td>"
			Response.Write "            </tr>"
			Response.Write "            <tr>"
			Response.Write "              <td height=""25"">标题样式"
			Response.Write "                <input name=""TitleCss"" type=""text"" class=""textbox"" id=""TitleCss"" style=""width:70%;"" value=""" & TitleCss & """></td>"
			Response.Write "              <td height=""25"">日期样式"
			Response.Write "                <input name=""DateCss"" class=""textbox"" type=""text"" id=""DateCss"" style=""width:70%;"" value=""" & DateCss & """></td>"
			Response.Write "            </tr>"
			Response.Write "          </table>"
			Response.Write "         </FIELDSET></td>"
			Response.Write "      </tr>"
			Response.Write "    </table>"
			Response.Write "    </form>"
			Response.Write "</div>"
			Response.Write "</body>"
			Response.Write "</html>"
			End Sub
End Class
%>