📄 viewphone.aspx
字号:
<%@ Page Explicit="True" Language="VB" Debug="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %>
<!--#include file="config.aspx" -->
<!--#include file="checklogin.aspx" -->
<!--#include file="man_menu.aspx" -->
<Script Runat="Server">
public man_name1
Sub Page_Load( s As Object, e As EventArgs )
call checkstatus
if session("useriD")="" then
btnlogin.text="login"
end if
if request.QueryString("man_ID")="" then
response.Redirect("index.aspx")
end if
If Not isPostBack Then
call fillmanu
ViewState("Start") = 0
BindPhone
if session("useriD")="" then
btnlogin.text="login"
end if
End If
call checkvalidman
call manLogo
End Sub
Sub Next_Click(Sender As Object, E As EventArgs)
Dim dlistcount As Integer = phonelist.Items.Count
intStart = ViewState("Start") + ViewState("pageSize")
ViewState("Start") = intStart
If dlistcount < ViewState("pageSize") Then
ViewState("Start") = ViewState("Start") - ViewState("pageSize")
End If
'Call BindPhone sub and display data
call BindPhone
End Sub
'Set the paging previous link
Sub Prev_Click(Sender As Object, E As EventArgs)
intStart = ViewState("Start") - ViewState("pageSize")
ViewState("Start") = intStart
If intStart <= 0 Then
ViewState("Start") = 0
End If
'BindPhone sub and display data
call BindPhone
End Sub
'Jump back to the first page
Sub FirstPage(Sender As Object, E As EventArgs)
If intStart <= 0 Then
ViewState("Start") = 0
End If
'Call BindPhone
call BindPhone
End Sub
Sub BindPhone
call dbcon
bcon.Open()
bcmd = New sqlCommand("select PhoneID,thumnail from phone_details where man_ID='" & request.querystring("man_ID") & "' order by date_pub desc",bcon)
Dim phoneadapter as New sqlDataAdapter(BCmd)
Dim dts as New DataSet()
intStart = ViewState("Start")
ViewState("pageSize") = 24
phoneadapter.Fill(dts, intStart, ViewState("pageSize"), "POstID")
phonelist.DataSource = dts
phonelist.DataBind()
'msglist.DataSource =bcmd.ExecuteReader()
'msglist.DataBind()
bcon.Close()
mandsp.text=request.QueryString("man_name")
End Sub
sub SelectItem(s As Object,e As DataListCommandEventArgs)
Dim PhoneID, man_name As String
phoneID = e.CommandArgument
man_name=trim(request.QueryString("man_name"))
Response.Redirect("viewPhoneDetails.aspx?phoneID=" & _
PhoneID & "&man_Name=" &man_name)
end sub
sub checkvalidman
call dbcon
mcmd=new sqlcommand("select man_id,man_name from manufacturer where man_ID='" & request.QueryString("man_ID") & "' and man_name='" & request.QueryString("man_name") & "'" ,bcon)
bcon.open
dr=mcmd.executereader
If dr.HasRows = False Then
session("invalidreq")="yes"
response.Redirect("requesterror.aspx")
End If
bcon.close
end sub
</Script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<link rel="icon"
type="image/png"
href="favicon.ico">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>GSMLanka - All Phones</title>
<link href="stylesheet1.css" rel="stylesheet1" type="text/css" />
<SCRIPT language=JavaScript
src="javascript.js"></SCRIPT>
<style type="text/css">
<!--
.borderTable {padding: 0px 0px 0px 0px;
border: 1px solid #cccccc;
}
.borderTable {padding: 0px 0px 0px 0px;
border: 1px solid #CCCCCC;
}
-->
</style>
<link href="stylesheet1.css" rel="stylesheet1" type="text/css" />
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style3 {font-weight: bold}
-->
</style>
<link href="stylesheet1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style4 {TEXT-TRANSFORM: capitalize; COLOR: #336699; FONT-FAMILY: Verdana, arial, helvetica; TEXT-DECORATION: none; font-size: 10px;}
-->
</style>
</head>
<body><form runat="server">
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="800" height="32" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="307" height="4"></td>
<td width="493"></td>
</tr>
<tr>
<td height="28" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="imagenew/up_serch_ban.jpg">
<!--DWLayoutTable-->
<tr>
<td width="153" height="28"> </td>
<td width="150" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="157" height="28"><font color="#336699">
<asp:TextBox ID="txtSearch" Columns="6" width="104px" runat="server" TextMode="SingleLine" />
<asp:Button ID="btnSearch" Text="Go" Width="32" runat="server" />
</font></td>
</tr>
</table></td>
<td width="4"> </td>
</tr>
</table></td>
<td><table width="100%" height="28" border="0" align="center" cellpadding="0" cellspacing="0" background="imagenew/up_ban.jpg" bgcolor="#FFCC00">
<!--DWLayoutTable-->
<tr>
<td width="52" height="28"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="index.aspx"><span class="style1">Home</span></a></td>
<td width="55"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="signup.aspx"><span class="style1">Register</span></a></td>
<td width="58"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="forum.aspx"><span class="style1">Forums</span></a></td>
<td width="72"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="orderstatus.aspx"><span class="style1">Track Order </span></a></td>
<td width="66"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="multimedia.aspx">Multimedia</a></td>
<td width="42"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="faq.aspx"><span class="style1">Faq</span></a></td>
<td width="50"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="about.aspx"><span class="style1">About</span></a></td>
<td width="80"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="contact.aspx"><span class="style1">Contact Us </span></a></td>
<td width="18"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" class="border4">
<!--DWLayoutTable-->
<tr>
<td width="7" height="7"></td>
<td width="783"></td>
<td width="7"></td>
</tr>
<tr>
<td height="134"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="imagenew/main_ban.jpg">
<!--DWLayoutTable-->
<tr>
<td width="783" height="134" valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="783" height="134" title="Banner">
<param name="movie" value="Flash Banner/banner.swf">
<param name="quality" value="high">
<embed src="Flash Banner/banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="783" height="134"></embed>
</object></td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="8"></td>
<td></td>
<td></td>
</tr>
</table>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" class="border4">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -