config.asp

gmaple软件下载系统1.0Beta 具有一下功能: 1.模板功能,前台的呈现更加灵活. 2.支持静态生成,可在动态与静态间随时切换. 3.在静态模式下,可自定义生成目录,生成方式灵活.

	t=0
	for ij=1 to l
		c=Abs(Asc(Mid(cvSt,ij,1)))
		if c>255 then
			t=t+2
		else t=t+1
		end if
		if t>=strlen then
		cutStr=left(cvSt,ij)&endStr
		exit for
		else cutStr=cvSt
		end if
	next
	if strlen=0 then
		cutStr=Str
		exit function 
	end if
	cutStr=replace(cutStr,chr(10),"")
	cutStr=replace(cutStr,chr(0),"")
end Function

Function DelJS(strHtml)
	Dim objRegExp, strOutput
	Set objRegExp = New Regexp '建立正则表达式
	objRegExp.IgnoreCase = True '' 设置是否区分大小写
	objRegExp.Global = True	'是匹配所有字符串还是只是第一个
	objRegExp.Pattern = "<script[\s\S]+</script *>" '设置模式引号中的是正则表达式，用来找出html标签
	strOutput = objRegExp.Replace(strHtml, "") 	''将html标签去掉
	strOutput = Replace(strOutput, "<", "<") 	'防止非html标签不显示
	strOutput = Replace(strOutput, ">", ">") 
	DelJS = strOutput
	Set objRegExp = Nothing
End Function


'要控制被删除的标签列表,可以通过向TAGLIST常数中添加/删除标记来实现. 例如,要保留所有的<B>标签,则从TAGLIST中删除B. 当前的列表包含了MSDN中的所有html标签以及 LAYER 标签. 每个标签要用";"括起来. 
'开始标签和结束标签都会被删除,例如"<A...>"和</A...>  
'若标签同时在 TAGLIST 和 BLOCKTAGLIST 常数中,则起始标签和结束标签之间的所有内容都会被删除  
'没有结束标记的标签不被视为html标签,其内容不会被删除  
'块标签若没有结尾标记,从此标签开始到文本结束的所有内容会被删除  
'strPlainText = RemoveHTML(strTextWithHTML)
Function RemoveHTML( strText ) 
    Dim TAGLIST 
    TAGLIST = ";A;DIV;"
    Const BLOCKTAGLIST = ";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;"      
    Dim nPos1 
    Dim nPos2 
    Dim nPos3 
    Dim strResult 
    Dim strTagName 
    Dim bRemove 
    Dim bSearchForBlock      
    nPos1 = InStr(strText, "<") 
    Do While nPos1 > 0 
        nPos2 = InStr(nPos1 + 1, strText, ">") 
        If nPos2 > 0 Then 
            strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1) 
        strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ") 

            nPos3 = InStr(strTagName, " ") 
            If nPos3 > 0 Then 
                strTagName = Left(strTagName, nPos3 - 1) 
            End If 
If Left(strTagName, 1) = "/" Then 
                strTagName = Mid(strTagName, 2) 
                bSearchForBlock = False 
            Else 
                bSearchForBlock = True 
            End If 
             
            If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then 
                bRemove = True 
                If bSearchForBlock Then 
                    If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then 
                        nPos2 = Len(strText) 
                        nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, vbTextCompare) 
                        If nPos3 > 0 Then 
                            nPos3 = InStr(nPos3 + 1, strText, ">") 
                        End If 
                         
                        If nPos3 > 0 Then 
                            nPos2 = nPos3 
                        End If 
                    End If 
                End If 
            Else 
bRemove = False 
            End If 
             
            If bRemove Then 
                strResult = strResult & Left(strText, nPos1 - 1) 
                strText = Mid(strText, nPos2 + 1) 
            Else 
                strResult = strResult & Left(strText, nPos1) 
                strText = Mid(strText, nPos1 + 1) 
            End If 
        Else 
            strResult = strResult & strText 
            strText = "" 
        End If 
         
        nPos1 = InStr(strText, "<") 
    Loop 
    strResult = strResult & strText 
     
    RemoveHTML = strResult 
End Function


'------------------------
'分页
'maxpage		没什么用,看看每页多少条数
'thepages		分页数
'viewpage		当前页
'pageurl		链接
'pp				当前显示可点击的链接数
'font_color		字体颜色
'-------------------------
Const btn_first="<font style=""font-size:12px;"">第一页</font>"  '定义第一页按钮显示样式
Const btn_prev="<font style=""font-size:12px;"">前一页</font>"  '定义前一页按钮显示样式
Const btn_next="<font style=""font-size:12px;"">下一页</font>"  '定义下一页按钮显示样式
Const btn_last="<font style=""font-size:12px;"">尾页</font>"  '定义最后一页按钮显示样式

function jk_pagecute(maxpage,thepages,viewpage,pageurl,pp,font_color)
  if int(thepages)=0 then
    jk_pagecute="<font color=" & font_color & "> "&btn_first&" <b>1</b> "&btn_last&" </font>"
    exit function
  end if
  dim pi,ppp,pl,pr
  pi=1
  ppp=pp\2
  if pp mod 2 = 0 then ppp=ppp-1
  pl=viewpage-ppp
  pr=pl+pp-1
  if pl<1 then
    pr=pr-pl+1
    pl=1
    if pr>thepages then pr=thepages
  end if
  if pr>int(thepages) then
    pl=pl+thepages-pr
    pr=thepages
    if pl<1 then pl=1
  end if
  if int(viewpage)=1 then
     jk_pagecute=jk_pagecute&" <font color=" & font_color & "> "&btn_first&" </font> "
  else
     jk_pagecute=jk_pagecute&" <a href='"& pageurl &"' title='第一页'>"&btn_first&"</a> "
  end if
  if int(viewpage)>1 then
	 jk_pagecute=jk_pagecute&" <a href='"& pageurl &"page="&viewpage-1&"' title='上一页'>"&btn_prev&"</a> "
  end if
  for pi=pl to pr
    if cint(viewpage)=cint(pi) then
      jk_pagecute=jk_pagecute&" <font color=" & font_color & " face=黑体><b>" & pi & "</b></font> "
    else
      jk_pagecute=jk_pagecute&" <a href='"& pageurl &"page="& pi &"' title='第 " & pi & " 页' clases=0 style=""font-family:黑体""><b>" & pi & "</b></a> "
    end if
  next
    if cint(viewpage)<cint(thepages) then 	  
	  jk_pagecute=jk_pagecute&" <a href='"& pageurl &"page="&viewpage+1&"' clases=0 title='后一页'>"&btn_next&"</a> "
    end if
	if cint(viewpage)=cint(thepages) then
      jk_pagecute=jk_pagecute&" <font color=" & font_color & "> "&btn_last&" </font> "
	else
	  jk_pagecute=jk_pagecute&" <a href='"& pageurl &"page="& thepages &"' title='最后一页'>"&btn_last&"</a> "
	end if
		jk_pagecute=jk_pagecute&"<input name='page_now' value="& viewpage &" type='hidden'>"
end function

'过程名：SD_FriendLinks
'作  用：显示友情链接站点
'参  数：LinkType  ----链接方式，1为LOGO链接，2为文字链接
'       SiteNum   ----最多显示多少个站点
'       Cols      ----一行显示几个
'       ShowType  ----显示方式。1为向上滚动，2为横向列表，3为下拉列表框
'       Speed  		----滚动速度,越大越慢
'SD_FriendLinks(1,5,1,1,1)
Function SD_FriendLinks(LinkType,SiteNum,Cols,ShowType,Speed)
	dim sqlLink,rsLink,SiteCount,i,strLink
	if LinkType<>1 and LinkType<>2 then
		LinkType=1
	else
		LinkType=Cint(LinkType)
	end if
	if SiteNum<=0 or SiteNum>100 then
		SiteNum=10
	end if
	if Cols<=0 or Cols>20 then
		Cols=10
	end if
	if ShowType=1 then'
        strLink=strLink & "<div id=rolllink style=""overflow:hidden;height:100%;width:100%;""><div id=rolllink1>"    '新增加的代码
	elseif ShowType=3 then
		strLink=strLink & "<select name='FriendSite' onchange=""if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}""><option value=''>友情文字链接站点</option>"
	end if
	if ShowType=1 or ShowType=2 then
		strLink=strLink & "<table width='100%' cellSpacing='5'><tr align='center' >"
	end if
	sqlLink="select Count(*) from [Link] where friend_allow=true"
	set rst=conn.execute(sqlLink)
		Url_Count=rst(0)
	rst.close
	
	sqlLink="select top " & SiteNum & " * from [Link] where friend_allow=true order by friend_show desc,friend_id desc"
	set rsLink=server.createobject("adodb.recordset")
	rsLink.open sqlLink,conn,1,1
	if rsLink.bof and rsLink.eof then
		if ShowType=1 or ShowType=2 then
	  		for i=1 to SiteNum
				strLink=strLink & "<td>"			
				strLink=strLink & "</td>"
				if i mod Cols=0 and i<SiteNum then
					strLink=strLink & "</tr><tr align='center' >"
				end if
			next
		end if
	else
		SiteCount=rsLink.recordcount
		for i=1 to SiteCount
			if ShowType=1 or ShowType=2 then
			  if LinkType=1 then
				strLink=strLink & "<td width='88'><a href='" & rsLink("friend_url") & "' target='_blank' title='网站名称：" & rsLink("friend_title") & vbcrlf & "网站地址：" & rsLink("friend_url") & vbcrlf & "网站简介：" & rsLink("friend_info") & "'>"
				if rsLink("friend_pic")="" or rsLink("friend_pic")="http://" then
					strLink=strLink & "<img src='"&SiteUrl&"images/nologo.gif' width='88' height='31' border='0'>"
				else
					strLink=strLink & "<img src='"& SiteUrl &"Images/Upload/"& rsLink("friend_pic") & "' width='88' height='31' border='0'>"
				end if
				strLink=strLink & "</a></td>"
			  else
				strLink=strLink & "<td width='88'><a href='" & rsLink("friend_url") & "' target='_blank' title='网站名称：" & rsLink("friend_title") & vbcrlf & "网站地址：" & rsLink("friend_url") & vbcrlf & "网站简介：" & rsLink("friend_info") & "'>" & rsLink("friend_title") & "</a></td>"
			  end if
			  if i mod Cols=0 and i<SiteNum then
				strLink=strLink & "</tr><tr align='center' >"
			  end if
			else
				strLink=strLink & "<option value='" & rsLink("friend_url") & "'>" & rsLink("friend_title") & "</option>"
			end if
			rsLink.moveNext
		next
		if SiteCount<SiteNum and (ShowType=1 or ShowType=2) then
			for i=SiteCount+1 to SiteNum
				if LinkType=1 then
					strLink=strLink & "<td width='88'></td>"
				else
					strLink=strLink & "<td width='88'></td>"
				end if
				if i mod Cols=0 and i<SiteNum then
					strLink=strLink & "</tr><tr align='center' >"
				end if
			next
		end if
	end if
	if ShowType=1 or ShowType=2 then
		strLink=strLink & "</tr></table>"
	end if
	if ShowType=1 then
        strLink=strLink & "</div><div id=rolllink2></div></div>"   '新增代码
	elseif ShowType=3 then
		strLink=strLink & "</select>"
	end if
	rsLink.close
	set rsLink=nothing
	if Url_Count<>0 then
		if ShowType=1 or ShowType=2 then
			strLink=strLink&"<script language='javascript'>"
			strLink=strLink&"var rollspeed="&Speed&";"&vbCrlf
			strLink=strLink&"rolllink2.innerHTML=rolllink1.innerHTML; //克隆rolllink1为rolllink2"&vbCrlf
			strLink=strLink&"function Marquee(){"&vbCrlf
			strLink=strLink&"if(rolllink2.offsetTop-rolllink.scrollTop<=0)"&vbCrlf
			strLink=strLink&"rolllink.scrollTop-=rolllink1.offsetHeight"&vbCrlf
			strLink=strLink&"else{"&vbCrlf
			strLink=strLink&"rolllink.scrollTop++"&vbCrlf
			strLink=strLink&"}"&vbCrlf
			strLink=strLink&"}"&vbCrlf
			strLink=strLink&"var MyMar=setInterval(Marquee,rollspeed)"&vbCrlf
			strLink=strLink&"rolllink.onmouseover=function() {clearInterval(MyMar)}"&vbCrlf
			strLink=strLink&"rolllink.onmouseout=function() {MyMar=setInterval(Marquee,rollspeed)}"&vbCrlf
			strLink=strLink&"</script>"&vbCrlf
		end if
	end if
	SD_FriendLinks=strLink
End Function

'Soft_Counts   软件数目
'Soft_Sizes			总软件大小
'Soft_Downs		下载次数
'id  变量,某一分类数目
'<script language="javascript" src="Count.asp?Count_type=Soft_Sizes"><\/script>
Function SD_SiteInfo(obj)
		SD_SiteInfo="<script language=""javascript"" src="""&SiteUrl&"Inc/Count.asp?Count_type="&obj&"""></script>"
End Function
%>