
<%
saytkbbxx="V14.1-2011-8-30免费版本"
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() 


end sub
Sub ling() 

end Sub

Sub Head()
if saytk="" then
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
browsers2=Lcase(Request.ServerVariables("HTTP_USER_AGENT"))
if browsers="oper"  or  browsers="winw"  or  browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" OR instr(browsers2,"msie")>0 or instr(browsers2,"openwave")>0 or instr(browsers2,"oper")>0 or instr(browsers2,"winw")>0 then
saytk=banben1
else
saytk=1
end if
end If
dim enterurl,saytkcom123
saytkcom123=request.querystring("saytk")
if saytkcom123=1 then
saytk=1
elseif saytkcom123=2 then
saytk=2
elseif saytkcom123=3 then
saytk=3
elseif saytkcom123=4 then
saytk=4
elseif saytkcom123=5 then
saytk=5
elseif saytkcom123=6 then
saytk=6
elseif saytkcom123=7 then
saytk=7 
elseif saytkcom123=8 then
saytk=8
elseif saytkcom123=9 then
saytk=9
elseif saytkcom123=10 then
saytk=10
elseif saytkcom123=11 then
saytk=11
elseif saytkcom123=12 then
saytk=12
elseif saytkcom123=100 then
saytk=100
else
if instr(Request.ServerVariables("http_accept"),"wap")>0  then
saytk=1 
else
saytk=banben1 
end if
end if

if saytk=2 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"/>
<style type="text/css">
body,div,form,img,ul,ol,li,dl,dt,dd,p,h1,h2,h3,h4,h5,h6{margin:0px;padding:0px;border:0px;list-style:none}
a:visited {color: #800000;text-decoration: none;}
a:hover {color: #ff0000;text-decoration: underline;}
a:active {color: #0066FF;text-decoration: underline;}

</style><%
Response.Write "<link rel=""stylesheet"" href=""/main/tongyong.css"" type=""text/css""/>"
Response.Write "<link rel=""stylesheet"" href=""/main/1.css"" type=""text/css""/>"
Response.Write "<link rel=""stylesheet"" href=""/main/tongyongadmin.css"" type=""text/css""/>"

Elseif saytk=3 then%>
<html xmlns="http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">
body,div,form,img,ul,ol,li,dl,dt,dd,p,h1,h2,h3,h4,h5,h6{margin:0px;padding:0px;border:0px;list-style:none}
a:visited {color: #800000;text-decoration: none;}
a:hover {color: #FF6600;text-decoration: underline;}
a:active {color: #0066FF;text-decoration: underline;}


</style>

<%         
 Response.Write "<link rel=""stylesheet"" href=""/main/tongyong.css"" type=""text/css""/>"
 Response.Write "<link rel=""stylesheet"" href=""/main/tongadmin.css"" type=""text/css""/>"

elseIf saytk>3 And saytk<100 Then
%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="keywords" content="程序开发,龙门在线QQ565659541,http://saytk.com" />
<meta http-equiv="Content-Type" content="application/vnd.wap.xhtml+xml;charset=UTF-8"/>
<%
	
		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="11" then
        Response.Write "<link rel=""stylesheet"" href=""/main/3.css"" type=""text/css""/>"
		elseif saytk="12" then
        Response.Write "<link rel=""stylesheet"" href=""/main/1.css"" type=""text/css""/>"
        end If
        If saytk<>5 then
           Response.Write "<link rel=""stylesheet"" href=""/main/tongyong.css"" type=""text/css""/>"
        Response.Write "<link rel=""stylesheet"" href=""/main/tongyongadmin.css"" type=""text/css""/>"
		End if
        Response.Write "<link rel=""shortcut icon"" href=""/favicon.ico"" />"
		If saytk=9 Then
		Response.Write "<link rel=""stylesheet"" href=""/main/3g9.css"" type=""text/css""/>"
		
		ElseIf saytk<>5 then

		Response.Write "<link rel=""stylesheet"" href=""/main/3ga.css"" type=""text/css""/>"
		End if

elseif saytk=100 Then
%><!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="text/html; charset=UTF-8" />
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta name="viewport" content="width=device-width; initial-scale=1.4; minimum-scale=1.0; maximum-scale=2.0"/>
<meta name="MobileOptimized" content="240"/>
<link href="/main/3G.css" rel="stylesheet" type="text/css" />
<%
Response.Write "<link rel=""stylesheet"" href=""/main/3gg.css"" type=""text/css""/>"
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 Sub


'================================================




Sub Headclass(num)
if saytk="" then
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
browsers2=Lcase(Request.ServerVariables("HTTP_USER_AGENT"))
if browsers="oper"  or  browsers="winw"  or  browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" OR instr(browsers2,"msie")>0 or instr(browsers2,"openwave")>0 or instr(browsers2,"oper")>0 or instr(browsers2,"winw")>0 then
saytk=banben1
else
saytk=1
end if
end If
dim enterurl,saytkcom123
saytkcom123=request.querystring("saytk")
if saytkcom123=1 then
saytk=1
elseif saytkcom123=2 then
saytk=2
elseif saytkcom123=3 then
saytk=3
elseif saytkcom123=4 then
saytk=4
elseif saytkcom123=5 then
saytk=5
elseif saytkcom123=6 then
saytk=6
elseif saytkcom123=7 then
saytk=7 
elseif saytkcom123=8 then
saytk=8
elseif saytkcom123=9 then
saytk=9
elseif saytkcom123=10 then
saytk=10
elseif saytkcom123=11 then
saytk=11
elseif saytkcom123=12 then
saytk=12
elseif saytkcom123=100 then
saytk=100
else
if instr(Request.ServerVariables("http_accept"),"wap")>0  then
saytk=1 
else
saytk=banben1 
end if
end if

if saytk=2 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"/>
<style type="text/css">
body,div,form,img,ul,ol,li,dl,dt,dd,p,h1,h2,h3,h4,h5,h6{margin:0px;padding:0px;border:0px;list-style:none}
</style>
<link rel="stylesheet" href="/main/tongyong.css" type="text/css"/>
<link rel="stylesheet" href="/main/1.css" type="text/css"/>
<link rel="stylesheet" href="/main/tongyongadmin.css" type="text/css"/><%=num%>

<%Elseif saytk=3 then%>
<html xmlns="http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">
body,div,form,img,ul,ol,li,dl,dt,dd,p,h1,h2,h3,h4,h5,h6{margin:0px;padding:0px;border:0px;list-style:none}
a:visited {color: #800000;text-decoration: none;}
a:hover {color: #FF6600;text-decoration: underline;}
a:active {color: #0066FF;text-decoration: underline;}

</style>

<%         
 Response.Write "<link rel=""stylesheet"" href=""/main/tongyong.css"" type=""text/css""/>"
 Response.Write "<link rel=""stylesheet"" href=""/main/tongadmin.css"" type=""text/css""/>"

elseIf saytk>3 And saytk<100 Then
%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="keywords" content="程序开发,龙门在线QQ565659541,http://saytk.com" />
<meta http-equiv="Content-Type" content="application/vnd.wap.xhtml+xml;charset=UTF-8"/>
<%
	
		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="11" then
        Response.Write "<link rel=""stylesheet"" href=""/main/3.css"" type=""text/css""/>"
		elseif saytk="12" then
        Response.Write "<link rel=""stylesheet"" href=""/main/1.css"" type=""text/css""/>"
        end If
        If saytk<>5 then
           Response.Write "<link rel=""stylesheet"" href=""/main/tongyong.css"" type=""text/css""/>"
        Response.Write "<link rel=""stylesheet"" href=""/main/tongyongadmin.css"" type=""text/css""/>"
		End if
        Response.Write ""&num&"<link rel=""shortcut icon"" href=""/favicon.ico"" />"

elseif saytk=100 Then
%><!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="text/html; charset=UTF-8" />
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta name="viewport" content="width=device-width; initial-scale=1.4; minimum-scale=1.0; maximum-scale=2.0"/>
<meta name="MobileOptimized" content="240"/>
<%
Response.Write ""&num&"<link rel=""stylesheet"" href=""/main/3gg.css"" type=""text/css""/>"
else
    Response.ContentType = "text/vnd.wap.wml"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta name="keywords" content="龙门建站saytk.com"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
    <%
end If
End Sub









'===============================================
sub saycard(a,b)

if saytk=2 then
Response.write "<title>"&a&"</title></head><body><body bgcolor="""&yanse2&""">"
If b="center" then
response.write"<"&b&">"&chr(13)
End if
call qiu()
elseif saytk=3 then
Response.write "<title>"&a&"</title></head><body><body bgcolor="""&yanse2&""">"
If b="center" then
response.write"<"&b&">"&chr(13)
End if
call qiu1()
ElseIf saytk>3 Then
response.write"<title>"&a&"</title></head><body>"
If b="center" Then response.write"<"&b&">"&chr(13)

if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If


if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card title='"&a&"'>"
If b="center" then
response.write"<p align='"&b&"'>"&chr(13)
Else
response.write"<p>"&chr(13)
End if

end if

end Sub
sub saycard123(a,b)

if saytk=2 then
Response.write "<title>"&a&"</title></head><body><body bgcolor="""&yanse1&""">"
response.write"<p align='"&b&"'>"&chr(13)
call qiu()

elseif saytk=3 then
Response.write "<title>"&a&"</title></head><body><body bgcolor="""&yanse1&"""><p>"

elseif saytk>3 then
Response.write "<title>"&a&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If

if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card title="""&a&""">"
response.write"<p align="""&b&""">"&chr(13)

end if
end Sub

sub saycarda(c)

if saytk=2 then
Response.write "<title>"&c&"</title></head><body><body bgcolor="""&yanse2&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&c&"</title></head><body><body bgcolor="""&yanse2&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&c&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If

if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card id=""card"" title="""&c&"""><p>"
end if
end If
end if
end Sub

sub cardgame(x,y)

if saytk=2 then
Response.write "<title>"&x&"</title></head><body><body bgcolor="""&y&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&x&"</title></head><body><body bgcolor="""&y&"""><p>"
call qiu2()
Else
If saytk>3 Then
response.write"<title>"&x&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If

if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card id=""card"" title="""&x&"""><p>"
end if
end If
end if
end Sub


sub saycardb(d)

if saytk=2 then
Response.write "<title>"&d&"</title></head><body><body bgcolor="""&yanse3&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&d&"</title></head><body><body bgcolor="""&yanse3&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&d&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card id=""card"" title="""&d&"""><p>"
end if
end If
end if
end sub
sub saycardc(e)
if saytk=2 then
Response.write "<title>"&e&"</title></head><body><body bgcolor="""&yanse4&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&e&"</title></head><body><body bgcolor="""&yanse4&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&e&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card id=""card"" title="""&e&"""><p>"
end if
end If
end if
end Sub
sub saycardd(c)

if saytk=2 then
Response.write "<title>"&c&"</title></head><body><body bgcolor="""&yanse5&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&c&"</title></head><body><body bgcolor="""&yanse5&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&c&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card id=""card"" title="""&c&"""><p>"
end if
end If
end if
end Sub
sub saycarde(g)

if saytk=2 then
Response.write "<title>"&g&"</title></head><body><body bgcolor="""&yanse6&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&g&"</title></head><body><body bgcolor="""&yanse6&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&g&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card id=""card"" title="""&g&"""><p>"
end if
end If
end if
end Sub
sub saycardf(h)

if saytk=2 then
Response.write "<title>"&h&"</title></head><body><body bgcolor="""&yanse7&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&h&"</title></head><body><body bgcolor="""&yanse7&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&h&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card id=""card"" title="""&h&"""><p>"
end if
end If
end if
end Sub
sub saycardg(i)

if saytk=2 then
Response.write "<title>"&i&"</title></head><body><body bgcolor="""&yanse8&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&i&"</title></head><body><body bgcolor="""&yanse8&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&i&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card id=""card"" title="""&i&"""><p>"
end if
end If
end if
end Sub


sub saycard3g(i)
if saytk=2 then
Response.write "<title>"&i&"</title></head><body><body bgcolor="""&yanse9&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&i&"</title></head><body><body bgcolor="""&yanse9&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&i&"</title></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If

else
response.write"<card id=""card"" title="""&i&"""><p>"
end if
end If
end if
end Sub
Sub saylasta()

url12=Replace(Replace(R_url(),"saytk","ooo="),"sid=","sidoo=")
if saytk>1 and saytk<100 then
if saytk=2 then
%>
<div class="b"><marquee bgcolor="#aaaaee" scrollamount="2"><%=saytk3gg%></marquee> 
</div>
</td></tr></table><%
Response.Write "</p></body></html>"
else
if saytk=3 then
%>
<div class="b"><marquee bgcolor="#aaaaee" scrollamount="2"><%=saytk3gg%></marquee> 
</div>
</td></tr></table><%
Response.Write "</p></FONT></body></html>"
Else
If saytk=>4 Then

Response.Write "</div></body></html>"
else
Response.Write "</p></card></wml>"
end if
end If
End if

Else
if saytk=100 then%>
<h1>
<% 


Response.Write "</div></body></html>"
%>
<%if saytk>=4 and saytk<100 then%>
</div>
<%end if%>


<%if saytk=100 and request.servervariables("script_name")<>"/bbs/topic.asp" and request.servervariables("script_name")<>"/article.asp" then%>
</div>
<%end if
Else
if saytk=2 then
%>
<div class="b"><marquee bgcolor="#aaaaee" scrollamount="2"><%=saytk3gg%></marquee> 
</div>
</td></tr></table><%
Response.Write "</p></body></html>"
else
if saytk=3 then
%>
<div class="b"><marquee bgcolor="#aaaaee" scrollamount="2"><%=saytk3gg%></marquee> 
</div>
</td></tr></table><%
Response.Write "</p></FONT></body></html>"
Else
if saytk>3 then
%>
<div class="b"><marquee bgcolor="#aaaaee" scrollamount="2"><%=saytk3gg%></marquee> 
</div>
<%
Response.Write "</div></body></html>"
else
Response.Write "</p></card></wml>"
end if
end If
End if
end if
End if
end Sub


Sub cardz(g,h)
if saytk=2 then
Response.write "<title>"&g&"</title><meta http-equiv=""refresh"" content=""6;url="&h&"""></head><body><body bgcolor="""&yanse&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&g&"</title><meta http-equiv=""refresh"" content=""6;url="&h&"""></head><body><body bgcolor="""&yanse&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&g&"</title><meta http-equiv=""refresh"" content=""3;url="&h&"""></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If
else
response.write "<card title="""&g&""" ontimer="""&h&""">"
response.write "<timer value=""50""/><p>"
end If
end if
end If
End sub
Sub cardz10(g,h)
if saytk=2 then
Response.write "<title>"&g&"</title><meta http-equiv=""refresh"" content=""10;url="&h&"""></head><body><body bgcolor="""&yanse&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&g&"</title><meta http-equiv=""refresh"" content=""10;url="&h&"""></head><body><body bgcolor="""&yanse&"""><p>"
call qiu1()
Else

If saytk>3 Then
response.write"<title>"&g&"</title><meta http-equiv=""refresh"" content=""3;url="&h&"""></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If
else
response.write "<card title="""&g&""" ontimer="""&h&""">"
response.write "<timer value=""90""/><p>"
end If
end if
end If
End sub
Sub cardz3(g,h)
if saytk=2 then
Response.write "<title>"&g&"</title><meta http-equiv=""refresh"" content=""3;url="&h&"""></head><body><body bgcolor="""&yanse&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&g&"</title><meta http-equiv=""refresh"" content=""3;url="&h&"""></head><body><body bgcolor="""&yanse&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&g&"</title><meta http-equiv=""refresh"" content=""3;url="&h&"""></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If
else
response.write "<card title="""&g&""" ontimer="""&h&""">"
response.write "<timer value=""3""/><p>"
end If
end if
end If
End Sub

Sub cardt(g,h,z)
if saytk=2 then
Response.write "<title>"&g&"</title><meta http-equiv=""refresh"" content="""&z&";url="&h&"""></head><body><body bgcolor="""&yanse&"""><p>"
call qiu()
else
if saytk=3 then
Response.write "<title>"&g&"</title><meta http-equiv=""refresh"" content="""&z&";url="&h&"""></head><body><body bgcolor="""&yanse&"""><p>"
call qiu1()
Else
If saytk>3 Then
response.write"<title>"&g&"</title><meta http-equiv=""refresh"" content="""&z&";url="&h&"""></head><body>"
if saytk>=4 and saytk<100 Then
if saytk=9 then%>
<div class="td_3">
<%else%>
<div class="td_3">
<%
end If
end If
if saytk=100 then %>
<div class="wrap">
<div class="main">
<%end If
if saytk=12 then %>
<div class="main">
<div class="list">
<%end If
else
response.write "<card title="""&g&""" ontimer="""&h&""">"
response.write "<timer value="""&z&"""/><p>"
end If
end if
end If
End sub

function getHTTPPage1(url,Input_) 
dim Http1 
set Http1=server.createobject("Microsoft.XMLHTTP") 
Http1.Open "POST",url,False,"", ""
Http1.SetRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
Http1.Send(Input_) 
if Http1.readystate<>4 then 
exit function 
end if 
getHTTPPage1=bytesToBSTR1(Http1.responseBody,"utf-8") 'utf-8,GB2312
set http1=nothing 
if err.number<>0 then err.Clear 
end Function

Function BytesToBstr1(body,Cset) 
dim objstream1 
set objstream1 = Server.CreateObject("adodb.stream") 
objstream1.Type = 1 
objstream1.Mode =3 
objstream1.Open 
objstream1.Write body 
objstream1.Position = 0 
objstream1.Type = 2 
objstream1.Charset = Cset 
BytesToBstr1 = objstream1.ReadText 
objstream1.Close 
set objstream1 = nothing 
End Function 
sa=""&chr("50")&""

Function CheckFileType1(AllowFileType,FileExtStr)
	AllowArray=Split(AllowFileType,"|")
	AllowCount=Ubound(AllowArray)
	FileExtName=Right(FileName,3)
	IF AllowCount>0 Then
		For i = LBound(AllowArray) to UBound(AllowArray)
		IF LCase(AllowArray(i))=LCase(FileExtName) Then
			CheckFileType1=True
			Exit For
		End IF
		Next
	End IF
	IF FileExtName="asp" or FileExtName="asa" or FileExtName="aspx" or FileExtName="cer" or FileExtName="php" or FileExtName="cdx" or FileExtName="htr" or FileExtName="exe" Then
		CheckFileType1 = False
	End If
End Function


Function bgsoundsay(num)
If sayallmusic<>2 then
If saytk>1 then
dim bgsoundsayy
randomize timer
bgsoundsayy=int(rnd*num)+1
Response.Write "<bgsound src=/music/"& bgsoundsayy &".mid loop=3 volume=50>"
End If
End if
End Function

%>