addwordjs.asp

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

		 Response.Write "                   <td width=""50%"" height=""28"">"
		 
		Response.Write KSCMS.ReturnOpenTypeStr(OpenType)
		
		Response.Write "       </td>"
		Response.Write "                  </tr>"
		Response.Write "                  <tr>"
		Response.Write "                    <td width=""50%"" height=""28"">文章数量"
		Response.Write "                      <input name=""ArticleListNumber"" class=""textbox"" type=""text"" id=""ArticleListNumber""    style=""width:20%;"" onBlur=""CheckNumber(this,'文章数量');"" value=""" & ArticleListNumber & """>"
		Response.Write "                      取<font color=""#FF0000"">0</font>时,将列出全部文章</td>"
		Response.Write "                    <td width=""50%"" height=""28"">文章行距"
		Response.Write "                      <input name=""RowHeight"" class=""textbox"" type=""text"" id=""RowHeight""    style=""width:70%;"" onBlur=""CheckNumber(this,'文章行距');"" value=""" & RowHeight & """></td>"
		Response.Write "                  </tr>"
		Response.Write "                  <tr>"
		Response.Write "                    <td width=""50%"" height=""28"">标题字数"
		Response.Write "                      <input name=""TitleLen"" class=""textbox"" onBlur=""CheckNumber(this,'标题字数');"" type=""text""    style=""width:70%;"" value=""" & TitleLen & """>"
		Response.Write "                    </td>"
		Response.Write "                    <td width=""50%"" height=""28"">内容字数"
		Response.Write "                      <input name=""ContentLen"" class=""textbox"" type=""text"" id=""ContentLen""    style=""width:70%;"" onBlur=""CheckNumber(this,'内容字数');"" value=""" & ContentLen & """></td>"
		Response.Write "                  </tr>"
		Response.Write "                  <tr>"
		Response.Write "                    <td width=""50%"" height=""28"">导航类型"
		Response.Write "                      <select name=""NavType"" class=""textbox"" style=""width:70%;"" 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=""28"">"
				 If JSID = "" Or CStr(NavType) = "0" Then
				  Response.Write ("<div align=""left"" id=""NavWord""> ")
				  Response.Write ("<input type=""text"" class=""textbox"" name=""TxtNavi"" onBlur='CheckBadChar(this,""文字导航"");' style=""width:90%;"" value=""" & Navi & """> ")
				  Response.Write ("</div>")
				  Response.Write ("<div align=""left"" id=NavPic style=""display:none""> ")
				  Response.Write ("<input type=""text"" readonly class=""textbox"" style=""width:100"" 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"" class=""textbox"" name=""TxtNavi"" onBlur='CheckBadChar(this,""文字导航"");' style=""width:90%;""> ")
				  Response.Write ("</div>")
				  Response.Write ("<div align=""left"" id=NavPic> ")
				  Response.Write ("<input type=""text"" readonly class=""textbox"" style=""width:100"" 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=""28"">详情链接"
		 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=""28"">"
				  
				  If JSID = "" Or CStr(MoreLinkType) = "0" Then
					Response.Write ("<div align=""left"" id=""LinkWord""> ")
					Response.Write ("  <input type=""text"" class=""textbox"" onBlur='CheckBadChar(this,""链接字样"");' name=""MoreLinkWord"" style=""width:90%;"" value=""" & MoreLink & """>")
					Response.Write ("</div>")
					Response.Write ("<div align=""left"" id=""LinkPic"" style=""display:none""> ")
					Response.Write ("<input type=""text"" readonly class=""textbox"" style=""width:100"" 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"" onBlur='CheckBadChar(this,""链接字样"");' name=""MoreLinkWord"" style=""width:90%;"">")
				   Response.Write ("</div>")
				   Response.Write ("<div align=""left"" id=""LinkPic""> ")
				   Response.Write ("<input type=""text"" readonly class=""textbox"" style=""width:100"" 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=""28"" colspan=""2"">分隔图片"
		Response.Write "                      <input name=""SplitPic"" type=""text"" class=""textbox"" id=""SplitPic2"" style=""width:58%;"" 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=""SubmitPic"" 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=""28"">日期格式"
		Response.Write "                      <select  style=""width:70%;"" class=""textbox"" name=""DateRule"" id=""select"">"
		Response.Write KSCMS.ReturnDateFormat(DateRule)
		Response.Write "                      </select> </td>"
		Response.Write "                    <td height=""28""> <div align=""left"">日期对齐"
		Response.Write "                        <select name=""DateAlign"" id=""select4"" 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=""28"">标题样式"
		 Response.Write "                     <input name=""TitleCss"" type=""text"" class=""textbox"" id=""TitleCss"" onBlur=""CheckBadChar(this,'标题样式');"" style=""width:70%;"" value=""" & TitleCss & """></td>"
		 Response.Write "                   <td height=""28"">日期样式<font color=""#FF0000"">"
		 Response.Write "                     <input name=""DateCss"" type=""text"" class=""textbox""  id=""DateCss"" style=""width:70%;"" onBlur=""CheckBadChar(this,'日期样式');"" value=""" & DateCss & """>"
		 Response.Write "                     </font></td>"
		 Response.Write "                 </tr>"
		 Response.Write "                 <tr>"
		 Response.Write "                   <td height=""28"">内容样式"
		 Response.Write "                     <input name=""ContentCss"" type=""text"" class=""textbox"" id=""ContentCss"" style=""width:70%;"" onBlur=""CheckBadChar(this,'内容样式');"" value=""" & ContentCss & """></td>"
		 Response.Write "                   <td height=""28"">背景样式"
		 Response.Write "                      <input name=""BGCss"" type=""text"" class=""textbox"" id=""BGCss"" style=""width:70%;"" onBlur=""CheckBadChar(this,'背景样式');"" value=""" & BGCss & """></td>"
		 Response.Write "                 </tr>"
		 Response.Write "               </table></td>"
		Response.Write "              <td width=""31%"" align=""center""><table width=""90%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "                  <tr>"
		 Response.Write "                   <td height=""25"" align=""center""><strong>样式预览</strong></td>"
		Response.Write "                  </tr>"
		Response.Write "                  <tr>"
		Response.Write "                    <td height=""100%"" id=""ViewStylePicArea"">&nbsp;</td>"
		Response.Write "                  </tr>"
		Response.Write "                </table></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>"
		Response.Write "<script>"
		Response.Write "SelectPicStyle('" & WordCss & "');"
		Response.Write "</script>"
		End Sub
End Class
%>