城杆

<%
'函数名 count
'作用 让1与变成001,如果是三位数的话
function count(cou)
cou=int(cou)
lon=3    '设置长度
for k=1 to (lon-len(cou))
z="0"
couz=couz&z
next
count=couz&cou
z=null
couz=null
cou=null
k=null
end function
%>

<%
function foot(abc)
abc=split(abc,";")
for i=0 to ubound(abc)
    str =abc(i)&chr(10)
    str = Split(str,"|")
    response.write "<a  href=" & Str(1)
    If Str(2)=1 Then Response.Write " target=_blank "
    Response.Write ">" & Str(0) & "</a>" &chr(10)
next
end function
%>
<% abc="首页|index.asp|0;图片|pic.asp|0;文章|act.asp|0;教程|act.asp|0;blog|http://www.aixq.com|1" %>
<%= foot(abc) %>

   <div id="headline">
     <%
    exec="select * from cat where ( pcatid="&id&" or  pcatid in(select pcatid from cat where  id="&id&" and not (pcatid=0) order by list asc)) and view=1 order by list asc"
        set cat=server.createobject("adodb.recordset")
      cat.open exec,conn,1,1
      do while not cat.eof
      response.Write img&"<a href=class.asp?id="&cat("id")&">"&cat("catname")&"</a> "
      cat.movenext
      loop
      cat.close
      set cat=Nothing
    %>
   </div>

<%
c=now
while k<1110000
k=k+1
wend
d=now
response.write "while "& ((d-c)*24*60*60)& "秒<br>"
%>
<%
e=now
do while n<1110000
n=n+1
loop
f=now
response.write "do while "&((f-e)*24*60*60)& "秒<br>"
%>

<%
a=now
for i=1 to 1110000
 next
b=now
response.write "for "& ((b-a)*24*60*60)& "秒<br>"
%>

<%
c=now
while k<>1110000
k=k+1
wend
d=now
response.write "while "& ((d-c)*24*60*60)& "秒<br>"
%>
<%
e=now
do while n<>1110000
n=n+1
loop
f=now
response.write "do while "&((f-e)*24*60*60)& "秒<br>"
%>

<%
a=now
for i=1 to 1110000
 next
b=now
response.write "for "& ((b-a)*24*60*60)& "秒<br>"
%>

<%
c=now
while k<>1110000
k=k+1
wend
d=now
response.write "while "& ((d-c)*24*60*60)& "秒<br>"
%>
<%
e=now
do while n<>1110000
n=n+1
loop
f=now
response.write "do while "&((f-e)*24*60*60)& "秒<br>"
%>

<%
a=now
for i=1 to 11110000 '给它多加了一位
 next
b=now
response.write "for "& ((b-a)*24*60*60)& "秒<br>"
%>

<%
''文件删除函数
function deletefile(filename)
if filename<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename) then
fso.DeleteFile filename
else
Response.Write "<script>alert(''该文件不存在'');</script>"
end if
end if
end function

strfile=server.MapPath("fileName")
deletefile(strfile)
%>





'程序名：delfile.asp
'关键参数：struploadfiles 文件名称
例：<a href="/delfile.asp?action=test.rar">删除test.rar文件</a>

<%
struploadfiles=trim(request.querystring("struploadfiles"))
action=trim(request.querystring("action"))
response.write "成功删除<font color=red>"&struploadfiles&"</font>文件!"
call delfiles(struploadfiles & "")
sub delfiles(struploadfiles)
if struploadfiles="" then exit sub
dim fso,arruploadfiles,i
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
response.write"<script language=javascript>alert('成功删除文件,将返回上一页!');"
response.write"this.location.href='javascript:history.back();'</script>"
end sub
%>





<%
''文件删除函数
function deletefile(filename)
if filename<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename) then
fso.DeleteFile filename
else
Response.Write "<script>alert(''该文件不存在'');</script>"
end if
end if
end function

strfile=server.MapPath("fileName")
deletefile(strfile)
%>