📄 commoncode.asp
字号:
else
strTemp=strTemp & "<a href=""" & strUrl & "page=1"">首页</a> "
strTemp=strTemp & "<a href=""" & strUrl & "page=" & (Page-1) & """>上一页</a> "
end if
if n-Page<1 then
strTemp=strTemp & "下一页 尾页"
else
strTemp=strTemp & "<a href=""" & strUrl & "page=" & (Page+1) & """>下一页</a> "
strTemp=strTemp & "<a href=""" & strUrl & "page=" & n & """>尾页</a>"
end if
strTemp=strTemp & " 页次：<strong><font color=""#FF0000"">" & Page & "</font>/" & n & "</strong>页 "
strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页"& vbCrLf
if ShowAllPages=True then
strTemp=strTemp & " 转到：<select name=""page"" size=""1"" onchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">"& vbCrLf
for i = 1 to n
strTemp=strTemp & "<option value=""" & i & """"
if cint(Page)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">第" & i & "页</option>"
next
strTemp=strTemp & "</select>"& vbCrLf
end if
strTemp=strTemp & "</td></tr></table>"& vbCrLf
response.write strTemp
End Function
'******************************************
'函数名: Showpages(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
'作用:返回分页连接
'参数:sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnitU
'返回值：
'******************************************
Function showpages(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "<table align=""center""><tr><td>"& vbCrLf
strTemp=strTemp & "共<font color=""#0000FF""><b>" & totalnumber & "</b></font>" & strUnit & " "
strUrl=JoinChar(sfilename)
if Page<2 then
strTemp=strTemp & "首页 上一页 "
else
strTemp=strTemp & "<a href=""" & strUrl & "page=1"">首页</a> "
strTemp=strTemp & "<a href=""" & strUrl & "page=" & (Page-1) & """>上一页</a> "
end if
if n-Page<1 then
strTemp=strTemp & "下一页 尾页"
else
strTemp=strTemp & "<a href=""" & strUrl & "page=" & (Page+1) & """>下一页</a> "
strTemp=strTemp & "<a href=""" & strUrl & "page=" & n & """>尾页</a>"
end if
strTemp=strTemp & " 页次：<strong><font color=""#FF0000"">" & Page & "</font>/" & n & "</strong>页 "
strTemp=strTemp & " <b>"&maxperpage&"</b>" & strUnit & "/页"& vbCrLf
if ShowAllPages=True then
strTemp=strTemp & "<select name=""page"" size=""1"" onchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">"& vbCrLf
for i = 1 to n
strTemp=strTemp & "<option value=""" & i & """"
if cint(Page)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">第" & i & "页</option>"
next
strTemp=strTemp & "</select>"& vbCrLf
end if
strTemp=strTemp & "</td></tr></table>"& vbCrLf
showpages=strTemp
End Function
'********************************************************
'连接地址格式化
'********************************************************
Function FormatLink(Dates,Cid,Tid,Nid,Pnum)
if not isNumeric(Cid) then
exit function
end if
LinkUrl=InstallDir
set rsc=conn.execute("select * from JOB_Channel where ChannelID="&Cid&"")
if CreateHTML=1 then
if Cid<>0 and isNumeric(Cid) then
if rsc("UseCreateHTML")<>0 then
Set fso = Server.CreateObject(FR_HR_FSO)
if not fso.FolderExists(server.MapPath(LinkUrl&HTMLPath)) Then
fso.CreateFolder (server.MapPath(LinkUrl&HTMLPath))
end if
if not fso.FolderExists(server.MapPath(LinkUrl&HTMLPath&"/"&rsc("ChannelDir"))) Then
fso.CreateFolder (server.MapPath(LinkUrl&HTMLPath&"/"&rsc("ChannelDir")))
end if
if Cid<>0 and isNumeric(Cid) and Nid=0 and Tid=0 then
Select Case rsc("FileExt_Index")
Case 0
lists=".html"
Case 1
lists=".htm"
Case 2
lists=".shtml"
Case 3
lists=".shtm"
Case 4
lists=".asp"
End Select
LinkUrl=LinkUrl&HTMLPath&"/"&rsc("ChannelDir")&"/index"&lists&""
else
LinkUrl=LinkUrl&HTMLPath&"/"&rsc("ChannelDir")
end if
if Tid<>0 and isNumeric(Tid) and Nid=0 then
Select Case rsc("FileExt_List")
Case 0
lists=".html"
Case 1
lists=".htm"
Case 2
lists=".shtml"
Case 3
lists=".shtm"
Case 4
lists=".asp"
End Select
if rsc("ListFileType")=0 then
if not fso.FolderExists(server.MapPath(LinkUrl&"/list")) Then
fso.CreateFolder (server.MapPath(LinkUrl&"/list"))
end if
LinkUrl=LinkUrl&"/list/list_"&Tid&""
else
LinkUrl=LinkUrl&"/list_"&Tid&""
end if
If Pnum<>0 and Pnum<>1 then
LinkUrl=LinkUrl&"_"&Pnum&lists&""
else
LinkUrl=LinkUrl&lists&""
end if
end if
if Nid<>0 and isNumeric(Nid) and Tid<>0 then
Select Case rsc("FileExt_Item")
Case 0
htmls=".html"
Case 1
htmls=".htm"
Case 2
htmls=".shtml"
Case 3
htmls=".shtm"
Case 4
htmls=".asp"
End Select
Select Case Cid
Case 1
LinkUrl=LinkUrl&"/Person_"&FormatDate(Dates,7)&Nid&htmls&""
Case 2
Select Case Tid
Case 1
LinkUrl=LinkUrl&"/Company_"&FormatDate(Dates,7)&Nid&htmls&""
Case 2
LinkUrl=LinkUrl&"/Hires_"&FormatDate(Dates,7)&Nid&htmls&""
Case 3
LinkUrl=LinkUrl&"/Hire_"&FormatDate(Dates,7)&Nid&htmls&""
End Select
Case else
Select Case rsc("FileNameType")
Case 0
htmlFileName=Nid
Case 1
htmlFileName=FormatDate(Dates,7)
Case 2
htmlFileName=rsc("ChannelDir")&"_"&Nid
Case 3
htmlFileName=rsc("ChannelDir")&"_"&FormatDate(Dates,7)
End Select
if rsc("StructureType")=0 then
if not fso.FolderExists(server.MapPath(LinkUrl&"/html")) Then
fso.CreateFolder (server.MapPath(LinkUrl&"/html"))
end if
LinkUrl=LinkUrl&"/html/"&htmlFileName&htmls&""
else
if not fso.FolderExists(server.MapPath(LinkUrl&"/"&FormatDate(Dates,5))) Then
fso.CreateFolder (server.MapPath(LinkUrl&"/"&FormatDate(Dates,5)))
end if
LinkUrl=LinkUrl&"/"&FormatDate(Dates,5)&"/"&htmlFileName&htmls&""
end if
End Select
end if
else
select Case Cid
Case 6
if Pnum<>0 and isNumeric(Pnum) then
LinkUrl=LinkUrl&rsc("ChannelDir")&"/index.asp?page="&Pnum&""
end if
Case else
LinkUrl=LinkUrl&HTMLPath&rsc("ChannelDir")&"/index.asp"
End Select
end if
else
LinkUrl=LinkUrl&HTMLPath&"/index.html"
end if
else
LinkUrl=LinkUrl&rsc("ChannelDir")
select Case Cid
Case 1
Select Case Tid
Case 1
LinkUrl=LinkUrl&"/cnresume_view.asp?rid="&Nid&""
End Select
Case 2
if Tid<>0 and isNumeric(Tid) and Nid=0 then
End if
if Nid<>0 and isNumeric(Nid) and Tid<>0 then
Select Case Tid
Case 1
LinkUrl=LinkUrl&"/company.asp?comid="&Nid&""
Case 2
LinkUrl=LinkUrl&"/hires.asp?comid="&Nid&""
Case 3
LinkUrl=LinkUrl&"/hire.asp?hireid="&Nid&""
End Select
end if
Case 3
Case 4
Case 5
Case 6
if Pnum<>0 and isNumeric(Pnum) then
LinkUrl=LinkUrl&"/index.asp?page="&Pnum&""
end if
Case 7
Case 8
Case 9
Case 10
if Tid<>0 and isNumeric(Tid) and Nid=0 then
LinkUrl=LinkUrl&"/List.asp?typeid="&Tid&""
if Pnum<>0 and isNumeric(Pnum) then
LinkUrl=LinkUrl&"&page="&Pnum&""
end if
End if
if Nid<>0 and isNumeric(Nid) and Tid<>0 then
LinkUrl=LinkUrl&"/Article.asp?newsid="&Nid&""
end if
Case 11
Case else
if Tid<>0 and isNumeric(Tid) and Nid=0 then
LinkUrl=LinkUrl&"/List.asp?typeid="&Tid&""
End if
if Nid<>0 and isNumeric(Nid) and Tid<>0 then
LinkUrl=LinkUrl&"/Article.asp?newsid="&Nid&""
end if
End Select
end if
set rsc=nothing
FormatLink=LinkUrl
End Function
'***************************************************
''函数名：AdminCounts
''作 用：通用后台统计函数
''参 数：tabname,zdname,zdvalue,zdnames,zdvalues
''返回值：
'***************************************************
Function AdminCounts(tabname,zdname,zdvalue,zdnames,zdvalues)
Set ACRs=Server.Createobject(FR_HR_Rs)
ACSql="Select * From "&tabname&""
if zdname<>"" then
IF IsNumeric(zdvalue)=False then
ACSql=ACSql&" where "&zdname&"='"&zdvalue&"'"
else
ACSql=ACSql&" where "&zdname&"="&zdvalue&""
end if
end if
if zdnames<>"" then
IF IsNumeric(zdvalues)=False then
ACSql=ACSql&" and "&zdnames&"='"&zdvalues&"'"
else
ACSql=ACSql&" and "&zdnames&"="&zdvalues&""
end if
end if
'Response.Write(ACSql)
'Response.end()
ACRs.Open ACSql,conn,1,1
AdminCounts=ACRs.RecordCount
ACRs.Close
Set ACRs=Nothing
End Function
Function MemberCount(tabname,zdname,zdvalue)
Set ACRs=Server.Createobject(FR_HR_Rs)
ACSql="Select * From "&tabname&""
if zdname<>"" then
ACSql=ACSql&" where "&zdname&"='"&zdvalue&"'"
end if
ACRs.Open ACSql,conn,1,1
MemberCount=ACRs.RecordCount
ACRs.Close
Set ACRs=Nothing
End Function
Function MemberCounts(tabname,zdname,zdvalue,zdnames,zdvalues)
Set ACRs=Server.Createobject(FR_HR_Rs)
ACSql="Select * From "&tabname&""
if zdname<>"" then
ACSql=ACSql&" where "&zdname&"='"&zdvalue&"'"
end if
if zdnames<>"" then
ACSql=ACSql&" and "&zdnames&"="&zdvalues&""
end if
ACRs.Open ACSql,conn,1,1
MemberCounts=ACRs.RecordCount
ACRs.Close
Set ACRs=Nothing
End Function
Function AdminCount(tid,Aud)
Set Rs=Server.Createobject(FR_HR_Rs)
Sql="Select * From JOB_Member"
if tid<>0 then
Sql=Sql&" Where Member_typeid="&tid&""
end if
If Aud=0 then
if tid<>0 then
Sql=Sql&" and Member_flag="&Aud&""
else
Sql=Sql&" where Member_Auditing="&Aud&""
end if
end if
Sql=Sql&" order by Member_id desc"
Rs.Open Sql,conn,1,1
AdminCount=Rs.RecordCount
Rs.Close
Set Rs=Nothing
End Function
'********************************************************
'日期格式化
'********************************************************
Function FormatDate(DT,tp)
dim Y,M,D
Y=Year(DT)
M=month(DT)
D=Day(DT)
H=Hour(DT)
MI=Minute(DT)
S=Second(DT)
if M<10 then M="0"&M
if D<10 then D="0"&D
if H<10 then H="0"&H
if MI<10 then MI="0"&MI
if S<10 then S="0"&S
select case tp
case 1 FormatDate=Y&"年"&M&"月"&D&"日"
case 2 FormatDate=Y&"/"&M&"/"&D
case 3 FormatDate=M&"/"&D
case 4 FormatDate=Y&"\"&M&"\"&D
case 5 FormatDate=Y&M
case 6 FormatDate=Y&M&D
case 7 FormatDate=Y&M&D&H&MI&S
case 8 FormatDate=Y&"-"&M&"-"&D
case 9 FormatDate=M&"-"&D
end select
End Function
'**************************************************
'函数名：IsObjInstalled
'作 用：检测组件
'参 数：strClassString ----组件名
'返回值：True 或 False
'**************************************************
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
''**************************************************
''函数名：CheckStr
''作 用：检测ID值
''参 数：Str ----字符
''返回值：True 或 False
''**************************************************
'Function CheckStr(Str)
' If Not isNumeric(Str) or Str="" then
' CheckStr=True
' Elseif isNull(Str) then
' CheckStr=True
' Else
' CheckStr=False
' End if
'End Function
function CheckStr(str)
if str<>"" and not isnull(str) then
CheckStr=replace(str,"'","'")
CheckStr=replace(CheckStr, ">", ">")
CheckStr=replace(CheckStr, "<", "<")
CheckStr=replace(CheckStr, " ", " ")
end if
end function
function CheckStrbox(str)
if str<>"" and not isnull(str) then
CheckStrbox=replace(str,"'","'")
CheckStrbox=replace(CheckStrbox, ">", ">")
CheckStrbox=replace(CheckStrbox, "<", "<")
CheckStrbox=replace(CheckStrbox, " ", " ")
CheckStrbox=replace(CheckStrbox, chr(13), "<br>")
end if
end function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -