publish.asp

大型黄页系统,精美黄页flash演示,10m

Private Sub batdele()
	Dim DownloadClass, DelSoftHtml, j
	DownsysClass.Execute ("update NC_SoftPublish set isLock=1,isUpdate=1 where softid in (" & selSoftid & ")")
       	If CInt(DownsysClass.Setting(5)) = 0 Then
        DelSoftHtml=split(selSoftid, ", ")
	Set DownloadClass = New Create_SoftInfo_Cls
	For j = 0 To Ubound(DelSoftHtml)
		DownloadClass.DelSoftInfo(DelSoftHtml(j))
	Next
		Set DownloadClass = Nothing
	End If
	'Response.Write ("你选择的文件已成功放入回收站！")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub


Private Sub batmove()
	Dim selSort
	selSort = Split(Trim(Request.Form("sortid")), ",")
	If Len(Request.Form("sortid")) <> 0 Then
		DownsysClass.Execute ("update NC_SoftPublish set rootid='" & selSort(0) & "',sortid='" & selSort(1) & "',SortName='" & selSort(2) & "',isUpdate=1 where softid in (" & selSoftid & ")")
		Response.Write ("批量移动操作成功,请重新生成移动的HTML文件!")
	Else
		Response.Write ("不能移动到一级分类，请选择正确的分类！")
	End If
End Sub

Private Sub isCommend()
	DownsysClass.Execute ("update [NC_SoftPublish] set isCommend=1 where softid in (" & selSoftid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub


Private Sub noCommend()
	DownsysClass.Execute ("update [NC_SoftPublish] set isCommend=0 where softid in (" & selSoftid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub


Private Sub upindate()
	DownsysClass.Execute ("update [NC_SoftPublish] set SoftTime=" & DownsysClass.SqlString & " where softid in (" & selSoftid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub


Private Sub isTop()
	DownsysClass.Execute ("update NC_SoftPublish set isTop=1 where softid in (" & selSoftid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub


Private Sub noTop()
	DownsysClass.Execute ("update NC_SoftPublish set isTop=0 where softid in (" & selSoftid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Private Sub BatCreateHtml()
	Dim DownloadClass, CreateSoftHtml, o, p
	o = 0
	Response.Write "<table width=""400"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td bgcolor=000000>" & vbCrLf
	Response.Write " <table width=""400"" border=""0"" cellspacing=""0"" cellpadding=""1"">" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td bgcolor=ffffff height=9><img src=""images/bar9.gif"" width=0 height=16 id=img2 name=img2 align=absmiddle></td></tr></table>" & vbCrLf
	Response.Write "</td></tr></table></td></tr><tr> " & vbCrLf
	Response.Write "<td align=center bgcolor=000000> <span id=txt2 name=txt2 style=""font-size:9pt"">0</span><span style=""font-size:9pt"">%</span>  <span id=txt3 name=txt3 style=""font-size:9pt"">0</span></td></tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Flush
	CreateSoftHtml = Split(selSoftid, ",")
	p = Ubound(CreateSoftHtml)
	Set DownloadClass = New Create_SoftInfo_Cls
	Do while o <= p 
		DownloadClass.CreateSoftInfo(Cint(Trim(CreateSoftHtml(o))))
		Response.Write "<script>img2.width=" & Fix((o + 1) / (p + 1) * 400) & ";" & vbCrLf
		Response.Write "txt2.innerHTML=""生成进度:" & FormatNumber((o + 1) / (p + 1) * 100, 4, -1) & """;" & vbCrLf
		Response.Write "txt3.innerHTML=""共有 <B><font color=RED>" & p + 1 & "</font></B> 个 　正在生成第 " & o + 1 & " 个"";" & vbCrLf
		Response.Write "img2.title=""(" & o + 1 & ")"";</script>" & vbCrLf
		o = o + 1
	Loop
	Response.Write "<script>txt3.innerHTML=""完成! 总共生成<B><font color=RED>" & p + 1 & "</font></B> 个文件"";</script>" & vbCrLf
	Response.Write "<script>img2.width=400;txt2.innerHTML=""100"";</script>"& vbCrLf
	Set DownloadClass = Nothing
	NC_Admin.Succeed_Msg ("完成! 总共生成<B><font color=RED>" & p + 1 & "</font></B> 个文件")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Private Sub showpage()
	If pagination = 0 Then
		If totalnumber Mod maxperpage = 0 Then
			n = totalnumber \ maxperpage
		Else
			n = totalnumber \ maxperpage + 1
		End If
		Response.Write "<table cellspacing=1 width='100%' border=0><form method=Post action=?clasid=" & Request("clasid") & "><tr><td align=center> " & vbCrLf
		Response.Write "<font color='red'>" & strSortName & "</font> "
		If CurrentPage < 2 Then
			Response.Write "共有信息 <font COLOR=#FF0000><strong>" & totalnumber & "</strong></font> 个&nbsp;首 页&nbsp;上一页&nbsp;"
		Else
			Response.Write "共有信息 <font COLOR=#FF0000><strong>" & totalnumber & "</strong></font> 个&nbsp;<a href=?page=1&clasid=" & Request("calsid") & ">首 页</a>&nbsp;"
			Response.Write "<a href=?page=" & CurrentPage - 1 & "&clasid=" & Request("clasid") & ">上一页</a>&nbsp;"
		End If
		If n - CurrentPage < 1 Then
			Response.Write "下一页&nbsp;尾 页" & vbCrLf
		Else
			Response.Write "<a href=?page=" & (CurrentPage + 1) & "&clasid=" & Request("clasid") & ">下一页</a>"
			Response.Write "&nbsp;<a href=?page=" & n & "&clasid=" & Request("clasid") & ">尾 页</a>" & vbCrLf
		End If
		Response.Write "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
		Response.Write "&nbsp;转到："
		If GotoPageType = 1 Then
			Response.Write "&nbsp;<select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:submit()'>" & vbCrLf
			For ii = 1 To n
				Response.Write "<option value='" & ii & "' "
				If CurrentPage = CInt(ii) Then
					Response.Write "selected "
				End If
				Response.Write ">第" & ii & "页</option>"
			Next
			Response.Write "</select> " & vbCrLf
		Else
			Response.Write "<input name=page size=3> <input type=submit name=Submit value='GO→'>"
		End If
		Response.Write "</td></tr></FORM></table>" & vbCrLf
	Else
		n = CurrentPage
		If n < maxpagecount Then
			n = maxpagecount
		End If
		Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""2"">"
		Response.Write " <tr><form method=""POST"" action='?clasid=" & Request("clasid") & "'>"
		Response.Write " <td align=""center""><font color='red'>" & strSortName & "</font> 共有信息 <font COLOR=#FF0000><strong>"
		Response.Write totalnumber
		Response.Write "</strong></font> 个 <a href=?page=1&clasid=" & Request("clasid") & " title=返回第一页><font face=""Webdings"">97</font></a> "
		For ii = pagestart To pageend
			If ii = 0 Then ii = 1
			If ii = CurrentPage Then
				Response.Write "<font color='red'><strong>" & ii & "</strong></font> "
			Else
				Response.Write "<a href=?page=" & ii & "&clasid=" & Request("clasid") & " title=第" & ii & "页><strong>" & ii & "</strong></a> "
			End If
		Next
		Response.Write "<a href=?page="
		Response.Write maxpagecount
		Response.Write "&clasid=" & Request("clasid") & " title=尾页><font face=""Webdings"">8:</font></a> 页次:<strong><font color=red>"
		Response.Write CurrentPage
		Response.Write "</font>/"
		Response.Write maxpagecount
		Response.Write "</strong>页 转到:"
		If GotoPageType = 1 Then
			Response.Write "&nbsp;<select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:submit()'>" & vbCrLf
			For ii = 1 To n
				Response.Write "<option value='" & ii & "' "
				If CurrentPage = CInt(ii) Then
					Response.Write "selected "
				End If
				Response.Write ">第" & ii & "页</option>"
			Next
			Response.Write "</select> " & vbCrLf
		Else
			Response.Write "<input name=page size=3> <input type=submit name=Submit value='GO'>"
		End If
		Response.Write " </td></form></tr></table>" & vbCrLf
	End If

End Sub


Private Function SortingJumpMenu()
	Dim CacheJumpMenu
	Dim SQL
	Dim Rs1
	Dim i
	DownsysClass.Name = "SortingJumpMenu"
	If DownsysClass.ObjIsEmpty() Then
		CacheJumpMenu = "<select onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"">" & vbCrLf
		CacheJumpMenu = CacheJumpMenu & "<option value=publish.asp>≡全部信息列表≡</option>" & vbCrLf
		Set Rs1 = CreateObject("Adodb.recordset")
		SQL = "select * from NC_SoftSort order by rootid,orders"
		Rs1.Open SQL, Conn, 1, 1
		DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
		Do While Not Rs1.EOF
			CacheJumpMenu = CacheJumpMenu & "<option value=""publish.asp?clasid=" & Rs1("sortid") & """ {SortID=" & Rs1("sortid") & "}"
			If Trim(Request("clasid")) <> "" Then
				If CLng(Request("clasid")) = Rs1("sortid") Then CacheJumpMenu = CacheJumpMenu & " selected"
			End If
			CacheJumpMenu = CacheJumpMenu & ">"
			If Rs1("depth") = 1 Then CacheJumpMenu = CacheJumpMenu & "　├ "
			If Rs1("depth") > 1 Then
				For i = 2 To Rs1("depth")
					CacheJumpMenu = CacheJumpMenu & "　"
				Next
				CacheJumpMenu = CacheJumpMenu & "　├ "
			End If
			CacheJumpMenu = CacheJumpMenu & Rs1("SortName") & "</option>" & vbCrLf
			Rs1.movenext
		Loop
		Rs1.Close
		Set Rs1 = Nothing
		CacheJumpMenu = CacheJumpMenu & "</select>"
		DownsysClass.Value = CacheJumpMenu
	End If
	SortingJumpMenu = DownsysClass.Value
End Function

Private Function SelDownServer(intServerid, snid)
	Dim Rs_site
	Response.Write " <select name=""" & snid & """ size=""1"">"
	Response.Write "<option value=""0"""
	If intServerid = 0 Then Response.Write " selected"
	Response.Write ">↓请选择信息服务器↓</option>"
	Set Rs_site = CreateObject("adodb.recordset")
	SQL = "select serverid,ServerName,depth,rootid from NC_ServerSite where depth=0"
	Rs_site.Open SQL, Conn, 1, 1
	Do While Not Rs_site.EOF
		Response.Write "<option value=""" & Rs_site("rootid") & """"
		If intServerid = Rs_site("rootid") Then Response.Write " selected"
		Response.Write ">" & Rs_site(1) & "</option>"
		Rs_site.movenext
	Loop
	Rs_site.Close
	Set Rs_site = Nothing
	Response.Write "</select>"
End Function

Private Sub delsite()
	DownsysClass.Execute ("delete from NC_softsite where ID=" & Request("ID") & "")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Private Sub hangyes()
	Dim NC_HtmlEdit
	Dim srtSortingList
	Dim RunSystem
	Dim SoftType
	Dim Re
	Dim SQLwhere
	Set NC_HtmlEdit = New HtmlEditor_Cls
			Set Rss2 = CreateObject("Adodb.recordset")
			SQLs2 = "select top 1 * from NC_SoftSort order by depth desc"
			Rss2.Open SQLs2, Conn, 1, 1

		Set Rss1 = CreateObject("Adodb.recordset")
		if Trim(Request("depth"))<>0 then
		SQLwhere = "where parentid="& Request("sortid") &""
		else
		SQLwhere = "where depth="& Request("depth") &""
		end if
		SQLs1 = "select * from NC_SoftSort "& SQLwhere &""
		
		Rss1.Open SQLs1, Conn, 1, 1

		softTitle = "选择行业"
	Response.Write "<script language=""javascript"">" & vbCrLf
	Response.Write "<!--//" & vbCrLf
	Response.Write Chr(9) & "function ToRunsystem(addTitle) {" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "var revisedTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "var currentTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "currentTitle = document.myform.RunSystem.value;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "revisedTitle = currentTitle+addTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.RunSystem.value=revisedTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.RunSystem.focus();" & vbCrLf
	Response.Write Chr(9) & "return; }" & vbCrLf
	Response.Write "//-->" & vbCrLf
	Response.Write "</script>" & vbCrLf
	Response.Write "<script src=images/checksave.js type=text/javascript></script>"
	Response.Write "<div onkeydown=CtrlEnter()>"
	Response.Write "<table width=""750"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""tableBorder"">"
	Response.Write "<form name=""myform"" method=""post"" action=""publish.asp"" onSubmit=""return CheckSoft(this)"">"
	Response.Write " <tr>"
	Response.Write " <th colspan=""2"">"
	Response.Write softTitle
	Response.Write "</th>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td width=""100%"" class=""forumRow"">"
	Response.Write " <table  border=0 cellspacing=3 cellpadding=2 align=""center"" width=""100%"">"
    Response.Write " <tr>"
		
		dim jj
		If Rss1.EOF And Rss1.bof Then
		
	Response.Write "<td><p align=center>还没有任何分类！</p></td>"
		Else
				Do While Not Rss1.EOF
				For jj = 1 to 4
				if not Rss1.eof then
	if Trim(Request("depth"))=Trim(Rss2("depth")) then
    Response.Write " <td ><a href=""Publish.asp?action=add&depth="& Rss1("depth")+1 &"&sortid="& Rss1("sortid") &""">"
	else
    Response.Write " <td ><a href=""Publish.asp?action=hangye&depth="& Rss1("depth")+1 &"&sortid="& Rss1("sortid") &""">"
	end if
	Response.Write Rss1("SortName")
	Response.Write"</a>"
    Response.Write " </td>"
				
		Rss1.movenext
		else
	Response.Write ""
			  end if
			  next
	Response.Write "</tr><tr>"
			Loop
          	end if
		    Rss1.Close
			set Rss1=nothing
	Response.Write "</table>"
	Response.Write " </td>"
	Response.Write " </tr>"
	Response.Write " </table>"

End Sub
%>