getannouncelist.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

		Response.Write "            </tr>"
		Response.Write "            <tr id=""MarqueeArea"" style=""display:none"">"
		Response.Write "              <td height=""30"" colspan=""2"">滚动宽度"
		Response.Write "                <input name=""Width"" class=""textbox""  onBlur=""CheckNumber(this,'宽度');"" type=""text"" id=""Width"" style=""width:50;"" value=""" & Width & """>"
		Response.Write "                像素 滚动高度"
		Response.Write "                <input name=""Height"" class=""textbox""  onBlur=""CheckNumber(this,'高度');"" type=""text"" id=""Height"" style=""width:50;"" value=""" & Height & """>"
		Response.Write "                像素 滚动速度"
		Response.Write "                <input name=""Speed"" class=""textbox""  onBlur=""CheckNumber(this,'速度');"" type=""text"" id=""Speed"" style=""width:50;"" value=""" & Speed & """></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr ID=""DisplayMode"">"
		Response.Write "              <td width=""50%"" height=""30"">显示方式"
						
						If ShowStyle = 1 Or ShowStyle = "" Then
						 Response.Write ("<input type=""radio"" name=""ShowStyle"" value=""1"" Checked>纵向 ")
						Else
						 Response.Write ("<input type=""radio"" name=""ShowStyle"" value=""1"">纵向 ")
						End If
						If ShowStyle = 2 Then
						 Response.Write ("<input type=""radio"" name=""ShowStyle"" value=""2"" Checked>横向 ")
						Else
						 Response.Write ("<input type=""radio"" name=""ShowStyle"" value=""2"">横向 ")
						End If
						
		Response.Write "              </td>"
		Response.Write "              <td>打开方式"
						
						If OpenType = 0 Then
						 Response.Write ("<input type=""radio"" onclick=""ChangeOpenType(0);"" name=""OpenType"" value=""0"" Checked>弹窗 ")
						Else
						 Response.Write ("<input type=""radio"" onclick=""ChangeOpenType(0);"" name=""OpenType"" value=""0"">弹窗 ")
						End If
						If OpenType = 1 Then
						 Response.Write ("<input type=""radio"" onclick=""ChangeOpenType(1);"" name=""OpenType"" value=""1"" Checked>普通窗口 ")
						Else
						 Response.Write ("<input type=""radio"" onclick=""ChangeOpenType(1);"" name=""OpenType"" value=""1"">普通窗口 ")
						End If
						
		Response.Write "                </td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">公告条数"
		Response.Write "                <input name=""ListNumber"" class=""textbox""  onBlur=""CheckNumber(this,'公告条数');"" type=""text"" id=""ListNumber"" style=""width:70%;"" value=""" & ListNumber & """></td>"
		Response.Write "              <td height=""30""><font color=""#FF0000"">设置为0时将列出所有公告</font></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""24"">标题字数 <input name=""TitleLen"" class=""textbox""  onBlur=""CheckNumber(this,'标题字数');"" type=""text"" id=""TitleLen"" style=""width:70%;"" value=""" & TitleLen & """></td>"
		Response.Write "              <td height=""24"">作者日期"
					   
					   If CInt(ShowAuthor) = 1 Then
						 Response.Write ("<input type=""radio"" name=""ShowAuthor"" value=""1"" Checked>显示 ")
						Else
						 Response.Write ("<input type=""radio"" name=""ShowAuthor"" value=""1"">显示 ")
						End If
						If CInt(ShowAuthor) = 0 Then
						 Response.Write ("<input type=""radio"" name=""ShowAuthor"" value=""0"" Checked>不显示 ")
						Else
						 Response.Write ("<input type=""radio"" name=""ShowAuthor"" value=""0"">不显示 ")
						End If
					   
		Response.Write "              </td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""24"">内容字数"
		Response.Write "                <input name=""ContentLen"" class=""textbox""  onBlur=""CheckNumber(this,'公告内容');"" type=""text"" id=""ContentLen"" style=""width:70%;"" value=""" & ContentLen & """></td>"
		Response.Write "              <td height=""24""><font color=""#FF0000"">设置为0时不显示公告内容</font></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td width=""50%"" height=""24"">导航类型"
		Response.Write "                <select name=""NavType"" class=""textbox"" style=""width:70%;"" onchange=""SetNavStatus()"">"
				  
				  If LabelID = "" 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=""24"">"
				
				If LabelID = "" Or CStr(NavType) = "0" Then
				  Response.Write ("<div align=""left"" id=""NavWord""> ")
				  Response.Write ("<input type=""text"" class=""textbox"" name=""TxtNavi"" style=""width:70%;"" value=""" & Navi & """> 支持HTML语法")
				  Response.Write ("</div>")
				  Response.Write ("<div align=""left"" id=NavPic style=""display:none""> ")
				  Response.Write ("<input type=""text"" class=""textbox"" readonly 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"" class=""textbox"" name=""TxtNavi"" style=""width:70%;""> 支持HTML语法")
				  Response.Write ("</div>")
				  Response.Write ("<div align=""left"" id=NavPic> ")
				  Response.Write ("<input type=""text"" class=""textbox"" readonly 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>"
		Response.Write "             <td height=""30"">标题样式"
		Response.Write "               <input name=""TitleCss"" class=""textbox"" type=""text"" id=""TitleCss"" style=""width:70%;"" value=""" & TitleCss & """></td>"
		Response.Write "              <td height=""30""><font color=""#FF0000"">已定义的CSS ,要有一定的网页设计基础</font></td>"
		Response.Write "            </tr>"
		Response.Write "          </table>"
		Response.Write "          </FIELDSET></td>"
		Response.Write "      </tr>"
		Response.Write "    </table>"
		Response.Write "           <table width=""96%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "             <tr>"
		Response.Write "                <td><p>&nbsp;</p>"
		Response.Write "                  <p>&nbsp;</p></td>"
		Response.Write "                <td width=""100""> <div align=""center"">"
		Response.Write "                    <input name=""SubmitBtn"" type=""button""  onClick=""InsertScriptFun()""  id=""Submitsss4""  value="" 确 定 "">"
		Response.Write "                  </div></td>"
		Response.Write "                <td width=""100""> <div align=""center"">"
		Response.Write "                    <input type=""button"" onClick=""window.close();"" name=""Submit2"" value="" 取 消 "">"
		Response.Write "                  </div></td>"
		Response.Write "                <td>&nbsp;</td>"
		Response.Write "              </tr>"
		Response.Write "            </table>"
		Response.Write "  </form>"
		Response.Write "  <table width=""90%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		Response.Write "    <tr>"
		Response.Write "      <td height=""20""><strong>附加说明:</strong><font color=""#0000FF"">(此标签整站通用)</font></td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height=""25""> 　　标签作用：显示网站公告列表</td>"
		Response.Write "    </tr>"
		Response.Write " </table>"
		Response.Write "</div>"
		Response.Write "</body>"
		Response.Write "</html>"
		
		
		Response.Write "<script>"
		Response.Write "ChangeArea(" & AnnounceType & ");"
		Response.Write "ChangeOpenType(" & OpenType & ");"
		Response.Write "</script>"
		End Sub
End Class
%>