connstr.asp

来自「国内第一数字点卡销售程序。功能强大。完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 71 行

ASP

71 行

<%
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
	Response.Write "请不要采用teleport/Webzip/Flashget/Offline等工具来浏览商城！"
	Response.End
End If

db="../inc/#yzkaba#.asp"
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
set conn=server.createobject("ADODB.CONNECTION")
ON ERROR RESUME NEXT
	if err.number<>0 then 
		err.clear
		set conn=nothing
		response.write "数据库连接出错！"
		Response.End
	else
		conn.open connstr
		if err then 
			err.clear
			set conn=nothing
			response.write "数据库连接出错！"
			Response.End 
		end if
	end if
	
	sub endConnection()
		conn.close
		set conn=nothing
	end sub
	Function srequest(ParaName,ParaType) 
	Dim ParaValue 
	ParaValue=ParaName 
	If ParaType=1 then 
		If not isNumeric(ParaValue) then 
			Response.write "参数" & ParaName & "必须为数字型！" 
			Response.end 
		End if 
    else
	    ParaValue=replace(ParaValue,"'","''")
		ParaValue=replace(ParaValue,"'","’")
		ParaValue=replace(ParaValue,";","；")
		ParaValue=replace(ParaValue,">","》")
		ParaValue=replace(ParaValue,"<","《")
		ParaValue=replace(ParaValue,"=","＝")
		ParaValue=replace(ParaValue,"%","％")
		ParaValue=replace(ParaValue,",","，")
		ParaValue=replace(ParaValue,".","。")
		ParaValue=replace(ParaValue,"@","￥")
		ParaValue=replace(ParaValue,"*","＊")
		ParaValue=replace(ParaValue,"?","？")
		ParaValue=replace(ParaValue,"(","（")
		ParaValue=replace(ParaValue,")","）")
		ParaValue=replace(ParaValue,"#","＃")
		ParaValue=replace(ParaValue,"!","！")
		ParaValue=Lcase(ParaValue)
		If Instr(ParaValue,"select%20") or Instr(ParaValue,"insert%20") or Instr(ParaValue,"delete%20from") or Instr(ParaValue,"count(") or Instr(ParaValue,"drop%20table") or Instr(ParaValue,"update%20") or Instr(ParaValue,"truncate%20") or Instr(ParaValue,"asc(") or Instr(ParaValue,"mid(") or Instr(ParaValue,"char(") or Instr(ParaValue,"xp_cmdshell") or Instr(ParaValue,"exec%20master") or Instr(ParaValue,"net%20localgroup%20administrators")  or Instr(ParaValue,":") or Instr(ParaValue,"net%20user") or Instr(ParaValue,"'") or Instr(ParaValue,"%20or%20") then
            Response.write "参数" & ParaName & "有问题！" 
			Response.end 
	    end if
	    ParaValue=replace(ParaValue,"'","''")
	    ParaValue=replace(ParaValue,"%","")
	End if 
	srequest=ParaValue
	End function
%><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#000000" vlink="#000000" background="zz2.gif">

connstr.asp - 源码说明

本页面展示了「国内第一数字点卡销售程序。功能强大。完整无错！数据文件经MD5加密！经严格测试」中的 connstr.asp 源码文件，采用 ASP 编程语言编写，共 71 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与MD5相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?