

<%
getsj=2     '2为正常开放，1为升级中
if getsj=1 then
call head()
  Response.write "<card title=""对不起！网站升级中""><p>"
  Response.write "对不起！网站升级中,请稍后访问，谢谢！"
  Response.write "<br/><anchor><prev/>&#x8FD4;&#x56DE;</anchor>" & chr(13)
  Response.write "</p></card></wml>"
  Response.end
end if
'===============龙门网天涯修改MSSQLSERVER数据库链接===============
'如果你用ACCESS数据库则不用修改此段

dim YD_SQL_SERVERIP,YD_SQL_UserName,YD_SQL_PassWord,YD_Main_DatabaseName,dateSQL
dateSQL="0"      '数据库方式，1为access，0为sql

YD_SQL_SERVERIP="14.102.252.16"   '数据库IP或数据库服务名
YD_SQL_UserName="a1121200202"          '登录数据库用户名
YD_SQL_PassWord="5134say229316"         '登录数据库密码
YD_Main_DatabaseName="a1121200202" '主数据库名
dim conn
'On Error Resume Next
set conn=server.createobject("ADODB.connection")
if dateSQL="0" then
conn.open "PROVIDER=SQLOLEDB;DATASOURCE="&YD_SQL_SERVERIP&";UID="&YD_SQL_UserName&";PWD="&YD_SQL_PassWord&";DATABASE="&YD_Main_DatabaseName&""
else

'===============龙门网天涯修改ACCESS数据库链接===============
'如果你用MSSQL数据库则不用修改此段
dim saytkcomshuju
	saytkcomshuju="/shujuku/wap312wcom.mdb"
		Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=#twapp_ydzqbqsy1;pwd=520ydzq;dbq=" & Server.MapPath(""&saytkcomshuju&"")






end if



If Err Then
		err.Clear
		Set Conn = Nothing

    Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"
    Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">"
    Response.Write "<wml>"
    Response.Write "<head>"
    Response.Write "<meta name=""keywords"" content=""n-出错了"" />"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0""/>"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""no-cache""/>"
    Response.Write "</head>"
    Response.write "<card title=""出错了""><p>"
		Response.Write"数据库连接出错,<br/>"
		'Response.write"请检查连接文件INC.inc<br/>"
                'Response.write"数据库名,帐号,密码是否正确。<br/>"
                'Response.write"<br/>"
        Response.write "</p></card></wml>"
		
		response.End
	End If






sid=trim(request.querystring("sid"))










'=============================
	
dim saytk
Sub Head1() 
%>
<!--#include virtual="/3gsaytk.asp"-->

<%

End Sub
Sub Head2() 
%>
<!--#include virtual="/3gsaytk.asp"-->

<%

End Sub
Sub Head3() 

%>
<!--#include virtual="/3gsaytk.asp"-->

<%

End Sub






Sub Headsay3() 
%>
<!--#include virtual="/3gsaytk.asp"-->

<%



End Sub










'====================
Sub Headsay() 
%>
<!--#include virtual="/3gsaytk.asp"-->

<%

End Sub

Sub Headsay1() 
if saytk=2 then
Response.Write "<br/>页面版本：2.0|<a href='index.asp?sid="&sid&"&amp;saytk=1'>1.0</a><br/>舒心建站:龙门网建站系统!"
%></td></tr></table><%
Response.Write "</p></body></html>"

else
Response.Write "<br/>页面版本：1.0|<a href='index.asp?sid="&sid&"&amp;saytk=2'>2.0</a><br/>舒心建站:龙门网建站系统!"
Response.Write "</p></card></wml>"
end if

End Sub
'==========================

Sub say() 

if saytk=1 or saytk=2 or saytk=3 or saytk=4 or saytk=5 or saytk=6 or saytk=7 or saytk=8 or saytk=9 or saytk=10 or saytk=100 then
saytk=request.querystring("saytk")
else
saytk=2
end if

end sub
Sub ling() 

if saytk=1 or saytk=2 or saytk=3 or saytk=4 or saytk=5 or saytk=6 or saytk=7 or saytk=8 or saytk=9 or saytk=10 or saytk=100 then
saytk=request.querystring("saytk")
else
saytk=2
end if
end Sub

Sub Head()




if saytk="" then
if instr(Request.ServerVariables("http_accept"),"wap")>0  then

saytk=1
    
else
saytk=2
end if    
end if


if saytk<>1 then%>
<?xml version="1.0"  encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="application/vnd.wap.xhtml+xml;charset=UTF-8"/><%
 
           Response.Write "<link rel=""stylesheet"" href=""/main/tongyong.css"" type=""text/css""/>"
        Response.Write "<link rel=""stylesheet"" href=""/main/tongyongadmin.css"" type=""text/css""/>"


else 
If saytk=>4 Then
       response.write "<?xml version=""1.0"" encoding=""utf-8""?>" & vbnewline
		response.write "<!DOCTYPE html PUBLIC ""-//WAPFORUM//DTD XHTML Mobile 1.0//EN"" ""http://www.wapforum.org/DTD/xhtml-mobile10.dtd"">" & vbnewline
		response.write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbnewline
		response.write "<head>" & vbnewline
             
		response.write "<meta http-equiv=""Cache-Control"" content=""must-revalidate"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Cache-Control"" content=""no-cache"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Cache-Control"" content=""max-age=0"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Expires"" content=""0"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Pragma"" content=""no-cache"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & vbnewline
		
		if request.servervariables("script_name")<>"/note/index.asp" then	
		if saytk="9" then
		Response.Write "<link rel=""stylesheet"" href=""/main/style.css"" type=""text/css""/>"
		elseif saytk="10" then
		Response.Write "<link rel=""stylesheet"" href=""/main/style1.css"" type=""text/css""/>"
       elseif saytk="4" then
        Response.Write "<link rel=""stylesheet"" href=""/main/style2.css"" type=""text/css""/>"
         elseif saytk="5" then
        Response.Write "<link rel=""stylesheet"" href=""/main/style3.css"" type=""text/css""/>"
         elseif saytk="6" then
        Response.Write "<link rel=""stylesheet"" href=""/main/daohang.css"" type=""text/css""/>"
        elseif saytk="7" then
        Response.Write "<link rel=""stylesheet"" href=""/main/daohangy.css"" type=""text/css""/>"
        elseif saytk="8" then
        Response.Write "<link rel=""stylesheet"" href=""/main/blue.css"" type=""text/css""/>"             
         elseif saytk="100" then
        Response.Write "<link rel=""stylesheet"" href=""/main/3g.css"" type=""text/css""/>"

		end if
        



        end if
       
        
           Response.Write "<link rel=""stylesheet"" href=""/main/tongyong.css"" type=""text/css""/>"
        Response.Write "<link rel=""stylesheet"" href=""/main/tongyongadmin.css"" type=""text/css""/>"
       Response.Write "<wml>"
    Response.Write "<head>"
           Response.Write "<link rel=""shortcut icon"" href=""/favicon.ico"" />"
    Response.Write "</head>"
    Response.Write "<meta name=""keywords"" content=""程序开发,龙门在线QQ565659541,http://saytk.com"" />"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0""/>"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""no-cache""/>"



else

    Response.ContentType = "text/vnd.wap.wml"
    Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"
    Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">"
    Response.Write "<wml>"
    Response.Write "<head>"
    Response.Write "<meta name=""keywords"" content=""龙门建站saytk.com"" />"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0""/>"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""no-cache""/>"
    Response.Write "</head>"
end If
End IF

End Sub
'=============================



'sql防注入代码====
YD_In = ""


'================================================
'函数名：addwml
'作  用：时间命名的函数
'参  数：fname -文件路径, str_内容
'================================================
ppo="9566" 'addwmlklik(fame)
function addwml(fname)
fname = fname '前fname为变量，后fname为函数参数引用
fname = replace(fname,"-","")
fname = replace(fname," ","") 
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
addwml = fname & ".wml"
end function 
'================================================
'================================================
'作  用:生成WML文件
'================================================
	Function LoadFile(File)		'文件内容读取.
	Dim objStream
	On Error Resume Next
	Set objStream = Server.CreateObject("ADODB.Stream")
		If Err.Number=-2147221005 Then 
		Response.Write "非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序"
		Err.Clear
'		Response.End
		End If
	With objStream
	.Type = 2
	.Mode = 3
	.Open
	.LoadFromFile Server.MapPath(File)
		If Err.Number<>0 Then
		Response.Write "文件"&File&"无法被打开，请检查是否存在!"
		Err.Clear
'		Response.End
		End If
	.Charset = "utf-8"
	.Position = 2
	LoadFile = .ReadText
	.Close
	End With
	Set objStream = Nothing
	End Function

	Sub SaveToFile(strBody,File)		'存储内容到文件
	Dim objStream
	On Error Resume Next
	Set objStream = Server.CreateObject("ADODB.Stream")
		If Err.Number=-2147221005 Then 
		Response.Write "非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序"
		Err.Clear
'		Response.End
		End If
	With objStream
	.Type = 2
	.Open
	.Charset = "utf-8"
	.Position = objStream.Size
	.WriteText = strBody
	.SaveToFile Server.MapPath(File),2
	.Close
	End With
	Set objStream = Nothing
	End Sub
Function sid_url()
dim WAPurl
WAPurl=WAPurl&request.ServerVariables("SCRIPT_NAME") 
if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then 
WAPurl=WAPurl & "?" & request.ServerVariables("QUERY_STRING")
WAPurl=replace(WAPurl,"&","@@")
end if 
sid_url=WAPurl
End Function
function bin2dec(binStr) 
towPow=1 
nUMLen=len(binStr) 
bin2Dec=0 
decPos=numLen 
do while decPos>0 
cChar=mid(binStr,decPos,1) 
nChar=Cint(cChar) 
bin2Dec=bin2Dec+nChar*towPow 
towPow=towPow*2 
decPos=decPos-1 
Loop 
end function 

function dec2bin(octNumber) 
vara=octNumber 
do 
dec2bin=cstr(vara mod 2) & dec2bin 
vara=vara \ 2 
loop until vara=0 
end function 

Bstr_base64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=" 
function enCode_base64(strBin) 
bins="" 
for i=1 to lenB(strBin) 
varTm=AscB(midB(strBin,i,1)) 
bins=bins & right("00000000" & dec2bin(varTm),8) 
if i mod 3=0 then 
for w=0 to 3 
sixBin=mid(bins,w*6+1,6) 
nChar=bin2Dec(sixBin)+1 
enCode_base64=enCode_base64 & mid(Bstr_base64,nChar,1) 
next 
bins="" 
end if 
next 

if bins<>"" then 
pads=3-len(bins) \ 8 
exitLoop=false 
do while not exitLoop 
nChar=left(bins,6) 
if len(nChar)<6 then 
nChar=left(nChar & "000000",6) 
exitLoop=true 
end if 
nNum=bin2dec(nChar)+1 
enCode_base64=enCode_base64 & mid(Bstr_base64,nNum,1) 
bins=mid(bins,7) 
Loop 
enCode_base64=enCode_base64 & String(pads,"=") 
end if 
end function 
	Dim User_Ip
	User_Ip=Request.servervariables("REMOTE_ADDR")
	call IpLock(User_Ip)
	Sub IpLock(User_Ip)
	Dim IpArray,WhyIpLock
	IpArray=split(User_Ip,".")
	Dim IpSQL,IpRS
	IpSQL="SELECT iplock From IpLock Where  "& _
	" (ipsame=4 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" and ip4="&Cint(IpArray(3))&" )  "& _
	" Or (ipsame=3 and  ip1="&Cint(IpArray(0))&"  and  ip2="&Cint(IpArray(1))&"  and  ip3="&Cint(IpArray(2))&" )   "& _
	" Or (ipsame=2 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" )   "& _
	" Or (ipsame=1 and ip1="&Cint(IpArray(0))&" ) Order By ipid "
	Set IpRS=Conn.execute(IpSQL)
	If Not (IpRS.bof or IpRS.eof) Then
	WhyIpLock=split(IpRS("iplock"),"|")
        call ling()
        call head
if saytk=2 then
Response.write "<title>出错了</title></head><body><body bgcolor="""&yanse&"""><p>"
else
        Response.write "<card title=""出错了""><p>"
end if
		Response.Write"你使用的IP段或IP地址已被封锁"
		Response.Write"<br/>封锁原因:"&WhyIpLock(1)
		Response.Write"<br/>封锁时间:"&WhyIpLock(0)
call head1()
		Response.End
	End If
	Set IpRS=Nothing
	End Sub
Function RequestStr(sTemp)  
	if trim(sTemp) ="" then
		sTemp="null"
	else
		RequestStr = replace(trim(sTemp),"'","''")
	end if 
End function%>

<!-- #include file="config.asp" -->
<!-- #include file="char.asp" -->
<!-- #include file="tj.asp" -->
<!-- #include file="tjconn.asp" -->
<!-- #include file="config1.asp" -->
<!-- #include file="gbkq.asp" -->
<!-- #include file="hydt.asp" -->
<!-- #include file="jbht.asp" -->
<!-- #include file="mrht.asp" -->
<!-- #include file="snht.asp" -->
<!-- #include file="dght.asp" -->
<!-- #include file="ym.asp" -->
<!-- #include file="yanse.asp" -->
<!-- #include file="lp.asp" -->
<!-- #include file="xzz.asp" -->
<!-- #include file="tzcz.asp" -->
<!-- #include file="xuexiao.asp" -->
<!-- #include file="doushi.asp" -->
<!-- #include file="saytkcj.asp" -->
<!-- #include file="saytkbj.asp" -->