⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 special_add.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Special_Add
KSCls.Execute()
Set KSCls = Nothing

Class Special_Add
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub
		Public Sub Execute()
			If Not KSCMS.ReturnPowerResult(0, "KMSP10001") Then Call KSCMS.ReturnErr(0, "")        '新建专题权限检查
			
			Dim TemplateRS, TemplateSql, FolderID
			
			FolderID = KSCMS.G("FolderID")
			
			If Request("Action") = "AddSpecial" Then
				 Dim TempObj, SpecialRS, SpecialSql, ChannelID, SpecialName, SpecialEName, TemplateID, FsoSpecialIndex, SpecialAddDate, SpecialNote
					 ChannelID = KSCMS.G("ChannelID")
					 FolderID = KSCMS.G("FolderID")
					 SpecialName = Replace(Replace(KSCMS.G("SpecialName"), """", ""), "'", "")
					 SpecialEName = Replace(Replace(KSCMS.G("SpecialEName"), """", ""), "'", "")
					 TemplateID = KSCMS.G("TemplateID")
					 FsoSpecialIndex = KSCMS.G("FsoSpecialIndex")
					 SpecialAddDate = KSCMS.G("SpecialAddDate")
					 SpecialNote = Trim(KSCMS.G("SpecialNote"))
					 
				 If SpecialName <> "" Then
					If Len(SpecialName) >= 100 Then
						Call KSCMS.AlertHistory("专题名称不能超过50个字符!", -1)
						Set KSCMS = Nothing
						Response.End
					End If
				 Else
					Call KSCMS.AlertHistory("请输入专题名称!", -1)
					Set KSCMS = Nothing
					Response.End
				 End If
				 If SpecialEName <> "" Then
					If Len(SpecialEName) >= 50 Then
						Call KSCMS.AlertHistory("专题英文名称不能超过50个字符!", -1)
						Set KSCMS = Nothing
						Response.End
					End If
					Set TempObj = Conn.Execute("Select SpecialEName,SpecialName from KS_Special where SpecialName='" & SpecialName & "' OR SpecialEName='" & SpecialEName & "'")
					If Not TempObj.EOF Then
						 If Trim(TempObj(0)) = SpecialEName Then
						   Call KSCMS.alert("数据库中已存在该专题英文名称!", "Special_Add.asp?FolderID=" & FolderID)
						 Else
						   Call KSCMS.alert("数据库中已存在该专题名称!", "Special_Add.asp?FolderID=" & FolderID)
						 End If
						 Set KSCMS = Nothing
						Response.End
					End If
				 Else
					Call KSCMS.alert("请输入专题英文名称!", "Special_Add.asp?FolderID=" & FolderID)
					Set KSCMS = Nothing
					Response.End
				 End If
				 If TemplateID = "" Then
					Call KSCMS.alert("请选择专题模板", "Special_Add.asp?FolderID=" & FolderID)
							Set KSCMS = Nothing
					Response.End
				 End If
				
				  Set SpecialRS = Server.CreateObject("adodb.recordset")
				  SpecialSql = "select * from [KS_Special] Where (ID IS NULL)"
				  SpecialRS.Open SpecialSql, Conn, 1, 3
				  SpecialRS.AddNew
				  SpecialRS("ID") = Year(Now) & Month(Now) & Day(Now) & KSCMS.MakeRandom(5)
				  SpecialRS("ChannelID") = ChannelID
				  SpecialRS("FolderID") = FolderID
				  SpecialRS("SpecialName") = SpecialName
				  SpecialRS("SpecialEName") = SpecialEName
				  SpecialRS("TemplateID") = TemplateID
				  SpecialRS("FsoSpecialIndex") = FsoSpecialIndex
				  SpecialRS("SpecialAddDate") = SpecialAddDate
				  SpecialRS("SpecialNote") = SpecialNote
				  SpecialRS("Creater") = Request.Cookies(KSCMS.SiteSn)("AdminName")
				  SpecialRS.Update
				  SpecialRS.Close
				  Set SpecialRS = Nothing
				  Response.Write ("<script>if (!(confirm('添加专题成功,继续添加吗?'))) window.close();</script>")
			End If
			Response.Write "<html>" & vbCrLf
			Response.Write "<head>" & vbCrLf
			Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
			Response.Write "<link href='../Inc/ModeWindow.css' rel='stylesheet'>" & vbCrLf
			Response.Write "<script language='JavaScript' src='../JS/Common.js'></script>" & vbCrLf
			Response.Write "<title>专题添加</title>" & vbCrLf
			Response.Write "</head>" & vbCrLf
			Response.Write "<body leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
			Response.Write "  <form action='Special_Add.asp' name='SpecialForm' method='post'>" & vbCrLf
			Response.Write "  <input type='hidden' name='channelID' value='1'>" & vbCrLf
			Response.Write "      <input name='Action' type='hidden' id='Action' value='AddSpecial'>" & vbCrLf
			Response.Write "  <table width='99%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
			Response.Write "    <tr>" & vbCrLf
			Response.Write "      <td>" & vbCrLf
			Response.Write "      <FIELDSET align=center>" & vbCrLf
			Response.Write "  <LEGEND align=left>添加专题</LEGEND>" & vbCrLf
			Response.Write "    <table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
			Response.Write "       <tr>" & vbCrLf
			Response.Write "        <td height='35'> <div align='center'>所属频道</div></td>" & vbCrLf
			Response.Write "         <td width='542'>" & vbCrLf
			Response.Write "         <select name='FolderID' style='width:200;border-style: solid; border-width: 1'>" & vbCrLf
					  
					  Dim FolderName, TempStr, FolderRS
						Set FolderRS = Server.CreateObject("ADODB.Recordset")
						TempStr = "<option value=0>--请选择--</option>"
					  FolderRS.Open "Select ID,FolderName From KS_Class Where TN='0' And ChannelID=1 And DelTF=0 Order BY ChannelID,FolderOrder", Conn, 1, 1
					If Not FolderRS.EOF Then
					  Do While Not FolderRS.EOF
						FolderName = Trim(FolderRS(1))
						 If FolderID = Trim(FolderRS(0)) Then
						   TempStr = TempStr & "<option value=" & FolderRS(0) & " Selected>" & FolderName & "</option>"
						 Else
						   TempStr = TempStr & "<option value=" & FolderRS(0) & ">" & FolderName & "</option>"
						 End If
						 FolderRS.MoveNext
					  Loop
					End If
					FolderRS.Close
					Set FolderRS = Nothing
					Response.Write TempStr
					
			Response.Write "        </select>" & vbCrLf
			Response.Write "            </td>" & vbCrLf
			Response.Write "    </tr>" & vbCrLf
			Response.Write "    <tr>" & vbCrLf
			Response.Write "      <td width='179' height='35'> <div align='center'>专题名称</div></td>" & vbCrLf
			Response.Write "      <td> <input name='SpecialName' type='text' id='SpecialName' size='30' style='border-style: solid; border-width: 1'>"
			Response.Write "              概况性说明文字 </td>"
			Response.Write "    </tr>" & vbCrLf
			Response.Write "    <tr>"
			Response.Write "      <td height='35'> <div align='center'>英文名称</div></td>" & vbCrLf
			Response.Write "      <td><input name='SpecialEName' type='text' id='SpecialEName' size='30' style='border-style: solid; border-width: 1'>"
			Response.Write "        不能改 </td>"
			Response.Write "    </tr>"
			Response.Write "    <tr>"
			Response.Write "      <td height='35'> <div align='center'>专题页模板</div></td>" & vbCrLf
			Response.Write "      <td><select name='TemplateID'  style='border-style: solid; border-width: 1'>" & vbCrLf
					  
					  Set TemplateRS = Server.CreateObject("ADODB.RECORDSET")
						TemplateSql = "Select TemplateName,TemplateID,IsDefault From KS_Template Where TemplateType=6 Order By TemplateID" '2栏目模板
						TemplateRS.Open TemplateSql, Conn, 1, 1
						If TemplateRS.EOF And TemplateRS.BOF Then
						 Response.Write ("<option value=0>请先添加专题页模板</option>")
						Else
						 Do While Not TemplateRS.EOF
						  If TemplateRS("IsDefault") = 1 Then
						 Response.Write ("<option value=" & TemplateRS("TemplateID") & " selected>" & TemplateRS("TemplateName") & "</option>")
						  Else
						 Response.Write ("<option value=" & TemplateRS("TemplateID") & ">" & TemplateRS("TemplateName") & "</option>")
						  End If
						 TemplateRS.MoveNext
						 Loop
						End If
						TemplateRS.Close
			
			Response.Write "        </select>" & vbCrLf
			Response.Write "      </td>" & vbCrLf
			Response.Write "    </tr>" & vbCrLf
			Response.Write "    <tr>" & vbCrLf
			Response.Write "      <td height='35' align='center'> 生成专题页的文件名 </td>" & vbCrLf
			Response.Write "      <td><select name='FsoSpecialIndex' style='border-style: solid; border-width: 1'>"
			Response.Write "          <option value='Index.html' selected>Index.html</option>"
			Response.Write "          <option value='Index.htm'>Index.htm</option>"
			Response.Write "          <option value='Index.shtm'>Index.shtm</option>"
			Response.Write "          <option value='Index.shtml'>Index.shtml</option>"
			Response.Write "          <option value='Index.asp'>Index.asp</option>"
			Response.Write "        </select></td>"
			Response.Write "    </tr>" & vbCrLf
			Response.Write "    <tr>"
			Response.Write "      <td & vbCrLfheight='35'> <div align='center'>添加时间</div></td>"
			Response.Write "      <td><input name='SpecialAddDate' type='text' id='SpecialAddDate' value='" & Now & "' size='30' readonly style='border-style: solid; border-width: 1'>"
			Response.Write "      </td>" & vbCrLf
			Response.Write "    </tr>" & vbCrLf
			Response.Write "    <tr>"
			Response.Write "      <td height='35'> <div align='center'>简要说明</div></td>"
			Response.Write "      <td><textarea name='SpecialNote' rows='8' id='SpecialNote' style='width:80%;border-style: solid; border-width: 1'></textarea></td>"
			Response.Write "    </tr>"
			Response.Write "  </table>"
			Response.Write "          </FIELDSET>"
			Response.Write "       </td>"
			Response.Write "    </tr>"
			Response.Write "    </table>"
			Response.Write "  <table width='100%' height='30' border='0' cellpadding='0' cellspacing='0'>"
			Response.Write "   <tr>"
			Response.Write "      <td height='40' align='center'>"
			Response.Write "        <input type='button' name='Submit' Onclick='CheckForm()' value=' 创 建 '>"
			Response.Write "        <input type='button' name='Submit2' onclick='window.close()' value=' 取 消 '>"
			Response.Write "      </td>"
			Response.Write "    </tr>"
			Response.Write "  </table>"
			Response.Write "  </form>"
			Response.Write "</body>"
			Response.Write "</html>"
			Response.Write "<Script Language='javascript'>" & vbCrLf
			Response.Write "<!--" & vbCrLf
			Response.Write "function CheckForm()" & vbCrLf
			Response.Write "{ var form=document.SpecialForm;" & vbCrLf
			Response.Write "    if (form.FolderID.value==0)" & vbCrLf
			Response.Write "    {"
			Response.Write "     alert('请选择一个频道!');" & vbCrLf
			Response.Write "    form.FolderID.focus();" & vbCrLf
			Response.Write "    return false;" & vbCrLf
			Response.Write "    }"
			Response.Write "   if (form.SpecialName.value=='')"
			Response.Write "    {" & vbCrLf
			Response.Write "     alert('请输入专题名称!');" & vbCrLf
			Response.Write "     form.SpecialName.focus();" & vbCrLf
			Response.Write "     return false;" & vbCrLf
			Response.Write "    }" & vbCrLf
			Response.Write "    if (form.SpecialEName.value=='')" & vbCrLf
			Response.Write "    {"
			Response.Write "     alert('请输入专题的英文名称!');" & vbCrLf
			Response.Write "     form.SpecialEName.focus();" & vbCrLf
			Response.Write "    return false;" & vbCrLf
			Response.Write "    }"
			Response.Write "    if (CheckEnglishStr(form.SpecialEName,'目录的英文名称')==false)" & vbCrLf
			Response.Write "     return false;" & vbCrLf
			Response.Write "    form.submit();" & vbCrLf
			Response.Write "    return true;" & vbCrLf
			Response.Write "}" & vbCrLf
			Response.Write "//-->" & vbCrLf
			Response.Write "</Script>"
    End Sub
End Class
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -