char.asp

8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见： 猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他

<%
function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode2=""
       exit function
    end if
    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           case "<"
	                result=result+"&lt;"
	           case ">"
	                result=result+"&gt;"
              case chr(13)
	                result=result+"<br>"
	           case chr(34)
	                result=result+"&quot;"
	           case "&"
	                result=result+"&amp;"
              case chr(32)	           
	                'result=result+"&nbsp;"
	                if i+1<=l and i-1>0 then
	                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	                      
	                      result=result+"&nbsp;"
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+"&nbsp;"	                    
	                end if
	           case chr(9)
	                result=result+"    "
	           case else
	                result=result+mid(str,i,1)
         end select
       next 
       htmlencode2=result
   end function

function UpdateJs(pencat)
  dim foolcat,title
  dim js,strsql
  set js = server.CreateObject("ADODB.RecordSet")
  strSql = "SELECT TOP 9 DNclass.*,download.* FROM download,DNclass where DNclass.Nclassid=download.Nclassid ORDER BY download.id DESC"
  set js = conn.Execute (StrSql)
do until js.eof
	if len(js("showname"))>16 then
		title=left(js("showname"),16)+"..."
	else
		title=js("showname")
	end if
   foolcat = foolcat + "☉[<a href=http://www.softicq.com/download/index.asp?classid="&js("classid")&"&Nclassid="&js("Nclassid")&">"&js("Nclass")&"</a>]<a href=http://www.aspsky.net/download/list.asp?id="&js("id")&" title="&js("showname")&">" & title & "</a><span class=b2>("&js("dateandtime")&")</span><br>"
js.MoveNext
loop
'生成JS文件
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(jsdir)
fout.WriteLine foolcat
'关闭连接
fout.close
set fout = nothing
js.close
set js = nothing
end function

%>