开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
index.asp
资源名称：wap.rar　[点击查看]
上传用户：sking1122
上传日期：2020-09-24
资源大小：1005k
文件大小：5k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

index.asp：源码内容
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd" >
  3. <html xmlns="http://www.w3.org/1999/xhtml">
  4. <!--#include file="conn.inc"-->
  5. <%set rss=Server.CreateObject("ADODB.Recordset")
  6. rsppls="select * from wap_jb where id=1"
  7. rss.open rsppls,conn,1,2
  8. nnn=rss("wap_name")
  9. wwww=rss("wap_logo")
  10. ggg=rss("wap_bm")
  11. hhjr=rss("wap_jr")
  12. hhzr=rss("wap_zr")
  13. hhzl=rss("wap_zl")
  14. hhdq=rss("wap_dq")
  15. zzzttt=rss("wap_zt")
  16. oooppp=rss("mmop")
  17. aaadd=rss("wap_bm")
  18. if aaadd="" then aaadd="left"
  19. yyymmm=rss("ym_zt")
  20. %>
  21. <%r=request("r")
  22.  channelid=request("channelid")
  23.  page=request("page")
  24.  bbqq=request("bbqq")
  25.  docid=request("docid") 
  26. textpage=request("textpage")
  29.  function getHTTPPage(url)
  30.  dim Http
  31. set Http=server.createobject("MSXML2.XMLHTTP")
  32. Http.open "GET",url,false
  33. Http.send()
  34. if Http.readystate<>4 then 
  35. exit function
  36. end if
  37. getHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8")
  38. set http=nothing
  39. if err.number<>0 then err.Clear 
  40. end function
  41. Function bytestobstr(body,CSET)
  42. DIM OBJSTREAM
  43. SET OBJSTREAM = Server.CreateObject("adodb.stream")
  44. objstream.type = 1
  45. objstream.Mode = 3
  46. objstream.Open 
  47. objstream.Write body
  48. objstream.Position = 0
  49. objstream.type = 2
  50. objstream.Charset=Cset
  51. bytesTobstr = objstream.readText
  52. objstream.close
  53. set objstream=nothing
  54. end function%>
  55. <head>
  56. <meta http-equiv="Content-Type" content="application/vnd.wap.xhtml+xml;charset=UTF-8"/>
  57. <title><%=nnn%></title>
  58. <link href="css.css" rel="stylesheet" type="text/css" />
  59. </head>
  60. <body>
  61. <%
  62. if len(wwww)>7 then
  63. response.write("<img src='" & wwww & "' alt='"&nnn&"'/><br/>")
  64. end if
  65. if yyymmm<>"1" then
  66. response.write("" & rss("wap_ym") & "<br/>")
  67. end if
  68. %>
  71. <%if rss("mmop")=1 then%>
  72. <%browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
  73. 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="fetc" or browsers="r380" or browsers="winw" or  browsers="mozi" or browsers="mozi"  or browsers="m3ga" then
  74. response.redirect"sorr.asp"
  75. end if
  76. end if
  77. if rss("wap_zt")=1 then%>
  78. 站点升级维护中。。。。
  80. <%else%>
  82. <%set rs=Server.CreateObject("ADODB.Recordset")
  83. rsppl="select * from wap_lm where lx<>500 and yc<>1 and did=0 order by pid asc"
  84. rs.open rsppl,conn,1,2
  85. if rs.eof then 
  86. response.write("网站正在建设中。。<br/>")%>
  88. <%else
  89. rs.Move(0)
  90. dim j
  91. j=1
  92. do while ((not rs.EOF) and j <=500000)%>
  93. <%if rs("lx")="1" then%>
  94. <%=ubb(rs("txt"))%>
  95. <%elseif rs("lx")="2" then%>
  96. <a href="<%=ubb(rs("txt"))%>"><%=ubb(rs("nxn"))%></a>
  97. <%elseif rs("lx")="3" then%>
  98. <img src="<%=ubb(rs("url"))%>" alt="<%=ubb(rs("nxn"))%>"/>
  99. <%elseif rs("lx")="4" then%>
  100. <a href="<%=ubb(rs("url"))%>"><img src="<%=ubb(rs("txt"))%>" alt="<%=ubb(rs("nxn"))%>"/></a>
  101. <%elseif rs("lx")="5" then%>
  102. <a href="list.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
  103. <%elseif rs("lx")="6" then%>
  104. <a href="view.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
  105. <%elseif rs("lx")="7" then%>
  106. <a href="wml.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a>
  107. <%elseif rs("lx")="8" then%>
  108. <%=ubb2(rs("txt"))%>
  109. <%elseif rs("lx")="9" then%>
  110. <%=rs("txt")%>
  111. <%elseif rs("lx")="10" then%>
  112. <a href="wlist.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
  113. <%elseif rs("lx")="11" then%>
  114. <a href="dowm.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
  115. <%elseif rs("lx")="12" then%>
  116. <a href="soft.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
  117. <%elseif rs("lx")="13" then%>
  118. <a href="piclist.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
  119. <%end if%>
  120. <%if rs("dy")="1" then%>
  121. <!--#include file="xw.asp"-->
  122. <%end if%>
  123. <%if rs("dy")="2" then%>
  124. <br/><!--#include file="sy.asp"-->
  125. <%end if%>
  126. <%if rs("dy")="3" then%>
  127. <br/><!--#include file="ad.asp"-->
  128. <%end if%>
  129. <%if rs("dy")="4" then%>
  130. <br/><!--#include file="xt.asp"-->
  131. <%end if%>
  132. <%if rs("dy")="5" then%>
  133. <br/><!--#include file="yl.asp"-->
  134. <%end if%>
  135. <%if rs("dy")="6" then%>
  136. <br/><!--#include file="rt.asp"-->
  137. <%end if%>
  138. <%if rs("dy")="7" then%>
  139. <br/><!--#include file="zxwz.asp"-->
  140. <%end if%>
  141. <%if rs("dy")="8" then%>
  142. <br/><!--#include file="zrwz.asp"-->
  143. <%end if%>
  144. <%if rs("dy")="9" then%>
  145. <br/><!--#include file="zxsc.asp"-->
  146. <%end if%>
  147. <%if rs("brr")="1" then%><br/><%end if%>
  148. <%
  149. rs.MoveNext
  150. j=j+1
  151. loop
  152. end if
  153. %>
  154. <%end if%>
  155. <br/>
  156. </body>
  157. </html>