?? function.asp
字號:
<%
'*****************************************************************
'超級管理員身份驗證函數(shù)
function chkMaster(ChkUser)
chkMaster=false
set chkrs=server.createobject("adodb.recordset")
sql="select isAdmin from Admin_UserInfo where CategoryName='"&CategoryName&"' and UserName='"&ChkUser&"'"
chkrs.open sql,conn,1,1
if not (chkrs.bof and chkrs.eof) then
if chkrs("isAdmin")=True then chkMaster=true
end if
chkrs.close
set chkrs=nothing
end function
'****************************************************************
'檢驗用戶的發(fā)布和管理權(quán)限函數(shù)，在用戶查看權(quán)限及管理員設(shè)置用戶權(quán)限時用。
function chk_isPub(ChkUser,SubCateID,CatePub)
chk_isPub=false
temps_pub=split(CatePub, ",")
for i = 0 to ubound(temps_pub)
if trim(temps_pub(i))=trim(SubCateID) then
chk_isPub=true
exit for
end if
next
end function
function chk_isAdmin(ChkUser,SubCateID,adminCateAdm)
chk_isAdmin=false
temps_Adm=split(adminCateAdm, ",")
for i = 0 to ubound(temps_Adm)
if trim(temps_Adm(i))=trim(SubCateID) then
chk_isAdmin=true
exit for
end if
next
end function
'******************************************************************
'檢驗用戶的發(fā)布和管理權(quán)限函數(shù)，在用戶發(fā)布和管理文章時用。
function chkPubUser(ChkUser,SubCateID) '檢驗發(fā)布權(quán)限
chkPubUser=false
set chkrs=server.createobject("adodb.recordset")
sql="select CatePub,isActive from Admin_UserInfo where CategoryName='"&CategoryName&"' and UserName='"&ChkUser&"'"
chkrs.open sql,conn,1,1
if not (chkrs.bof and chkrs.eof) then
temps_pub=split(chkrs("CatePub"), ",")
for i = 0 to ubound(temps_pub)
if trim(temps_pub(i))=trim(SubCateID) and chkrs("isActive")=true then
chkPubUser=true
exit for
end if
next
end if
chkrs.close
set chkrs=nothing
end function
function chkAdmUser(ChkUser,SubCateID) '檢驗管理權(quán)限
chkAdmUser=false
set chkrs=server.createobject("adodb.recordset")
sql="select CateAdm,isActive from Admin_UserInfo where CategoryName='"&CategoryName&"' and UserName='"&ChkUser&"'"
chkrs.open sql,conn,1,1
if not (chkrs.bof and chkrs.eof) then
temps_Adm=split(chkrs("CateAdm"), ",")
for i = 0 to ubound(temps_Adm)
if trim(temps_Adm(i))=trim(SubCateID) and chkrs("isActive")=true then
chkAdmUser=true
exit for
end if
next
end if
chkrs.close
set chkrs=nothing
end function
'******************************************************************
'檢驗用戶對軟件的修改權(quán)。
function chkEditUser(ChkUser,SoftID)
chkEditUser=false
set chkrs=server.createobject("adodb.recordset")
sql="select isAdmin from Admin_UserInfo where CategoryName='"&CategoryName&"' and UserName='"&ChkUser&"'"
chkrs.open sql,conn,1,1
if not (chkrs.bof and chkrs.eof) then
if chkrs("isAdmin")=true then chkEditUser=true
end if
chkrs.close
sql="select SoftID from "&CategoryName&"_SoftInfo where username='"&trim(ChkUser)&"' and SoftID="&SoftID
set chkrs=server.createobject("adodb.recordset")
chkrs.open sql,conn,1,1
if not (chkrs.bof and chkrs.eof) then chkEditUser=True
chkrs.close
set chkrs=nothing
end function
'******************************************************************
'日期格式轉(zhuǎn)換函數(shù)
function DateTimeFormat(DateTime,Format)
select case Format
case "1"
DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&day(DateTime)&"日"
case "2"
DateTimeFormat=""&month(DateTime)&"月"&day(DateTime)&"日"
case "3"
DateTimeFormat=""&year(DateTime)&"/"&month(DateTime)&"/"&day(DateTime)&""
case "4"
DateTimeFormat=""&month(DateTime)&"/"&day(DateTime)&""
case "5"
DateTimeFormat=""&month(DateTime)&"月"&day(DateTime)&"日 "&FormatDateTime(DateTime,4)&""
case "6"
temp="周日,周一,周二,周三,周四,周五,周六"
temp=split(temp,",")
DateTimeFormat=temp(Weekday(DateTime)-1)
case else
DateTimeFormat=DateTime
end select
end function
'******************************************************************
'非法字符過濾函數(shù)
function checkStr(str)
if isnull(str) then
checkStr = ""
exit function
end if
checkStr=replace(str,"'","''")
end function
function browser(info)
if Instr(info,"NetCaptor 6.5.0")>0 then
browser="NetCaptor 6.5.0"
elseif Instr(info,"MyIe 3.1")>0 then
browser="MyIe 3.1"
elseif Instr(info,"NetCaptor 6.5.0RC1")>0 then
browser="NetCaptor 6.5.0RC1"
elseif Instr(info,"NetCaptor 6.5.PB1")>0 then
browser="NetCaptor 6.5.PB1"
elseif Instr(info,"MSIE 5.5")>0 then
browser="Internet Explorer 5.5"
elseif Instr(info,"MSIE 6.0")>0 then
browser="Internet Explorer 6.0"
elseif Instr(info,"MSIE 6.0b")>0 then
browser="Internet Explorer 6.0b"
elseif Instr(info,"MSIE 5.01")>0 then
browser="Internet Explorer 5.01"
elseif Instr(info,"MSIE 5.0")>0 then
browser="Internet Explorer 5.00"
elseif Instr(info,"MSIE 4.0")>0 then
browser="Internet Explorer 4.01"
else
browser="其它"
end if
end function
function system(info)
if Instr(info,"NT 5.1")>0 then
system=system+"Windows XP"
elseif Instr(info,"Tel")>0 then
system=system+"Telport"
elseif Instr(info,"webzip")>0 then
system=system+"webzip"
elseif Instr(info,"flashget")>0 then
system=system+"flashget"
elseif Instr(info,"offline")>0 then
system=system+"offline"
elseif Instr(info,"NT 5")>0 then
system=system+"Windows 2000"
elseif Instr(info,"NT 4")>0 then
system=system+"Windows NT4"
elseif Instr(info,"98")>0 then
system=system+"Windows 98"
elseif Instr(info,"95")>0 then
system=system+"Windows 95"
elseif instr(info,"unix") or instr(info,"linux") or instr(info,"SunOS") or instr(info,"BSD") then
system=system+"類Unix"
elseif instr(thesoft,"Mac") then
system=system+"Mac"
else
system=system+"其它"
end if
end function
'************************************************
function cutStr(str,strlen)
dim l,t,c
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
cutStr=left(str,i)&".."
exit for
else
cutStr=str
end if
next
cutStr=replace(cutStr,chr(10),"")
end function
Rem 判斷數(shù)字是否整形
function isInteger(para)
on error resume next
dim str
dim l,i
if isNUll(para) then
isInteger=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
end if
l=len(str)
for i=1 to l
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
isInteger=false
exit function
end if
next
isInteger=true
if err.number<>0 then err.clear
end function
Copyright = Copyright & "<!--" & vbcrlf
Copyright = Copyright & "'****************************************************************" & vbcrlf
Copyright = Copyright & "'* ActiveDown System XP Professional Edition Ver1.3 Build 0112" & vbcrlf
Copyright = Copyright & "'*" & vbcrlf
Copyright = Copyright & "'* 動感下載系統(tǒng)XP專業(yè)版 Ver1.3 Build 0112" & vbcrlf
Copyright = Copyright & "'*" & vbcrlf
Copyright = Copyright & "'* 版權(quán)所有: 動感網(wǎng)絡(luò)(mesky.net)" & vbcrlf
Copyright = Copyright & "'*" & vbcrlf
Copyright = Copyright & "'* 程序制作: 小張" & vbcrlf
Copyright = Copyright & "'*" & vbcrlf
Copyright = Copyright & "'* 個人購買: 高級版(HTML) 1200元/套 企業(yè)版(ASP+SQL Server) 800元/套" & vbcrlf
Copyright = Copyright & "'*" & vbcrlf
Copyright = Copyright & "'* 公司購買: 高級版(HTML) 1500元/套 企業(yè)版(ASP+SQL Server) 1000元/套" & vbcrlf
Copyright = Copyright & "'*" & vbcrlf
Copyright = Copyright & "'* 聯(lián)系方式: email:webmaster@mesky.net QQ:26934364 MSN:activeedu@msn.com" & vbcrlf
Copyright = Copyright & "'* " & vbcrlf
Copyright = Copyright & "'* 主頁地址: http://www.mesky.net 動感網(wǎng)絡(luò)" & vbcrlf
Copyright = Copyright & "'*" & vbcrlf
Copyright = Copyright & "'* 動感論壇: http://www.mesky.net/bbs/" & vbcrlf
Copyright = Copyright & "'* " & vbcrlf
Copyright = Copyright & "'****************************************************************" & vbcrlf
Copyright = Copyright & "'* " & vbcrlf
Copyright = Copyright & "'* ActiveDown System XP Professional Edition Ver1.3 Build 0112" & vbcrlf
Copyright = Copyright & "'* " & vbcrlf
Copyright = Copyright & "'* Copyright 2001-2003 mesky.net - All Rights Reserved." & vbcrlf
Copyright = Copyright & "'* " & vbcrlf
Copyright = Copyright & "'****************************************************************" & vbcrlf
Copyright = Copyright & " -->"
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -