当前位置：首页 > 设计在线 > 网页设计 > WAP > 鎺屾彙涓浗(wap.zhangwo.cn)澶╂皵婧愮▼搴�

鎺屾彙涓浗(wap.zhangwo.cn)澶╂皵婧愮▼搴�

点击次数：31 次 发布日期：2008-11-22 11:07:34 作者：源代码网
源代码网推荐

 
<%@ Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Cache-Control" content="private"/>
</head>


<card title="澶╂皵:鎺屾彙涓浗" >
<do type ="options" label="鎺屾彙涓浗">
<go href="http://wap.zhangwo.cn"/>
</do>
<p>
<%Response.Expires=0
dim input()
id=Request.QueryString("id")
if id=Vbempty then id=1
lyfile = server.mappath("data.asp")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(lyfile,1,False)
counter = 0
do while not thisfile.AtEndOfStream
thisline = thisfile.readline
Redim preserve input(counter)
input(counter) = thisline
counter = counter + 1
loop
thisfile.Close
lynumber=(counter-1)/10

Response.Write "" & input(0) & "<br/>"
%>
<br/>
</p>
<p mode="nowrap" align="left">
<a title="纭畾" href="http://wap.zhangwo.cn">杩斿洖鎺屾彙涓浗</a>
</p>
<p align="left">
--------------<br/>
wap.zhangwo.cn<br/>
鎺屾彙涓浗   鐗堟潈鎵�鏈�<br/>
瀹㈡湇QQ:  35733243<br/>
</p>
</card>
</wml>
 
 

源代码网供稿.
网友评论 (0)
我也要写评论
会员中心
设计在线
本站推荐
设计在线之精华