📄 class_sys.asp
字号:
End If
End Sub
Public Sub showok(Str, url)
url = Trim(url)
If url <> "" Then
response.Write "<script language=JavaScript>alert(""" & Str & """);window.location='" & url & "'</script>"
Else
If comeurl = "" Then
response.Write "<script language=JavaScript>alert(""" & Str & """);history.go(-1)</script>"
Else
response.Write "<script language=JavaScript>alert(""" & Str & """);window.location='" & comeurl & "'</script>"
End If
End If
End Sub
Public Function type_city(province, city)
Dim tmpstr
tmpstr = "<select onchange=setcity(); name='province' >"
tmpstr = tmpstr & "<option value=''>----请选择省份----</option>"
tmpstr = tmpstr & "<option "
tmpstr = tmpstr & "value=安徽>安徽</option> <option value=北京>北京</option> "
tmpstr = tmpstr & "<option value=重庆>重庆</option> <option "
tmpstr = tmpstr & "value=福建>福建</option> <option value=甘肃>甘肃</option> "
tmpstr = tmpstr & "<option value=广东>广东</option> <option "
tmpstr = tmpstr & "value=广西>广西</option> <option value=贵州>贵州</option> "
tmpstr = tmpstr & "<option value=海南>海南</option> <option "
tmpstr = tmpstr & "value=河北>河北</option> <option value=黑龙江>黑龙江</option> "
tmpstr = tmpstr & "<option value=河南>河南</option> <option "
tmpstr = tmpstr & "value=香港>香港</option> <option value=湖北>湖北</option> "
tmpstr = tmpstr & "<option value=湖南>湖南</option> <option "
tmpstr = tmpstr & "value=江苏>江苏</option> <option value=江西>江西</option> "
tmpstr = tmpstr & "<option value=吉林>吉林</option> <option "
tmpstr = tmpstr & "value=辽宁>辽宁</option> <option value=澳门>澳门</option>"
tmpstr = tmpstr & "<option value=内蒙古>内蒙古</option> <option "
tmpstr = tmpstr & "value=宁夏>宁夏</option> <option value=青海>青海</option> "
tmpstr = tmpstr & "<option value=山东>山东</option> <option "
tmpstr = tmpstr & "value=上海>上海</option> <option value=山西>山西</option> "
tmpstr = tmpstr & "<option value=陕西>陕西</option> <option "
tmpstr = tmpstr & "value=四川>四川</option> <option value=台湾>台湾</option> "
tmpstr = tmpstr & "<option value=天津>天津</option> <option "
tmpstr = tmpstr & "value=新疆>新疆</option> <option value=西藏>西藏</option> "
tmpstr = tmpstr & "<option value=云南>云南</option> <option "
tmpstr = tmpstr & "value=浙江>浙江</option> <option "
tmpstr = tmpstr & "value=海外>海外</option></select>"
tmpstr = tmpstr & " <select name='city' >"
tmpstr = tmpstr & "</select>"
tmpstr = tmpstr & "<SCRIPT src=""inc/getcity.js""></SCRIPT>"
tmpstr = tmpstr & "<SCRIPT>initprovcity('" & province & "','" & city & "');</SCRIPT>"
type_city = tmpstr
End Function
Public Sub type_job(job)
Dim tmpstr
tmpstr = "<select name='job' id='job'><option value=''>----请选择职业----<option value='财会/金融'> 财会/金融<option value='工程师' > 工程师<option value='顾问' > 顾问<option value='计算机相关行业(Internet)' > 计算机相关行业 (Internet)<option value='计算机相关行业（其他）' > 计算机相关行业（其他）<option value='家庭主妇' > 家庭主妇<option value='教育/培训' > 教育/培训<option value='客户服务/支持' > 客户服务/支持<option value='零售商/手工工人' > 零售商/手工工人<option value='退休' > 退休<option value='无职业' > 无职业<option value='销售/市场/广告' > 销售/市场/广告<option value='学生' > 学生<option value='研究和开发' > 研究和开发<option value='一般管理' > 一般管理<option value='政府/军队' > 政府/军队<option value='执行官/高级管理' > 执行官/高级管理<option value='制造/生产/操作' > 制造/生产/操作<option value='专业人员（医药、法律等）' > 专业人员（医药、法律等）<option value='自雇/业主' > 自雇/业主<option value='其他' > 其他</select>"
response.Write (tmpstr)
%>
<SCRIPT language=javascript>
var jobObject = document.oblogform["job"];
for(var i = 0; i < document.oblogform["job"].options.length; i++) {
if (document.oblogform["job"].options[i].value=="<%=trim(job)%>")
{
document.oblogform["job"].selectedIndex = i;
}
}
</SCRIPT>
<%
End Sub
Public Sub type_dateselect(addtime, n)
Dim y, m, d, ttime
If addtime = "" Then ttime = ServerDate(Now()) Else ttime = addtime
response.Write ("<select name=selecty" & n & ">") & vbCrLf
For y = 2000 To 2010
If Year(ttime) = y Then
response.Write "<option value=" & y & " selected>" & y & "年</option>" & vbCrLf
Else
response.Write "<option value=" & y & ">" & y & "年</option>" & vbCrLf
End If
Next
response.Write "</select><select name=selectm" & n & ">" & vbCrLf
For m = 1 To 12
If Month(ttime) = m Then
response.Write "<option value=" & m & " selected>" & m & "月</option>" & vbCrLf
Else
response.Write "<option value=" & m & ">" & m & "月</option>" & vbCrLf
End If
Next
response.Write ("</select><select name=selectd" & n & ">") & vbCrLf
For d = 1 To 31
If Day(ttime) = d Then
response.Write "<option value=" & d & " selected>" & d & "日</option>" & vbCrLf
Else
response.Write "<option value=" & d & ">" & d & "日</option>" & vbCrLf
End If
Next
response.Write ("</select>") & vbCrLf
End Sub
Public Sub chk_commenttime()
Dim lasttime
lasttime = Session("chk_commenttime" & Replace(request.ServerVariables("REMOTE_ADDR"), ".", ""))
If IsDate(lasttime) Then
If DateDiff("s", lasttime, ServerDate(Now())) < setup(49, 0) Then
response.Write ("<script language=javascript>alert('" & setup(49, 0) & "秒后才能回复或评论。');window.history.back(-1);</script>")
response.End
End If
End If
End Sub
Public Function filtpath(Str)
If is_relativepath = 1 Then
Dim nurl
nurl = Trim("http://" & request.ServerVariables("SERVER_NAME"))
nurl = nurl & request.ServerVariables("SCRIPT_NAME")
nurl = Left(nurl, InStrRev(nurl, "/"))
filtpath = Replace(Str, nurl, "")
Else
filtpath = Str
End If
End Function
Public Function chkiplock()
Dim IPlock
IPlock = False
Dim locklist
locklist = Trim(setup(52, 0))
If locklist = "" Then Exit Function
Dim i, StrUserIP, StrKillIP
StrUserIP = userip
locklist = Split(locklist, vbCrLf)
If StrUserIP = "" Then Exit Function
StrUserIP = Split(userip, ".")
If UBound(StrUserIP) <> 3 Then Exit Function
For i = 0 To UBound(locklist)
locklist(i) = Trim(locklist(i))
If locklist(i) <> "" Then
StrKillIP = Split(locklist(i), ".")
If UBound(StrKillIP) <> 3 Then Exit For
IPlock = True
If (StrUserIP(0) <> StrKillIP(0)) And InStr(StrKillIP(0), "*") = 0 Then IPlock = False
If (StrUserIP(1) <> StrKillIP(1)) And InStr(StrKillIP(1), "*") = 0 Then IPlock = False
If (StrUserIP(2) <> StrKillIP(2)) And InStr(StrKillIP(2), "*") = 0 Then IPlock = False
If (StrUserIP(3) <> StrKillIP(3)) And InStr(StrKillIP(3), "*") = 0 Then IPlock = False
If IPlock Then Exit For
End If
Next
chkiplock = IPlock
End Function
Public Function showpage(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 = "<div id=""showpage"">"
If ShowTotal = True Then
strTemp = strTemp & "共" & totalnumber & strUnit & " "
End If
strUrl = JoinChar(sfilename)
If CurrentPage < 2 Then
strTemp = strTemp & "首页 上一页 "
Else
strTemp = strTemp & "<a href='" & strUrl & "page=1'>首页</a> "
strTemp = strTemp & "<a href='" & strUrl & "page=" & (CurrentPage - 1) & "'>上一页</a> "
End If
If n - CurrentPage < 1 Then
strTemp = strTemp & "下一页 尾页"
Else
strTemp = strTemp & "<a href='" & strUrl & "page=" & (CurrentPage + 1) & "'>下一页</a> "
strTemp = strTemp & "<a href='" & strUrl & "page=" & n & "'>尾页</a>"
End If
strTemp = strTemp & " 页次：" & CurrentPage & "/" & n & "</strong>页 "
strTemp = strTemp & " " & maxperpage & "" & strUnit & "/页"
If ShowAllPages = True Then
strTemp = strTemp & " 转到：<select name='page' size='1' onchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">"
For i = 1 To n
strTemp = strTemp & "<option value='" & i & "'"
If CInt(CurrentPage) = CInt(i) Then strTemp = strTemp & " selected "
strTemp = strTemp & ">" & i & "</option>"
Next
strTemp = strTemp & "</select>"
End If
strTemp = strTemp & "</div>"
showpage = strTemp
End Function
Public Function JoinChar(strUrl)
If strUrl = "" Then
JoinChar = ""
Exit Function
End If
If InStr(strUrl, "?") < Len(strUrl) Then
If InStr(strUrl, "?") > 1 Then
If InStr(strUrl, "&") < Len(strUrl) Then
JoinChar = strUrl & "&"
Else
JoinChar = strUrl
End If
Else
JoinChar = strUrl & "?"
End If
Else
JoinChar = strUrl
End If
End Function
Public Function htm2js(Str)
If Str = "" Or IsNull(Str) Then Str = " "
htm2js = "document.write('" & Replace(Replace(Replace(Replace(Str, "\", "\\"), "'", "\'"), vbCrLf, "\n"), Chr(13), "") & "');"
End Function
'将htm代码插入div
Public Function htm2js_div(Str, divid)
divid = Trim(divid)
If Str = "" Or IsNull(Str) Then Str = " "
htm2js_div = "if (chkdiv('" & divid & "')) {"
htm2js_div = htm2js_div & "document.getElementById('"&divid&"')" & ".innerHTML='" & Replace(Replace(Replace(Replace(Str, "\", "\\"), "'", "\'"), vbCrLf, "\n"), Chr(13), "") & "';}"
If divid = "subject" Then htm2js_div = htm2js_div & vbCrLf & "if (chkdiv('subject_l')) {document.getElementById('subject_l').innerHTML='" & Replace(Replace(Replace(Replace(Str, "\", "\\"), "'", "\'"), vbCrLf, "\n"), Chr(13), "") & "';}"
End Function
Public Function readfile(mPath, fName)
On Error Resume Next
Dim fs2, f2, fpath
Set fs2 = server.CreateObject("Scripting.FileSystemObject")
fpath = server.MapPath(mPath) & "\"
fpath = fpath & fName
Set f2 = fs2.OpenTextFile(fpath, 1, True)
readfile = f2.ReadAll
Set fs2 = Nothing
Set f2 = Nothing
End Function
Public Function showsize(size)
On Error Resume Next
If size = "" Or IsNull(size) Then
showsize = "0Byte"
Exit Function
End If
showsize = size & "Byte"
If size < 0 Then
showsize = "0KB"
Exit Function
End If
If size > 1024 Then
size = (size \ 1024)
showsize = size & "KB"
End If
If size > 1024 Then
size = (size / 1024)
showsize = FormatNumber(size, 2) & "MB"
End If
If size > 1024 Then
size = (size / 1024)
showsize = FormatNumber(size, 2) & "GB"
End If
End Function
Public Function ChkPost()
Dim server_v1, server_v2
ChkPost = False
server_v1 = CStr(request.ServerVariables("HTTP_REFERER"))
server_v2 = CStr(request.ServerVariables("SERVER_NAME"))
If Mid(server_v1, 8, Len(server_v2)) = server_v2 Then ChkPost = True
End Function
Public Function filt_badstr(sSql)
If ISNull(sSql) Then Exit Function
sSql=Trim(sSql)
If sSql="" Then Exit Function
sSql=Replace(sSql,Chr(0),"")
sSql=Replace(sSql,"'","‘")
sSql=Replace(sSql,"%","％")
'sSql=Replace(sSql,"-","－")
filt_badstr=sSql
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -