common.asp

新闻发布系统

				NewsFairy_for_sina=Left(str,Left_1+NewsLength)&Points&"</a>"
			End if
		End if
	Else
		NewsFairy_for_sina=str
	End if
	'NewsFairy_for_sina=" <input type=checkbox name=autoid value=" & autoid & ">" & NewsFairy_for_sina & vbCrLf
End Function

function MIDPlus_0(byval data_string,start_string,end_string)
	MIDPlus_0 = mid(data_string,instr(data_string,start_string)+len(start_string),instr(data_string,end_string)-instr(data_string,start_string)-len(start_string))
end function

function MIDPlus_1(byval data_string,start_string,end_string) ' start,end-start
	MIDPlus_1 = mid(data_string,instr(data_string,start_string),instr(data_string,end_string)-instr(data_string,start_string))
end function
function MIDPlus_2(byval data_string,start_string,end_string) ' start,end-start+end
	MIDPlus_2 = mid(data_string,instr(data_string,start_string),instr(data_string,end_string)-instr(data_string,start_string)+len(end_string))
end function
function cmsfiliter(strContent,start_string,end_string)
	cmsfiliter = replace(strContent,mid(strContent,instr(strContent,start_string),instr(strContent,end_string)+len(end_string)-1),"")
end function

function jaron_replacer(strContent,start_string,end_string,replace_string) 
'CMS替换函数：源字符串，前部分，后部分，替换成的字符
'返回被替换后的字符串
	jaron_replacer = replace(strContent,mid(strContent,instr(strContent,start_string),instr(strContent,end_string)+len(end_string)-1),replace_string)
end function


'page exam

Function ExportPageInfo(ByRef PageCount,RecordCount,CurrentPage,PageSize,i,LinkFile)
	Dim retval, j, pageNumber, BasePage
	If CurrentPage = "" Then currentpage = 1 else currentpage = cint(CurrentPage)
	retval = "第" & CurrentPage & "页/共" & PageCount & "页 " 
	retval = retval & "本页" & i & "条/共" & RecordCount & "条 "
	If CurrentPage = 1 Then              
		retval = retval & "首页 前页 "             
	Else
		retval = retval & "<a href='" & LinkFile & "page=1'>首页</a> <a href='" & LinkFile & "page=" & cstr(CurrentPage - 1) & "'>前页</a> "
	End If
	If  CurrentPage = PageCount Then             
		retval = retval & "后页 末页"
	Else
		retval = retval & "<a href='" & LinkFile & "page=" & cstr(CurrentPage + 1) & "'>后页</a> <a href='" & LinkFile & "page=" & cstr(PageCount) & "'>末页</a>"
	End if
 	retval = retval & " | "
	BasePage = (CurrentPage \ 10) * 10
	If BasePage > 0 Then retval = retval & " <a href='" & LinkFile & "page=" & (BasePage - 9) & "'><<</a>"
	For j = 1 to 10
		pageNumber = BasePage + j
		If PageNumber > pagecount Then Exit For
		If pageNumber = Cint(CurrentPage) Then
			retval =  retval & " <font color='#FF0000'>" & pageNumber & "</font>"
		Else
			retval =  retval & " <a href='" & LinkFile & "page=" & pageNumber & "'>" & pageNumber & "</a>"
		End If
	Next
	if PageCount < BasePage + 11 then
		retval = retval & " >>"
	else
		If pagecount > BasePage Then retval = retval & " <a href='" & LinkFile & "page=" & (BasePage + 11) & "'>>></a>"
	end if
	ExportPageInfo = retval
End Function	

function cms_picture_show(byval sortid,line_cols,line_coms,is_default_size,width,height,display_title,max_length,currentpage)
' by jaron , 2003-06-16
'分类_是否为默认大小_宽_高_显示标题_标题长度
	Set Rs=Server.CreateObject("ADODB.Recordset")
'	sql = "sp_sitemanager_picture_show " & sortid
	if line_coms=0 then line_coms=1
	if line_cols=0 then line_cols=1
	maxrecords = line_cols*line_coms
	if sortid>0 then
		sql = "SELECT top " & maxrecords & " tblArticles.id,tblArticles.news_title,tblArticles.title_color,tblArticles.images,tblArticles.img_width,tblArticles.img_height,tblArticles.date_time,tblArticles.class_id,tblCategory.PHYSICAL_PATH,tblArticles.news_content FROM tblArticles LEFT OUTER JOIN tblCategory ON tblArticles.class_id = tblCategory.class_id where images<>'' and tblArticles.admincheck=1 and tblArticles.class_id=" & sortid & " order by id desc"
	else
		sql = "SELECT top " & maxrecords & " tblArticles.id,tblArticles.news_title,tblArticles.title_color,tblArticles.images,tblArticles.img_width,tblArticles.img_height,tblArticles.date_time,tblArticles.class_id,tblCategory.PHYSICAL_PATH,tblArticles.news_content FROM tblArticles LEFT OUTER JOIN tblCategory ON tblArticles.class_id = tblCategory.class_id where images<>'' and tblArticles.admincheck=1 order by id desc"
	end if
	if is_default_size=0 then picture_size = "width=" & height & " height=" & height & "" else	picture_size = ""
	table_start = "<table width=""98%"" border=""0"" align=""center"" cellPadding=""0"" cellSpacing=""0"">"
	rs.Open sql,Conn,1,1
	i=0
	TotalPages = rs.PageCount
	rs.PageSize = 5 * line_cols
	rs.AbsolutePage = currentpage
	Do While Not rs.EOF and i<rs.pagesize
		if i mod line_cols = 0 then table_data = table_data & "<tr>"
		LINK_URL = getHTMLFileName(rs(6),rs(0),rs(7),rs(8))
		table_data = table_data & "<td width= height= align=middle title=><a href=" & LINK_URL & "><img border=0 " & picture_size & " src="&rs(3)&"></a><br>"&rs(1)&"</td><td width=5>　</td>"
		'if i mod line_cols then response.Write "</tr>"
		i = i + 1
		rs.movenext
	loop
	rs.close
	set rs=nothing
	table_end = "</tr></table>"
	cms_picture_show = table_start & table_data & table_end
end function


function Ary2SQLString(AryString,Col,isINT,strSplit,ConnectionString)
	strAry = split(AryString,strSplit)
	if AryString <>"" then
		for tmp = 0 to ubound(strAry)
			if isINT = 1 then
				Ary2SQLString = Ary2SQLString & " " & Col & "=" & clng(trim(strAry(tmp))) & " " & ConnectionString & " "
			else
				Ary2SQLString = Ary2SQLString & " " & Col & "='" & clng(trim(strAry(tmp))) & "' " & ConnectionString & " "
			end if
		next
		Ary2SQLString = left(Ary2SQLString,len(Ary2SQLString)-(len(ConnectionString)+1))
	else
		Ary2SQLString = " 1=2"
	end if
end function


public function Show_Const_Value(byval DefaultValue,Lists)
	Show_Const_Value = DefaultValue
	dim ListsAry,tmp
	ListsAry = split(Lists,",")
	for tmp = 0 to ubound(ListsAry)
		ListsArys = split(ListsAry(tmp),"|")
		if DefaultValue = ListsArys(0) then Show_Const_Value = ListsArys(1)
	next
end function

public function Show_Const_Option_List(byval Lists)
	dim ListsAry,tmp
	ListsAry = split(Lists,",")
	for tmp = 0 to ubound(ListsAry)
		ListsArys = split(ListsAry(tmp),"|")
		Show_Const_Option_List = Show_Const_Option_List & "<option value=""" & ListsArys(0) & """>" & ListsArys(1) & "</option>"
	next
end function

Function findurl(thisurl)
	if thisurl <> "" Then
	findurl=""
	strlen=InStr(8,thisurl,"/")
	If strlen=0 Then strlen =1
	findurl=Mid(thisurl,strlen,28)
	end if
end Function

function findurlpath(thisurl)
	thisurl = replace(thisurl,"//","@@")
	ary_tmp = split(thisurl,"/")
	for tmp = 0 to ubound(ary_tmp)
		if tmp < ubound(ary_tmp) then
			urltmp = urltmp & "/" & ary_tmp(tmp)
		end if
	next
	urltmp = right(urltmp,len(urltmp)-1)
	findurlpath = replace(urltmp,"@@","//") & "/"
end function

function findurlhost(thisurl)
	thisurl = replace(thisurl,"//","@@")
	ary_tmp = split(thisurl,"/")
	urltmp = ary_tmp(0)
	findurlhost = replace(urltmp,"@@","//") & "/"
	findurlhost = left(findurlhost,len(findurlhost)-1)
end function

function ReleaseResources()
	set FSO = nothing
	set ADO = nothing
	set CDONTS = nothing
	set S_COMMON = nothing
	set S_ENCRYPTING = nothing
	set S_JAVASCRIPT = nothing
	set rs=nothing
	Conn.close
	Set conn = Nothing
end function

Function HtmlFormcode(ByVal fString)
    If Not IsNull(fString) Then
        fString = Replace(fString, ">", "&gt;")
        fString = Replace(fString, "<", "&lt;")
        fString = Replace(fString, Chr(34), "&quot;")
        HtmlFormcode = fString
    End If
End Function

function FindStringTimes(strContent,start_string,end_string) 'start_string 与 end_string 之间字符出次的数
	if strContent<>"" then FindStringTimes = ubound(split(strContent,start_string)) else FindStringTimes = 0
end function

function geturlencodel(byval url)'中文文件名转换
	Dim i,code
	geturlencodel=""
	if trim(Url)="" then exit function
	for i=1 to len(Url)
		code=Asc(mid(Url,i,1))
		if code<0 Then code = code + 65536
		If code>255 Then
			geturlencodel=geturlencodel&"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2)
		else
			geturlencodel=geturlencodel&mid(Url,i,1)
		end if
	next
end function 

%>