" & str & " |
")
guest = Replace(guest, CHR(39), "'")
guest=Replace(Guest," ","銆�")
guest=Replace(Guest," ","`nbsp;")
guest=replace(guest,"\x3c","<")
guest=replace(guest,"\x3e",">")
Guest=Server.HTMLEncode(Guest)
guest=Replace(Guest,"`nbsp;"," ")
guest=Replace(Guest,vbcrlf,"
")
guest=Replace(Guest,"#","")
HtmlOut=guest
end function
public function checkstr(submitvalue)
dim strvalue
if isnull(submitvalue) or submitvalue="" then
checkstr=submitvalue
exit function
end if
strvalue=submitvalue
strvalue = replace(replace(server.HTMLEncode(trim(strvalue)),"%",""),"'","")
checkstr=strvalue
end function
public function OutOption(conn,tabel,style,value)
'浠庢暟鎹簱涓彁鍙栧唴瀹圭敓鎴愪笅鎷夎彍鍗?
'conn 涓烘暟鎹簱鑱旀帴 table涓鸿〃鍚? style涓嬫帴鑿滃崟鏍峰紡
dim re,sql,selected
set re=server.CreateObject("ADODB.RECORDSET")
sql = "SELECT * FROM " & tabel & " ORDER BY value"
re.Open sql,conn
Response.Write ("" & vbCrlf)
set re=nothing
end function
Public Function CheckValue(Str, Low, Up, Mode, Lable)
'Mode = 1 妫�娴嬫槸鍚︿负绌? 2鏄惁鏄暟瀛? 4鏄惁鏁存暟
'8鏄惁鏄负鏁板瓧銆佸瓧姣嶅拰_.-
'16 鑷畾涔夊瓧绗︽娴?
'32 闀垮害妫�娴?
'64 鏁板瓧澶у皬妫�娴?
Dim Temp
Dim Length, i, Base
If Mode Mod 2 >= 1 Then
If Str = "" Then
Temp = Temp & "鈥? & Lable & "鈥? & " must be not empty锛? & vbCrLf
End If
End If
If Mode Mod 4 >= 2 Then
If Not IsNumeric(Str) And Str <> "" Then
Temp = Temp & "鈥? & Lable & "鈥? & "must be a number.锛? & vbCrLf
End If
End If
If Mode Mod 8 >= 2 Then
If Not IsNumeric(Str) And Str <> "" And InStr(Str, ".") = 0 Then
Temp = Temp & "鈥? & Lable & "鈥? & "蹇呴渶鏄暣鏁帮紒" & vbCrLf
End If
End If
If Mode Mod 16 >= 8 Then
Length = Len(Str)
Base = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_-."
For i = 1 To Length
If InStr(Base, Mid(Str, i, 1)) = 0 Then
Temp = Temp & """ & Lable & """ & "includes wrong letters. It must be letters, numbers and""- _ .""銆? & vbCrLf
Exit For
End If
Next
End If
If Mode Mod 32 >= 16 Then
Length = Len(Str)
Base = Replace(Low, "[A-Z]", "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
Base = Replace(Base, "[a-z]", "abcdefghijklmnopqrstuvwxyz")
Base = Replace(Base, "[0-9]", "0123456789")
For i = 1 To Length
If InStr(Base, Mid(Str, i, 1)) = 0 Then
Temp = Temp & """ & Lable & """ & "includes wrong letters. It must be" & Up & "." & vbCrLf
Exit For
End If
Next
End If
If Mode Mod 64 >= 32 Then
Length = Len(Str)
If Not (Length >= Low And Length <= Up) Then
Temp = Temp & "Length of " & Lable & " must be between " & Low & " and " & Up & "" & vbCrLf
End If
End If
If Mode Mod 128 >= 64 Then
If IsNumeric(Str) Then
If Not (CInt(Str) >= CInt(Low) And CInt(Str) <= CInt(Up)) Then
Temp = Temp & """ & Lable & """ & " must be between" & Low & " and " & Up & "" & vbCrLf
End If
End If
End If
CheckValue = Temp
End Function
Public Function sqlpage(PageSize_a,flies,Table,sql_where,key_index,page,modetype)
CurrentPage=page
if CurrentPage="" then
CurrentPage=1
elseif isnumeric(CurrentPage)=False then
CurrentPage=1
Else
CurrentPage=Cint(CurrentPage)
End if
StartId = (CurrentPage-1)*PageSize_a
EndId = StartId+PageSize_a
if modetype="" then
sqlpage="Select " & flies & " from ["&Table&"] where id in(Select top "&Endid&" id from ["&Table&"] where "&sql_where&key_index&") and id not in(Select top "&Startid&" id from ["&Table&"] where "&sql_where&key_index&")"&key_index
else
sqlpage="Select " & flies & " from "&Table&" where a.id in(Select top "&Endid&" a.id from "&modetype&" where "&sql_where&key_index&") and a.id not in(Select top "&Startid&" a.id from "&modetype&" where "&sql_where&key_index&")"&key_index
end if
end Function
Sub pageCode_a(PageSize_a,page,table,sql_where)
'鐢熸垚PreviousNext閾炬帴2
set count_num=conn.execute("select count(id) from " & table & " where " & sql_where)
TotalNumber=count_num(0)
count_num.close
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If a(0)<>"page" Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
if TotalNumber mod PageSize_a=0 then
n= TotalNumber \ PageSize_a
else
n= TotalNumber \ PageSize_a+1
end if
if TotalNumber Mod PageSize_a = 0 then
TotalPage = TotalNumber \ PageSize_a
Else
TotalPage = TotalNumber \ PageSize_a + 1
End if
CurrentPage=page
if CurrentPage="" then
CurrentPage=1
elseif isnumeric(CurrentPage)=False then
CurrentPage=1
Else
CurrentPage=Cint(CurrentPage)
End if
if CurrentPage-1 mod 10=0 then
p=(CurrentPage-1) \ 10
else
p=(CurrentPage-1) \ 10
end if
Response.Write "
" & Msg & "
" Response.Write "" elseif mode=3 then Response.Write "" Response.Write "" & Msg & "
" Response.Write "" end if End Function Public Function CutStr(str, number) Dim length, llen, i, value length = Len(str) For i = 1 To length value = Asc(Mid(str, i, 1)) If value >= -127 And value <= 127 Then llen = llen + 1 Else llen = llen + 2 End If If llen >= number Then CutStr = Left(str, i-3) & "..." Exit Function End If Next CutStr = str End Function sub alertback(text,url) response.write "" end sub sub msgbox_asp(text,url) response.write "" end sub sub msgbox_history(text,num) response.write "" end sub sub msgbox_null(text) response.write "" end sub Function TranslateDateTime(dt) TranslateDateTime = ""&Year(dt)&"-"&Month(dt)&"-"&Day(dt)&" "&FormatDateTime(dt,vbShortTime)&"" End Function Function httpurl(str) '澶勭悊鏄剧ずURL httpurl_action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") httpurl_query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In httpurl_query httpurl_a = Split(x, "=") If StrComp(LCase(httpurl_a(0)), str, vbTextCompare) <> 0 Then httpurl_temp = httpurl_temp & httpurl_a(0) & "=" & httpurl_a(1) & "&" End If Next httpurl=httpurl_action & "?" & httpurl_temp End Function %>Microsoft VBScript 运行时错误
错误 '800a01a8'缺少对象: ''
/Company/include/Web_Class.asp，行 14