nc_mailcls.asp

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

		Set Re = Nothing
		L = Len(HtmlStr)
		If L >= strlen Then
			CutString = Left(HtmlStr, strlen) & "..."
		Else
			CutString = HtmlStr & " "
		End If
	End Function
	'*************************************************************
	'函数作用：判断非法字符
	'*************************************************************
	Public Function IsValidStr(Str)
		IsValidStr = True
		If IsNull(Str) Then Exit Function
		Dim ForbidStr, i
		ForbidStr = ":|=|%|&|$|#|@|+|-|*|/|\|<|>|;|,|"& Chr(32) &"|"& Chr(34) &"|"& Chr(39) &"|"& Chr(9)
		ForbidStr = Split(ForbidStr, "|")
		For i = 0 To UBound(ForbidStr)
			If InStr(Str, ForbidStr(i)) > 0 Then
				IsValidStr = False
				Exit Function
			End If
		Next
		IsValidStr = True
	End Function
	'*************************************************************
	'函数作用：判断密码非法字符
	'*************************************************************
	Public Function IsValidPassword(Str)
		IsValidPassword = True
		If IsNull(Str) Then Exit Function
		Dim ForbidStr, i
		ForbidStr = "=|%|&|;|,|"& Chr(32) &"|"& Chr(34) &"|"& Chr(39) &"|"& Chr(9)
		ForbidStr = Split(ForbidStr, "|")
		For i = 0 To UBound(ForbidStr)
			If InStr(Str, ForbidStr(i)) > 0 Then
				IsValidPassword = False
				Exit Function
			End If
		Next
		IsValidPassword = True
	End Function

	Public Sub admin_footer()
		Response.Write "<table align=center >" & vbCrLf
		Response.Write "<tr align=center><td>" & vbCrLf
		If CInt(Setting(18)) = 1 Then
			Dim Endtime
			Endtime = Timer()
			Response.Write "执行时间：" & FormatNumber((Endtime - startime) * 1000, 3) & "毫秒。查询数据库" & SqlQueryNum & "次。" & vbCrLf
			Response.Write CaCheInfo
		End If
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Write "</div>" & vbCrLf
		Response.Write "</body></html>"
	End Sub
	Public Sub PublishSoft()
	Set Rs = Server.CreateObject("adodb.recordset")
	Set Rs1 = Server.CreateObject("adodb.recordset")
	Set Rs2 = Server.CreateObject("adodb.recordset")
	founderr = False
	DownsysClass.LoadTemplates ("index")
	If CInt(DownsysClass.setting(39)) = 0 Then
		Response.Write "<script>alert('" & DownsysClass.mainset(40) & "');javascript:history.back(1)</script>"
		Response.End
	End If
	Set DownloadClass_Ads = New Adcolumn_Cls
	NowStats = "信息发布"
	HtmlTitle = "信息发布"
	TempTopStr = DownsysClass.mainhtml(0) & DownsysClass.TempHtml(0) & DownsysClass.mainhtml(2) 
	TempFootStr = DownsysClass.mainhtml(4)
	Style_CSS = Replace(Replace(DownsysClass.Style_CSS, "{$SetupDir}", DownsysClass.SetupDir), "{$PicUrl}", DownsysClass.TempDir)
	HtmlTempStr = TempTopStr
	HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", DownsysClass.SortingMenu)
	HtmlTempStr = Replace(HtmlTempStr, "{$Width}", DownsysClass.mainset(0))
	HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
	If CInt(DownsysClass.setting(5)) = 0 Then
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(9))
	Else
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(10))
	End If
	HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
	HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", DownloadClass_Ads.RunScriptAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", DownloadClass_Ads.BannerAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", DownloadClass_Ads.AdsColumn(7, 2))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", DownloadClass_Ads.AdsColumn(7, 3))
	Response.Write HtmlTempStr
	If CInt(DownsysClass.Setting(5)) = 1 Then
		TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(11))
	Else 
		TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(44))
	End If
	TempFootStr = Replace(TempFootStr, "{$Width}", DownsysClass.mainset(0))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", DownloadClass_Ads.ScriptFloatAds(7))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", DownloadClass_Ads.ScriptFixedAds(7))
	Select Case Trim(Request("Action"))
		Case "save"
			Call saveAdd
		Case Else
			Call main
	End Select
	If founderr = True Then
		Response.Write "<script>alert('" & errmsg & "');javascript:history.back(1)</script>"
		Response.End
	End If
	Response.Write TempFootStr
End Sub

	Public Sub admin_header()
		Session.Timeout = Setting(21) 'Session会话的保持时间(分钟)
		Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
		Response.Write Copyright
		Response.Write "<html>" & vbCrLf
		Response.Write "<head>" & vbCrLf
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
		Response.Write "<title>" & Setting(0) & "-管理页面</title>" & vbCrLf
		Response.Write "<LINK href=""style.css"" type=text/css rel=stylesheet>" & vbCrLf
		Response.Write "<script>" & vbCrLf
		Response.Write "function preloadImg(src)" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write Chr(9) & "var img=new Image();" & vbCrLf
		Response.Write Chr(9) & "img.src=src" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "preloadImg(""images/admin_top_open.gif"");" & vbCrLf
		Response.Write "var displayBar=true;" & vbCrLf
		Response.Write "function switchBar(obj)" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write Chr(9) & "if (displayBar)" & vbCrLf
		Response.Write Chr(9) & "{" & vbCrLf
		Response.Write Chr(9) & Chr(9) & "parent.frame.cols=""0,*"";" & vbCrLf
		Response.Write Chr(9) & Chr(9) & "displayBar=false;" & vbCrLf
		Response.Write Chr(9) & Chr(9) & "obj.src=""images/admin_top_open.gif"";" & vbCrLf
		Response.Write Chr(9) & Chr(9) & "obj.title=""打开左边管理菜单"";" & vbCrLf
		Response.Write Chr(9) & "}" & vbCrLf
		Response.Write Chr(9) & "else{" & vbCrLf
		Response.Write Chr(9) & Chr(9) & "parent.frame.cols=""180,*"";" & vbCrLf
		Response.Write Chr(9) & Chr(9) & "displayBar=true;" & vbCrLf
		Response.Write Chr(9) & Chr(9) & "obj.src=""images/admin_top_close.gif"";" & vbCrLf
		Response.Write Chr(9) & Chr(9) & "obj.title=""关闭左边管理菜单"";" & vbCrLf
		Response.Write Chr(9) & "}" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "</script>" & vbCrLf
		Response.Write "</head>" & vbCrLf
		Response.Write "<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0>" & vbCrLf
		Response.Write "<script src=""images/admin.js"" type=""text/javascript""></script>" & vbCrLf
		Response.Write "<div class=menuskin id=popmenu " & vbCrLf
		Response.Write "      onmouseover=""clearhidemenu();highlightmenu(event,'on')"" " & vbCrLf
		Response.Write "      onmouseout=""highlightmenu(event,'off');dynamichide(event)"" style=""Z-index:100""></div>" & vbCrLf
		Response.Write "<div align=center>" & vbCrLf
		Response.Write "<TABLE cellSpacing=0 cellPadding=3 align=center style=""width:100%"" border=0>" & vbCrLf
		Response.Write " <TR>" & vbCrLf
		Response.Write "<td class=BodyTitle height=25><TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & vbCrLf
		Response.Write " <TR>" & vbCrLf
		Response.Write " <TD align=""left""><img onclick=""switchBar(this)"" src=""images/admin_top_close.gif"" title=""关闭左边管理菜单"" style=""cursor:hand""></TD>" & vbCrLf
		Response.Write " <TD width=""80%"" align=""center"" style=""FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;"">"
		Response.Write "管理系统控制面板"
		Response.Write " </TD>" & vbCrLf
		Response.Write " <TD width=""10%"" id=spid style=""FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFF9,offx=1,offy=1); COLOR: #FF3300;""></TD>" & vbCrLf
		Response.Write " <TD align=right><A href=../ target=_top><img src=""images/i_home.gif"" title=""返回首页"" border=0></A></TD>" & vbCrLf
		Response.Write " </TR>" & vbCrLf
		Response.Write " </TABLE></TD>"
		Response.Write " </TR>" & vbCrLf
		Response.Write " <TR><TD height=10></TD></TR>" & vbCrLf
		Response.Write " </TABLE>" & vbCrLf
	End Sub

	'*************************************************************
	'函数作用：缓存后台跳转分类列表---供求
	'*************************************************************
	Public Function SortingJumpList()
		Dim CacheJumpList, SQL, Rs1, i
		If Not IsObject(Conn) Then ConnectionDatabase
		Name = "SortingJumpList"
		If ObjIsEmpty() Then
			CacheJumpList = "<select name=""sortid"" size=""1"">" & vbCrLf
			Set Rs1 = Server.CreateObject("Adodb.recordset")
			SQL = "select * from NC_SoftSort order by rootid,orders"
			Rs1.Open SQL, Conn, 1, 1
			SqlQueryNum = SqlQueryNum + 1
			Do While Not Rs1.EOF
				If Rs1("depth") = 0 Then
					CacheJumpList = CacheJumpList & "<option value="""" "
				Else
					CacheJumpList = CacheJumpList & "<option value=""" & Rs1("RootID") & "," & Rs1("sortid") & "," & Rs1("SortName") & """ {SortID=" & Rs1("sortid") & "}"
				End If
				CacheJumpList = CacheJumpList & ">"
				If Rs1("depth") = 1 Then CacheJumpList = CacheJumpList & "　├ "
				If Rs1("depth") > 1 Then
					For i = 2 To Rs1("depth")
						CacheJumpList = CacheJumpList & "　"
					Next
					CacheJumpList = CacheJumpList & "　├ "
				End If
				CacheJumpList = CacheJumpList & Rs1("SortName") & "</option>" & vbCrLf
				Rs1.movenext
			Loop
			Rs1.Close
			Set Rs1 = Nothing
			CacheJumpList = CacheJumpList & "</select>"
			Value = CacheJumpList
		End If
		SortingJumpList = Value
	End Function
	'*************************************************************
	'函数作用：缓存后台跳转分类列表---商店
	'*************************************************************
	Public Function ShopingJumpList()
		Dim CacheJumpList, SQL, Rs1, i
		If Not IsObject(Conn) Then ConnectionDatabase
		Name = "ShopingJumpList"
		If ObjIsEmpty() Then
			CacheJumpList = "<select name=""sortid"" size=""1"">" & vbCrLf
			Set Rs1 = Server.CreateObject("Adodb.recordset")
			SQL = "select * from NC_ShopSort order by rootid,orders"
			Rs1.Open SQL, Conn, 1, 1
			SqlQueryNum = SqlQueryNum + 1
			Do While Not Rs1.EOF
				If Rs1("depth") = 0 Then
					CacheJumpList = CacheJumpList & "<option value="""" "
				Else
					CacheJumpList = CacheJumpList & "<option value=""" & Rs1("RootID") & "," & Rs1("sortid") & "," & Rs1("SortName") & """ {SortID=" & Rs1("sortid") & "}"
				End If
				CacheJumpList = CacheJumpList & ">"
				If Rs1("depth") = 1 Then CacheJumpList = CacheJumpList & "　├ "
				If Rs1("depth") > 1 Then
					For i = 2 To Rs1("depth")
						CacheJumpList = CacheJumpList & "　"
					Next
					CacheJumpList = CacheJumpList & "　├ "
				End If
				CacheJumpList = CacheJumpList & Rs1("SortName") & "</option>" & vbCrLf
				Rs1.movenext
			Loop
			Rs1.Close
			Set Rs1 = Nothing
			CacheJumpList = CacheJumpList & "</select>"
			Value = CacheJumpList
		End If
		ShopingJumpList = Value
	End Function
	'*************************************************************
	'函数作用：缓存后台跳转分类列表
	'*************************************************************
	Public Function ClassJumpList()
		Dim CacheJumpList, SQL, Rs1, i
		If Not IsObject(Conn) Then ConnectionDatabase
		Name = "ClassJumpList"
		If ObjIsEmpty() Then
			CacheJumpList = "<select name=""classid"" size=""1"">" & vbCrLf
			Set Rs1 = Server.CreateObject("Adodb.recordset")
			SQL = "select * from NC_Class order by rootid,orders"
			Rs1.Open SQL, Conn, 1, 1
			SqlQueryNum = SqlQueryNum + 1
			Do While Not Rs1.EOF
				If Rs1("depth") = 0 Then
					CacheJumpList = CacheJumpList & "<option value="""" "
				Else
					CacheJumpList = CacheJumpList & "<option value=""" & Rs1("RootID") & "," & Rs1("classid") & "," & Rs1("ClassName") & """ {ClassID=" & Rs1("classid") & "}"
				End If
				CacheJumpList = CacheJumpList & ">"
				If Rs1("depth") = 1 Then CacheJumpList = CacheJumpList & "　├ "
				If Rs1("depth") > 1 Then
					For i = 2 To Rs1("depth")
						CacheJumpList = CacheJumpList & "　"
					Next
					CacheJumpList = CacheJumpList & "　├ "
				End If
				CacheJumpList = CacheJumpList & Rs1("ClassName") & "</option>" & vbCrLf
				Rs1.movenext
			Loop
			Rs1.Close
			Set Rs1 = Nothing
			CacheJumpList = CacheJumpList & "</select>"
			Value = CacheJumpList
		End If
		ClassJumpList = Value
	End Function
End Class
%>