<% '本程序由 自学成才 站长浩哥开发 创建时间2012年09月14日 '完成时间:2012-09-14 14:15:00 '联系信息:QQ:844833447 官网:WWW.ZXCC.NET '请勿修改下列任何代码,以保证程序正常运行 set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/data#%zxcc/zxcc#net%haoge#844833447.asp") function closedb conn.close set conn=nothing end function sub error() response.write "" end sub sub success() response.write "" end sub sub noalertsuccess() response.write "" end sub sub closewin() response.write "" end sub Function safechk() dim server_v1,server_v2 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 msg="不能从外部网页提交！" response.write "" response.end end if End Function Function safestr(str) safestr=Replace(Replace(str,"'",""),";","") End Function Function dealStr(userName_) Dim RegExpObj Dim i,n Dim userName,tempStr,resultStr userName=Trim(userName_) Set RegExpObj=new RegExp RegExpObj.Global = True RegExpObj.Pattern="^[a-zA-Z0-9_]+$" resultStr=userName n=Len(userName) for i=1 to n tempStr=Mid(userName,i,1) if not RegExpObj.test(tempStr) then resultStr=Replace(resultStr,tempStr,"") next Set RegExpObj=nothing dealStr=resultStr End Function Function dealNum(userName_) Dim RegExpObj Dim i,n Dim userName,tempStr,resultStr userName=Trim(userName_) Set RegExpObj=new RegExp RegExpObj.Global = True RegExpObj.Pattern="^[0-9]+$" resultStr=userName n=Len(userName) for i=1 to n tempStr=Mid(userName,i,1) if not RegExpObj.test(tempStr) then resultStr=Replace(resultStr,tempStr,"") next Set RegExpObj=nothing dealNum=resultStr End Function function deletefiles(path) on error resume next Set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(path) then fs.DeleteFile path,True f_name=path.name end if Set fs=nothing if Err.number<>0 then Response.Write Err.number end function Function RemoveHTML(strText) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText,"") RemoveHTML = Replace(Replace(Replace(RemoveHTML," ",""),vbcrlf,""),"　","") End Function Function RemoveLink(s) Dim Re Set Re = New RegExp Re.Pattern = "]*>|" Re.Global = True RemoveLink = Re.Replace(s,"") End Function Function RedKeyword(strText,keyword) RedKeyword=Replace(strText,keyword,""&keyword&"") End Function Function RemoveChinaz(s) Dim Re Set Re = New RegExp Re.Pattern = "]*>[^>]*|

]*>[^>]*

|]*>[^>]*|]*>[^>]*|" Re.Global = True RemoveChinaz = Re.Replace(s,"") End Function function water_and_small(oldjpg,smalljpg) Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath(oldjpg) Jpeg.Width = "218" Jpeg.Height = "153" Jpeg.Sharpen 1, 130 Jpeg.Save Server.MapPath(smalljpg) Set Jpeg = Nothing end function Response.Write(vbCrLf) Response.Write("" & vbCrLf) Response.Write("") set rs=server.createobject("adodb.recordset") Response.Write(vbCrLf) Response.Write("" & vbCrLf) sql="select bg,z1,z2,z3,z4,z5,z6,z7,z8,l1,l2,l3,l4,l5,l6,l7,l8 from daohang" rs.open sql,conn,3,3 Response.Write(vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("
") Response.Write rs("z1") Response.Write("") Response.Write rs("z2") Response.Write("") Response.Write rs("z3") Response.Write("") Response.Write rs("z4") Response.Write("") Response.Write rs("z5") Response.Write("") Response.Write rs("z6") Response.Write("") Response.Write rs("z7") Response.Write("") Response.Write rs("z8") Response.Write("
" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("") %>