写wap页面吗? <%@ Page Language="vb" AutoEventWireup="false" Codebehind="index.aspx.vb" Inherits="footclub.MobileWebForm1" %> <%@ Register TagPrefix="mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile" %> <HEAD> <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1"> <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1"> <meta name="vs_targetSchema" content="http://schemas.microsoft.com/Mobile/Page"> </HEAD> <body Xmlns:mobile="http://schemas.microsoft.com/Mobile/WebForm"> <mobile:Form id="indexform" runat="server"></mobile:Form> </body> Public Class MobileWebForm1 Inherits System.Web.UI.MobileControls.MobilePage Protected WithEvents indexform As System.Web.UI.MobileControls.Form Dim db As New gongsi.config Public cmd As Odbc.OdbcCommand Public dr As Odbc.OdbcDataReader#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent() End Sub
#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此处放置初始化页的用户代码 If Not Page.IsPostBack Then '根据传递过来的MIC数据,插入用户记录表 '打开数据库 db.sybaseopen() '插入访问记录 'Dim mobile As String 'mobile = Request.QueryString("Mid") 'cmd = New Odbc.OdbcCommand("insert tmp values ('" & mobile & "')", db.conn) 'cmd.ExecuteScalar() firstlanmu() db.conn.Close() End If End Sub '业务代码 '提取首页一级栏目 Public Function firstlanmu() Dim outstr As String Dim j, k As Integer Dim i As Integer = 1
Try cmd = New Odbc.OdbcCommand("select FirstID,EnglishName,MenuLogo from SysFirstItem where ItemName='" & ConfigurationSettings.AppSettings("Name") & "'", db.conn) dr = cmd.ExecuteReader While dr.Read k = dr.Item("FirstID") '如果有图片Logo存在 If dr.Item("MenuLogo") <> "" Then Dim logo As New MobileControls.Image indexform.Controls.Add(logo) logo.ImageUrl = "../wapimg/" & dr.Item("EnglishName") & "/" & dr.Item("MenuLogo") End If End While dr.Close() Dim indexdata As New MobileControls.TextView indexform.Controls.Add(indexdata) cmd = New Odbc.OdbcCommand("select ItemName,HasDownItem,SecondID from SysSecondItem where FirstID=" & k & " order by MenuOrder", db.conn) dr = cmd.ExecuteReader If dr.HasRows Then While dr.Read '如果不存在二级栏目,则连接导向list文件,如果有进入lanmu页面 If dr.Item("HasDownItem") = 1 Then indexdata.Text += i & "· <a href='lanmu.aspx?FirstId=" & k & "&SecondId=" & dr.Item("SecondID") & "'>" & dr.Item("ItemName") & "</a><br>" Else indexdata.Text += i & "· <a href='list.aspx?FirstId=" & k & "&SecondId=" & dr.Item("SecondID") & "&ThirdID=0'>" & dr.Item("ItemName") & "</a><br>" End If i = i + 1 End While End If dr.Close() indexform.Title = ConfigurationSettings.AppSettings("Name") indexdata.Text += "<a href='help.aspx'>帮助</a><br>" indexdata.Text += ConfigurationSettings.AppSettings("BackWebUrl") Catch ex As Exception End Try End Function End Class
以前的讲座里有,可以到ms网站找找
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="index.aspx.vb" Inherits="footclub.MobileWebForm1" %>
<%@ Register TagPrefix="mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile" %>
<HEAD>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/Mobile/Page">
</HEAD>
<body Xmlns:mobile="http://schemas.microsoft.com/Mobile/WebForm">
<mobile:Form id="indexform" runat="server"></mobile:Form>
</body>
Public Class MobileWebForm1
Inherits System.Web.UI.MobileControls.MobilePage
Protected WithEvents indexform As System.Web.UI.MobileControls.Form
Dim db As New gongsi.config
Public cmd As Odbc.OdbcCommand
Public dr As Odbc.OdbcDataReader#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
'根据传递过来的MIC数据,插入用户记录表
'打开数据库
db.sybaseopen()
'插入访问记录
'Dim mobile As String
'mobile = Request.QueryString("Mid")
'cmd = New Odbc.OdbcCommand("insert tmp values ('" & mobile & "')", db.conn)
'cmd.ExecuteScalar()
firstlanmu()
db.conn.Close()
End If
End Sub
'业务代码
'提取首页一级栏目
Public Function firstlanmu()
Dim outstr As String
Dim j, k As Integer
Dim i As Integer = 1
Try
cmd = New Odbc.OdbcCommand("select FirstID,EnglishName,MenuLogo from SysFirstItem where ItemName='" & ConfigurationSettings.AppSettings("Name") & "'", db.conn) dr = cmd.ExecuteReader
While dr.Read
k = dr.Item("FirstID")
'如果有图片Logo存在
If dr.Item("MenuLogo") <> "" Then
Dim logo As New MobileControls.Image
indexform.Controls.Add(logo)
logo.ImageUrl = "../wapimg/" & dr.Item("EnglishName") & "/" & dr.Item("MenuLogo")
End If
End While
dr.Close()
Dim indexdata As New MobileControls.TextView
indexform.Controls.Add(indexdata)
cmd = New Odbc.OdbcCommand("select ItemName,HasDownItem,SecondID from SysSecondItem where FirstID=" & k & " order by MenuOrder", db.conn)
dr = cmd.ExecuteReader
If dr.HasRows Then
While dr.Read
'如果不存在二级栏目,则连接导向list文件,如果有进入lanmu页面
If dr.Item("HasDownItem") = 1 Then
indexdata.Text += i & "· <a href='lanmu.aspx?FirstId=" & k & "&SecondId=" & dr.Item("SecondID") & "'>" & dr.Item("ItemName") & "</a><br>"
Else
indexdata.Text += i & "· <a href='list.aspx?FirstId=" & k & "&SecondId=" & dr.Item("SecondID") & "&ThirdID=0'>" & dr.Item("ItemName") & "</a><br>"
End If
i = i + 1
End While
End If
dr.Close()
indexform.Title = ConfigurationSettings.AppSettings("Name")
indexdata.Text += "<a href='help.aspx'>帮助</a><br>"
indexdata.Text += ConfigurationSettings.AppSettings("BackWebUrl")
Catch ex As Exception
End Try
End Function
End Class