<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx '---定义部份 头------ Fy_Cl = 1 '处理方式：1=提示信息,2=转向页面,3=先提示再转向 Fy_Zx = "Error.Asp" '出错时转向的页面 '---定义部份 尾------ On Error Resume Next Fy_Url=Request.ServerVariables("QUERY_STRING") Fy_a=split(Fy_Url,"&") redim Fy_Cs(ubound(Fy_a)) On Error Resume Next for Fy_x=0 to ubound(Fy_a) Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")-1) Next For Fy_x=0 to ubound(Fy_Cs) If Fy_Cs(Fy_x)<>"" Then If Instr(LCase(Request(Fy_Cs(Fy_x))),"'")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"and")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"select")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"update")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"chr ")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"delete%20from")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),";")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"insert")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"mid")<>0 Or Instr(LCase(Request(Fy_Cs(Fy_x))),"master.")<>0 Then Select Case Fy_Cl Case "1" Response.Write "" Case "2" Response.Write "" Case "3" Response.Write "" End Select Response.End End If End If Next %> <% dim mycnstr mycnstr="Driver={Microsoft Access Driver (*.mdb)};DBQ="+Server.MapPath("gldb_@2y2y3s.mdb") Session.Timeout=10 %> <% '字符串过虑，使用固定的替换规则 'str 原始字符串 'length 字符串允许的最大长度，为 0 则不限制字符串长度 Function fixedReplaceStr(str, length) str = trim(str) if str = "" then fixedReplaceStr = str str = replace(str, "'", "‘") str = replace(str, ";", "；") str = replace(str, "--", "- -") str = replace(str, "char", "ch ar") str = replace(str, "script", "sc ript") if length <> "" and Len(str) > length then fixedReplaceStr = Left(str, length) else fixedReplaceStr = str end if End Function '转换为整型数据 'integer 准备转换的原始数据 'min 允许的最小值，为空则不限制 'max 允许的最大值，为空则不限制 Function toInt(s, min, max) if isNumeric(s) and s <> "" then s = cLng(s) else s = min end if if min <> "" then if s < min then s = min end if if max <> "" then if s > max then s = max end if toInt = s End Function function checkstr(str,lx) if lx="" then lx="1" if len(str)=0 or isnull(str) then str="" dim re, str1, str2, xx, xx1, xx2, newstr Set re = new RegExp re.IgnoreCase = true re.Global = True re.Pattern="(>"+chr(13)+")" str=re.Replace(str,">") re.Pattern="(> "+chr(13)+")" str=re.Replace(str,">") re.Pattern="(> "+chr(13)+")" str=re.Replace(str,">") str1="" str2=str xx1=1 xx=inStr(xx1,str,"0 str1=mid(str,xx1,xx - xx1) xx2=inStr(xx+6,str,"table>") if xx2>0 then ystr=mid(str,xx,xx2 + 6 - xx) else xx2=len(str) ystr=mid(str,xx) end if newstr=newstr+addline(str1,lx)+ystr xx1=xx2+6 xx=inStr(xx1,str,"""1" then lx = "2" if len(str)=0 then str="" dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(script)" str=re.Replace(str,"sc ript") re.Pattern="("+chr(13)+")" if lx="2" then str=re.Replace(str,"
") else str=re.Replace(str,"
   ") end if addline=str end function function mydate(dd) if dd="" then mydate="" else mydate=year(dd)&"-"&month(dd)&"-"&day(dd)&" "&formatdatetime(dd,4) end if end function function subss(ss,sublen) dim i,tot,sstot ss=trim(ss) sstot=len(ss) tot=0 i=0 do while tot0 then tot=tot+1 else tot=tot+2 end if loop subss=left(ss,i) end function function newtemp() newtemp="" for i=1 to 4 Randomize if i mod 2=1 then newtemp=newtemp&chr(int(rnd*26)+97) else newtemp=newtemp&chr(int(rnd*10)+48) end if next end function function getPageStr(baseURL, parentcode, classcode, page, pageCount) if baseURL = "" or isNull(baseURL) then exit function if inStr(baseURL, "?") and right(baseURL, 1) <> "?" and right(baseURL, 1) <> "&" then baseURL = baseURL & "&" else baseURL = baseURL & "?" end if if not isnumeric(page) then page = 1 else page = cint(page) if not isnumeric(pageCount) then pageCount = 1 else pageCount = cint(pageCount) if page < 1 then page = 1 if pageCount < 1 then pageCount = 1 if page > pageCount then page = pageCount dim str str = "" if page > 1 then str = str & "" else str = str & "" end if str = str & "" & page & "/" & pageCount & "" if page < pageCount then 'str = str & "" str = str & "" else str = str & "" end if getPageStr = str end function function getApplicationStr(ext) select case ext case "gif":getApplicationStr = "image/gif" case "jpg":getApplicationStr = "image/jpeg" case "jpeg":getApplicationStr = "image/jpeg" case "bmp":getApplicationStr = "image/bmp" case "png":getApplicationStr = "image/png" case "swf":getApplicationStr = "application/x-shockwave-flash" case "zip":getApplicationStr = "application/zip" case "rar":getApplicationStr = "application/x-rar-compressed" case "exe":getApplicationStr = "application/x-msdownload" case "pdf":getApplicationStr = "application/pdf" case "doc":getApplicationStr = "application/msword" case "xls":getApplicationStr = "application/vnd.ms-excel" case "mht":getApplicationStr = "message/rfc822" case else:getApplicationStr = "text/html" end select end function %> <% dim menu dim cn, rs, sql, i menu = "default" set cn = Server.CreateObject("adodb.Connection") set rs = Server.CreateObject("adodb.Recordset") cn.Open mycnstr %> 虚拟主机|网站空间--|斗门网页制作|斗门网站建设|斗门软件开发|斗门网络推广|珠海市盟新网络科技有限公司
盟新首页 网站建设 系统开发 邮件系统 虚拟主机 解决方案 客户案例欣赏 公司简介 联系我们
 
商务型虚拟主机

100Masp空间 250元（免费试用七天)
 磁盘空间大小:  100 M
 数据库类型:  ACCESS，可以配MYSQL或MSSQL使用
 并发连接数:  50 IIS
 防火墙系统：  千兆抗DDOS防火墙系统
 支持情况:  ASP/PHP/SHTML/FTP/FSO等

200Masp空间 350元（免费试用七天)
 磁盘空间大小:  200 M
 数据库类型:  ACCESS，可以配MYSQL或MSSQL使用
 并发连接数:  100 IIS
 防火墙系统：  千兆抗DDOS防火墙系统
 支持情况:  ASP/PHP/SHTML/FTP/FSO等

1G全能空间 500元（免费试用七天)
 磁盘空间大小:  1000 M
 数据库类型:  ACCESS，可以配MYSQL或MSSQL使用
 并发连接数:  不限制 IIS
 防火墙系统：  千兆抗DDOS防火墙系统
 支持情况:  ASP/PHP/SHTML/FTP/FSO等

2G全能空间 700元（免费试用七天)
 磁盘空间大小:  2000 M
 数据库类型:  ACCESS，可以配MYSQL或MSSQL使用
 并发连接数:  不限制 IIS
 防火墙系统：  千兆抗DDOS防火墙系统
 支持情况:  ASP/PHP/SHTML/FTP/FSO等

5G全能空间 1000元（免费试用七天)
 磁盘空间大小:  5000 M
 数据库类型:  ACCESS，可以配MYSQL或MSSQL使用
 并发连接数:  不限制 IIS
 防火墙系统：  千兆抗DDOS防火墙系统
 支持情况:  ASP/PHP/SHTML/FTP/FSO等

10G全能空间 1500元（免费试用七天)
 磁盘空间大小:  10000 M
 数据库类型:  ACCESS，可以配MYSQL或MSSQL使用
 并发连接数:  不限制 IIS
 防火墙系统：  千兆抗DDOS防火墙系统
 支持情况:  ASP/PHP/SHTML/FTP/FSO等

    盟新科技为您提供专业的网站策划、设计、推广和企业信息化建设、管理、开发，如果您的企业需要定做信息化解决方案，但你又无从入手，我们将可以为您提供服务，我们为您准备了各类典型的企业建设解决方案供您参考。盟新科技继往开来，全心全意为企业提供最合适的信息化解决方案。如您想了解更多内容，可以在办公时间(上午9:00-12:00 下午13:30-18:00)内致电：0756-6227001,0756-5557077 与我们的客户专员资询。

更多案例...
Copyright © 2008 www.zh-mengxin.com All Rights Reserved