ASP翻页代码

来源：百度知道 编辑：UC知道 时间：2024/05/15 13:23:08
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/adminconn.inc"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from wszfts order by id desc"
rs.open sql,conn,1,3
%>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width=170 border=0>

<TR>
<TD height=3><IMG height=3 src="images/left_01.gif"
width=168></TD>
</TR>
<TR>
<TD height="100%" valign="top" background=images/left_02.gif><br><TABLE width=150 border=0 align=center cellPadding=0 cellSpacing=0">
<FORM action="chklogin.asp" method="post">

<table width="601"><tr><td

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<!--#include file="adovbs.inc"-->

<%
Dim Cnn, StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "driver={SQL server};server=127.0.0.1;UID=sa;PWD=;DATABASE=test"
Cnn.Open StrCnn
Dim rs,StrSQL
Set rs = server.CreateObject("ADODB.Recordset")
StrSQL = "select ID,Name,English_Name,case Sex when '0' then 'Male' else 'Female' end Sex,TelePhone_NO,"
StrSQL = StrSQL & "case Department_NO when '0' then 'BOI100' when '1' then 'B0R100' when '2' then 'B0R200' else 'B0R300' end Department_NO ,Hometown "
StrSQL = StrSQL & " from TBL_2006Member"
rs.Open StrSQL, Cnn,adopenstatic
%>
<html>
<head>
<title>prdshow</title>
<meta ht