<%const lindata="/"
   on error resume next
%>
<%aa="111"
'on error resume next
dim qs,errc,iiiabc
qs=request.servervariables("query_string")
'response.write(qs)
dim deStr(18)
deStr(0)="net user"
deStr(1)="xp_cmdshell"
deStr(2)="/add"
deStr(3)="exec%20master.dbo.xp_cmdshell"
deStr(4)="net localgroup administrators"
deStr(5)="select"
deStr(6)="count"
deStr(7)="asc"
deStr(8)="char"
deStr(9)="mid"
deStr(10)="'"
deStr(11)=":"
deStr(12)=""""
deStr(13)="insert"
deStr(14)="delete"
deStr(15)="drop"
deStr(16)="truncate"
deStr(17)="from"
deStr(18)="%"
errc=false
for iiiabc= 0 to ubound(deStr)
if instr(ucase(qs),ucase(deStr(iiiabc)))<>0 then
errc=true
end if
next
if errc then
Response.Write("对不起，非法URL地址请求!")
response.end
end if
%>
<%
   connstr="DBQ="+server.mappath(""&lindata&"linokdata/#6544jkf.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   conn.open connstr 
   If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "系统升级中。。。。。。"
		Response.End
   End If
  sub CloseConn()
	conn.close
	set conn=nothing
  end sub
%> 
<%
Function cutStr(str,strlen)
'去掉所有HTML标记
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"") 
set re=Nothing
Dim l,t,c,i
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," ","&nbsp;")
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
cutStr=Replace(cutStr,chr(32),"")
End Function

Public Function CutString(Str, strlen) 
Dim HtmlStr, L, Re 
HtmlStr = Str 
HtmlStr = Replace(HtmlStr, " ", " ") 
HtmlStr = Replace(Replace(Replace(HtmlStr, Chr(34), ""), Chr(13), " "), Chr(10), " ") 
Set Re = New RegExp 
Re.IgnoreCase =true 
Re.Global=True 
Re.Pattern="\[br\]" 
HtmlStr = Re.Replace(HtmlStr,"") 
Re.Pattern="\[align=right\](.*)\[\/align\]" 
HtmlStr = Re.Replace(HtmlStr,"") 
Re.Pattern="<(.[^>]*)>" 
HtmlStr = Re.Replace(HtmlStr,"") 
Set Re = Nothing 
L = Len(HtmlStr) 
If L >= strlen Then 
CutString = Left(HtmlStr, strlen) 
Else 
CutString = HtmlStr & " " 
End If 
End Function 
%>