template_add.asp

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

			  Case 8999
			  Response.Write "音乐频道首页模板"
			  Case 8998
			  Response.Write "歌手页模板"
			  Case 8997
			  Response.Write "歌手专辑列表模板"
			  Case 8996
			  Response.Write "最终专辑信息页模板"
           Case 1
			Response.Write " 频道首页模板"
		   Case 2
			Response.Write " 栏目模板"
		   Case 3
		   Response.Write " 内容页模板"
		   Case 4
		   Response.Write " 专题首页模板"
		   Case 5
		   Response.Write " 频道专题汇总模板"
		   Case 6
		   Response.Write " 专题页模板"
		  Case Else
			Response.Write " 未知类型"
		End Select
		 Response.Write "</font>     </strong></td><td id=""FsoFileNameArea"" style=""display:none""><strong>生成的文件名：</strong><input type=""text"" name=""FsoFileName"" size=""12"" value=""" & FsoFileName & """>"
		 Response.Write "<strong>扩展名：</strong>"
		Response.Write "                  <select name='fnametype' id='fnametype'>"
		If FnameType = ".html" Then
		 Response.Write "<option value='.html' selected>.html</option>"
		Else
		 Response.Write "<option value='.html'>.html</option>"
		End If
		If FnameType = ".htm" Then
		 Response.Write "<option value='.htm' selected>.htm</option>"
		Else
		 Response.Write "<option value='.htm'>.htm</option>"
		End If
		If FnameType = ".shtm" Then
		 Response.Write "<option value='.shtm' selected>.shtm</option>"
		Else
		 Response.Write "<option value='.shtm'>.shtm</option>"
		End If
		If FnameType = ".shtml" Then
		 Response.Write "<option value='.shtml' selected>.shtml</option>"
		Else
		 Response.Write "<option value='.shtml'>.shtml</option>"
		End If
		If FnameType = ".asp" Then
		 Response.Write "<option value='.asp' selected>.asp</option>"
		Else
		 Response.Write "<option value='.asp'>.asp</option>"
		End If
		 Response.Write "</td>"
		 Response.Write "   </tr>"
		 Response.Write "   <tr>"
		 Response.Write "     <td height=""16""  colspan=""2"" class=""ToolBarButtonLine""><strong>模板名称："
		 Response.Write "       <input name=""TemplateName"" type=""text"" id=""TemplateName"" size=""55"" Value=""" & TemplateName & """ style=""border-style: solid; border-width: 1"">"
		 Response.Write "       　　　　<span id=""topbuttonarea""><input type=""button"" onclick=""settemplatearea(0)"" value=""代码模式""><input type=""button"" onclick=""settemplatearea(1)"" value=""可视化模式""><input type=""button"" value=""复制代码"" onclick=""copy()""></span></td>"
		 Response.Write "   </tr>"
		 response.write "</table>"
		 Response.Write "<table  width='100%' height=""350"" style=""background-color:#EEEEEE;padding-right: 11px;padding-left: 11px;padding-top: 2px;padding-bottom: 0px;"" border='0' align='center' cellpadding='0' cellspacing='0'>"
		 Response.Write "   <tr>"
		 Response.Write "	<td valign=""top"" colspan=""2"" id=""toplabelarea"">"
		 Response.Write "     <Table border=""0"" width=""100%"" height=""20"" cellpadding='0' cellspacing='0'>"
		 Response.Write "       <Tr><Td align=center><img src=""../images/label0.gif"" border=""0"" valign=""absmiddle""><a href=""javascript:LabelInsertCode();""><strong><u><font color=#ff6600>点击这里选择标签</font></u></strong></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;常用标签=><a href=""javascript:LabelInsertCode('{$GetInstallDir}');"" title=""显示网站安装路径""><img src=""../images/label0.gif"" border=""0""></a> <a href=""javascript:LabelInsertCode('{$GetSiteUrl}');"" title=""显示网站URL""><img src=""../images/label0.gif"" border=""0""></a> <a href=""javascript:LabelInsertCode('{$GetSiteTitle}');"" title=""显示网站标题""><img src=""../images/label0.gif"" border=""0""></a> <a href=""javascript:LabelInsertCode('{$GetSiteName}');"" title=""显示网站名称""><img src=""../images/label0.gif"" border=""0""></a>  <a href=""javascript:LabelInsertCode('{$GetCopyRight}');"" title=""显示版权信息""><img src=""../images/label0.gif"" border=""0""></a> <a href=""javascript:LabelInsertCode('{$GetClassName}');"" title=""显示当前栏目（频道)名称""><img src=""../images/label0.gif"" border=""0""></a> <a href=""javascript:InsertFunctionLabel('HtmlLabel/KS_Logo.html',250,130);"" title=""显示网站Logo(带参数)""><img src=""../images/label1.gif"" border=""0""></a>|<a href=""javascript:LabelInsertCode('{$JS_Time1}');"" title=""时间特效(样式:2006年4月8日)""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$JS_Time2}');"" title=""时间特效(样式:2006年4月8日 星期六)""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$JS_Time3}');"" title=""时间特效(样式:2006年4月8日 星期六 丙戌年 三月十一)""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$JS_Language}');"" title=""简繁转换""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$JS_Collection}');"" title=""加入收藏""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$JS_ContactWebMaster}');"" title=""联系站长""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$JS_GoBack}');"" title=""返回上一页""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$JS_WindowClose}');"" title=""关闭窗口""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$JS_NoIframe}');"" title=""页面不被别人放在框架中""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$JS_NoCopy}');"" title=""防止网页信息被复制""><img src=""../images/JS0.gif"" border=""0""></a><a href=""javascript:InsertFunctionLabel('HtmlLabel/KS_Status1.html',550,150);"" title=""状态栏打字效果""><img src=""../images/JS1.gif"" border=""0""></a><a href=""javascript:InsertFunctionLabel('HtmlLabel/KS_Status2.html',550,150);"" title=""文字在状态栏上从右往左循环显示""><img src=""../images/JS1.gif"" border=""0""></a><a href=""javascript:InsertFunctionLabel('HtmlLabel/KS_Status3.html',550,150);"" title=""文字在状态栏上打字之后移动消失""><img src=""../images/JS1.gif"" border=""0""></a>|<a href=""javascript:LabelInsertCode('{$Rss}');"" title=""Rss标签显示""><img src=""../images/rss.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$RssElite}');"" title=""Rss推荐标签显示""><img src=""../images/rss.gif"" border=""0""></a><a href=""javascript:LabelInsertCode('{$RssHot}');"" title=""Rss热门标签显示""><img src=""../images/rss.gif"" border=""0""></a></Td>"
		 Response.Write "      <Td align=right></Td></Tr>"
		 Response.Write "    </Table>"
		 Response.Write " </td>"
		 Response.Write "   <tr id=""codearea"">"
		 Response.Write "	<td valign=""top"" width=""20""><textarea id='txt_ln' name='content1' cols='6' style='overflow:hidden;height:100%;background-color:highlight;border-right:0px;text-align:right;font-family: tahoma;font-size:12px;font-weight:bold;color:highlighttext;cursor:default;' readonly></textarea></td><td valign=""top"">"
		 Response.Write "<textarea name='Content' style='width:772px;' ROWS='24' COLS='52' id='txt_main' onkeydown='editTab()' onscroll=""show_ln('txt_ln','txt_main')"" wrap='off' onchange=""TemplateContent.SetContentIni();"">" & Server.HTMLEncode(TemplateFromFileContent) & "</textarea>" & vbNewLine
		 Response.Write "			<script>for(var i=1; i<=24; i++) document.getElementById('txt_ln').value += i + '\n';</script>"
		 Response.Write "   </td></tr>"
		 Response.Write "   <tr id=""editorarea"" style=""display:none""><td  colspan=""2"" width=""100%"" height=""410"">"
		 Response.Write "       <iframe id='TemplateContent' name='TemplateContent' src='../Editor.asp?ID=Content&style=3&sChannelID=" & ChannelID &"&TemplateType=" & TemplateType &"' frameborder='0' scrolling='no' width='100%' height='100%'></iframe>"
		 Response.Write "     </td>"
		 Response.Write "   </tr>"
		 Response.Write " </form>"
		 Response.Write "</table>"
		 Response.Write "</body>"
		 Response.Write "</html>"
		  
			 Conn.Close:Set Conn = Nothing

		Response.Write "<script language=""JavaScript"">" & vbCrLf
		Response.Write " SetFsoFileNameArea(" & TemplateType & ");" & vbCrLf
		Response.Write "function SetFsoFileNameArea(num)" & vbCrLf
		Response.Write "{if (num=='9993')" & vbCrLf
		Response.Write "document.all.FsoFileNameArea.style.display='';" & vbCrLf
		Response.Write "else" & vbCrLf
		Response.Write "document.all.FsoFileNameArea.style.display='none';" & vbCrLf
		Response.Write "}"
		Response.Write "function settemplatearea(num)"
		Response.Write "{if (num==0)" & vbcrlf
		Response.Write "  {document.TemplateForm.Content.value=frames[""TemplateContent""].Resumeblank(frames[""TemplateContent""].KS_EditArea.document.documentElement.innerHTML);document.all.codearea.style.display='';document.all.editorarea.style.display='none';document.all.toplabelarea.style.display='';}" & vbcrlf
		Response.Write " else" & vbcrlf
		Response.Write "  {document.all.codearea.style.display='none';document.all.editorarea.style.display='';document.all.toplabelarea.style.display='none';}" & vbcrlf
		Response.Write "}" & vbcrlf
		Response.Write "    function copy()" & vbcrlf
		Response.Write "{" & vbcrlf
		Response.Write "document.TemplateForm.Content.value=frames[""TemplateContent""].Resumeblank(frames[""TemplateContent""].KS_EditArea.document.documentElement.innerHTML);" & vbcrlf
        Response.Write "    document.TemplateForm.Content.select();" & vbcrlf
        Response.Write "    textRange = document.TemplateForm.Content.createTextRange();" & vbcrlf
        Response.Write "    textRange.execCommand(""Copy"");" & vbcrlf
		Response.Write "    alert('恭喜，当前代码已复制到剪贴板!');" & vbcrlf
        Response.Write "}" & vbcrlf
		Response.Write "function LabelInsertCode(Val)" & vbcrlf
		Response.Write "{"
		Response.Write " if (Val==null)" & vbcrlf
		Response.Write "  Val=OpenWindow('LabelFrame.asp?sChannelID=" & ChannelID &"&TemplateType=" & TemplateType &"&url=InsertLabel.asp&pagetitle=插入标签',260,350,window);"&vbcrlf
		Response.Write "if (Val!='')"
		Response.Write "{ document.TemplateForm.Content.focus();" & vbcrlf
		Response.Write "  var str = document.selection.createRange();" & vbcrlf
		Response.Write "  str.text = Val;"
		Response.Write " }" & vbcrlf
		Response.Write "}" & vbcrlf
		Response.Write "function InsertFunctionLabel(Url,Width,Height)" & vbcrlf
        Response.Write "{" & vbcrlf
        Response.Write "var Val = OpenWindow(Url,Width,Height,window);"
		Response.Write "if (Val!=''&&Val!=null)"
		Response.Write "{ document.TemplateForm.Content.focus();" & vbcrlf
		Response.Write "  var str = document.selection.createRange();" & vbcrlf
		Response.Write "  str.text = Val;"
		Response.Write " }" & vbcrlf
        Response.Write "}" & vbcrlf
		Response.Write "function CheckForm()" & vbCrLf
		Response.Write "{   if (document.TemplateForm.TemplateFileName.value=="""")"
		Response.Write "     {"
		Response.Write "     alert(""请导入模板!"");"
		Response.Write "     return false;"
		Response.Write "     }" & vbCrLf
		Response.Write "   if (document.TemplateForm.TemplateName.value=="""")"
		Response.Write "    {"
		Response.Write "     alert(""请输入模板名称!"");"
		Response.Write "     return false;"
		Response.Write "     }" & vbCrLf
		Response.Write "  if (document.TemplateForm.TemplateType.value=="""")"
		Response.Write "     {"
		Response.Write "     alert(""请选择模板类型!"");"
		Response.Write "     return false;"
		Response.Write "     }" & vbCrLf
		Response.Write "  if (document.TemplateForm.TemplateType.value=='9993'&& document.TemplateForm.FsoFileName.value=='')"
		Response.Write "    {"
		Response.Write "     alert(""请输入待生成的文件名"");"
		Response.Write "     return false;"
		Response.Write "    }"
		Response.Write "    if (frames[""TemplateContent""].CurrMode!='EDIT') {alert('提示信息:\n\n要保存模板，请切换到设计模式');return false;}"
		'Response.Write "    //document.TemplateForm.Content.value=frames[""TemplateContent""].frames[""EditArea""].document.body.innerHTML; //读取其编辑器内容"
		Response.Write "    document.TemplateForm.Content.value=frames[""TemplateContent""].Resumeblank(frames[""TemplateContent""].KS_EditArea.document.documentElement.innerHTML);"
		Response.Write "    document.TemplateForm.submit();"
		Response.Write "    return true;"
		Response.Write "}" & vbCrLf
		Response.Write "</script>" & vbCrLf
		
		End Sub
End Class
%>