search.asp

ASP的网上商城在线支付系统

                    <td align=center><a href="yuminglist1.asp?ID=<%=rs("ID")%>" target="_blank"><%=rs("Email")%></a></td>
                    <td align=center><a href="yuminglist1.asp?ID=<%=rs("ID")%>" target="_blank"><%=rs("tel")%></a></td>
                    <td align=center> 
                      <input type=button name=lock value=<%if rs("lockuser")=false then%>"锁定"<%else%>"开锁"<%end if%> onclick="javascript:window.open('agencySave.asp?id=<%=rs("id")%>&act=lock','_self','')">
                    </td>
                    <td align=center> 
                      <input type=button name=del value=删除 onclick="javascript:window.open('agencyDel.asp?id=<%=rs("id")%>','_self','')">
                    </td>
                  </tr>
                  <%
	i=i+1
	if i>=MaxPerPage then exit do
rs.movenext
loop
%>
                </table>
<!-----------------------搜索代理商----------------------------->
<%elseif stype="agencytel" then%>
                                    
                <table border="0" width="100%" cellspacing="0" cellpadding="2" class="TableLine" bordercolorlight="" bgcolor="">
                  <tr> 
                    <td colspan="7" height=18 align=center>:::::::::::代理商搜索:::::::::::</td>
                  </tr>
                  <tr> 
                    <td width="5%" height=18 align=center>ID</td>
                    <td width="16%" height=18 align=center>代理商姓名</td>
                    <td width="15%" height=18 align=center>性质</td>
                    <td width="26%" height=18 align=center>地址</td>
                    <td width="20%" height=18 align=center>电话</td>
                    <td width="9%" height=18 align=center>锁定</td>
                    <td width="9%" height=18 align=center>删除</td>
                  </tr>
                  <%do while not rs.eof%>
                  <tr> 
                    <td align=center><%=rs("id")%><%=totalPut-(i+MaxPerPage*(currentpage-1)-1)%>　</td>
                    <td align=center><a href="agencylist1.asp?ID=<%=rs("ID")%>" target="_blank"> 
                      <%=rs("bond")%></a> 
                      <%if DateValue(rs("addDate"))=date() then%>
                      <img src="images/new.gif"> 
                      <%end if%>
                    </td>
                    <td align=center> 
                      <%if rs("onetype")=1 then%>
                      个人 
                      <%else%>
                      公司/单位/组织 
                      <%end if%>
                    </td>
                    <td align=center><a href="agencylist1.asp?ID=<%=rs("ID")%>" target="_blank"> <%=rs("address")%></a></td>
                    <td align=center><a href="agencylist1.asp?ID=<%=rs("ID")%>" target="_blank"> <%=rs("tel")%></a></td>
                    <td align=center> 
                      <input type=button name=lock value=<%if rs("lockuser")=false then%>"锁定"<%else%>"开锁"<%end if%> onclick="javascript:window.open('agencySave.asp?id=<%=rs("id")%>&act=lock','_self','')">
                    </td>
                    <td align=center> 
                      <input type=button name=del value=删除 onclick="javascript:window.open('agencyDel.asp?id=<%=rs("id")%>','_self','')">
                    </td>
                  </tr>
                  <%
	i=i+1
	if i>=MaxPerPage then exit do
rs.movenext
loop
%>
                </table>
<!-----------------------搜索虚拟主机----------------------------->
<%elseif stype="SpecialIntro" then%>
                  <table border="0" width="100%" cellspacing="0" cellpadding="2" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
                    <tr>
                      <td width="30%" height=20 align=center bgcolor="#C6D1DB">专辑</td>
                      <td width="16%" height=20 align=center bgcolor="#C5DAE4">歌手</td>
                      <td width="17%" height=20 align=center bgcolor="#C6D1DB">更新日期</td>
                      <td width="9%" height=20 align=center bgcolor="#C5DAE4">语种</td>
                      <td width="7%" height=20 align=center bgcolor="#C6D1DB">收录歌曲</td>
                      <td width="9%" height=20 align=center bgcolor="#C5DAE4">点击</td>
                    </tr>
<%
Set Trs= Server.CreateObject("ADODB.Recordset")
do while not rs.eof
	i=i+1
	Tsql="SELECT * FROM MusicList where Specialid="+cstr(rs("Specialid"))
	Trs.open Tsql,conn,1,1
	TotalMNum=Trs.recordcount
	Trs.close
%>
                    <tr>
                      <td width="30%" bgcolor="#E7EBEF"><%=i%>.<a href="../music/ShowSpecial.asp?specialid=<%=rs("Specialid")%>"><%=rs("Name")%></a></td>
                      <td width="16%" bgcolor="#E0ECF1" align=center><a href="../music/ShowSinger.asp?Classid=<%=rs("Classid")%>&SClassid=<%=rs("SClassid")%>&NClassid=<%=rs("NClassid")%>"><%=rs("Nclass")%></a></td>
                      <td width="17%" bgcolor="#E7EBEF" align=center><%=DateValue(rs("dateandtime"))%>　</td>
                      <td width="9%" bgcolor="#E0ECF1" align=center><%=rs("Language")%>　</td>
                      <td width="7%" bgcolor="#E7EBEF" align=center><%=TotalMNum%>　</td>
                      <td width="9%" bgcolor="#E0ECF1" align=center><%=rs("Hits")%>　</td>
                    </tr>
                    <tr>
                      <td colspan=7>部分简介：<br><%if Len(rs("Intro"))<=200 then%><%=rs("Intro")%><%else%><%=Left(rs("Intro"),200)%>...<%end if%></td>
                    </tr>
<%
	if i>=MaxPerPage then exit do
rs.movenext
loop
set Trs=nothing
%>
                  </table>
<!-----------------------搜索专辑语种----------------------------->
<%elseif stype="SpecialLang" then%>
                  <table border="0" width="100%" cellspacing="0" cellpadding="2" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
                    <tr>
                      <td width="30%" height=20 align=center bgcolor="#C6D1DB">专辑</td>
                      <td width="16%" height=20 align=center bgcolor="#C5DAE4">歌手</td>
                      <td width="17%" height=20 align=center bgcolor="#C6D1DB">更新日期</td>
                      <td width="9%" height=20 align=center bgcolor="#C5DAE4">语种</td>
                      <td width="7%" height=20 align=center bgcolor="#C6D1DB">收录歌曲</td>
                      <td width="9%" height=20 align=center bgcolor="#C5DAE4">点击</td>
                    </tr>
<%
Set Trs= Server.CreateObject("ADODB.Recordset")
do while not rs.eof
	i=i+1
	Tsql="SELECT * FROM MusicList where Specialid="+cstr(rs("Specialid"))
	Trs.open Tsql,conn,1,1
	TotalMNum=Trs.recordcount
	Trs.close
%>
                    <tr>
                      <td width="30%" bgcolor="#E7EBEF"><%=i%>.<a href="../music/ShowSpecial.asp?specialid=<%=rs("Specialid")%>"><%=rs("Name")%></a></td>
                      <td width="16%" bgcolor="#E0ECF1" align=center><a href="../music/ShowSinger.asp?Classid=<%=rs("Classid")%>&SClassid=<%=rs("SClassid")%>&NClassid=<%=rs("NClassid")%>"><%=rs("Nclass")%></a></td>
                      <td width="17%" bgcolor="#E7EBEF" align=center><%=DateValue(rs("dateandtime"))%>　</td>
                      <td width="9%" bgcolor="#E0ECF1" align=center><%=rs("Language")%>　</td>
                      <td width="7%" bgcolor="#E7EBEF" align=center><%=TotalMNum%>　</td>
                      <td width="9%" bgcolor="#E0ECF1" align=center><%=rs("Hits")%>　</td>
                    </tr>
<%
	if i>=MaxPerPage then exit do
rs.movenext
loop
Set Trs=nothing
%>
                  </table>
<!-----------------------搜索会员----------------------------->
<%elseif stype="User" then%>
                  <table border="0" width="100%" cellspacing="0" cellpadding="2" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
                    <tr>
                      <td width="10%" height=20 align=center bgcolor="#C6D1DB">ID</td>
                      <td width="20%" height=20 align=center bgcolor="#C5DAE4">会员</td>
                      <td width="10%" height=20 align=center bgcolor="#C6D1DB">性别</td>
                      <td width="30%" height=20 align=center bgcolor="#C5DAE4">信箱</td>
                      <td width="20%" height=20 align=center bgcolor="#C6D1DB">主页</td>
                      <td width="10%" height=20 align=center bgcolor="#C5DAE4">OICQ</td>
                    </tr>
<%
i=0
do while not rs.eof
	i=i+1
%>
                    <tr>
                      <td align=center bgcolor="#E7EBEF"><%'=rs("id")%><%=totalPut-(i+MaxPerPage*(currentpage-1)-1)%>　</td>
                      <td align=center bgcolor="#E0ECF1"><a style=cursor:hand title="会员详细资料：&#13;&#10;试听：<%=rs("Listens")%>&#13;&#10;下载：<%=rs("downloads")%>&#13;&#10;点歌：<%=rs("SMusics")%>&#13;&#10;评论：<%=rs("WGBooks")%>&#13;&#10;登陆：<%=rs("logins")%>&#13;&#10;个人说明：&#13;&#10;<%if rs("sign")="" or isnull(rs("sign")) then%>无<%else%><%=htmlencode1(rs("sign"))%><%end if%>"><%=rs("UserName")%></a><%if DateValue(rs("addDate"))=date() then%> <img src="../music/images/new.gif"><%end if%></td>
                      <td align=center bgcolor="#E7EBEF"><%if rs("sex")=1 then%>男<%else%><font color="<%=AlertFColor%>">女</font><%end if%></td>
                      <td align=center bgcolor="#E0ECF1"><%=rs("Email")%>　</td>
                      <td align=center bgcolor="#E7EBEF"><a href="<%=rs("UserWebUrl")%>"><%=rs("UserWebName")%></a>　</td>
                      <td align=center bgcolor="#E0ECF1"><%=rs("oicq")%>　</td>
                    </tr>
<%
	if i>=MaxPerPage then exit do
rs.movenext
loop
%>
                  </table>
<%end if%>
<%
end sub 

function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
	n= totalnumber \ maxperpage
else
	n= totalnumber \ maxperpage+1
end if
%>
<form method=Post action="<%=filename%>?keyword=<%=keyword%>&stype=<%=stype%>">
  <center>共找到<font color="<%=AlertFColor%>"><b><%=totalnumber%></b></font>项记录
<%if CurrentPage<2 then%>
  &nbsp;首页 上一页&nbsp;
<%else%>
  &nbsp<a href="<%=filename%>?page=1&keyword=<%=keyword%>&stype=<%=stype%>">首页</a>&nbsp;
  <a href="<%=filename%>?page=<%=CurrentPage-1%>&keyword=<%=keyword%>&stype=<%=stype%>">上一页</a>&nbsp;
<%
end if
if n-currentpage<1 then
%>
  下一页 末页
<%else%>
  <a href="<%=filename%>?page=<%=CurrentPage+1%>&keyword=<%=keyword%>&stype=<%=stype%>">下一页</a>
  <a href="<%=filename%>?page=<%=n%>&keyword=<%=keyword%>&stype=<%=stype%>">末页</a>
<%end if%>
  &nbsp;页次:<strong><font color="<%=AlertFColor%>"><%=CurrentPage%>/<%=n%></font></strong>页
  转到:<select name="page" size="1" onchange="javascript:submit()">
<%for i = 1 to n%>           
  <option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>   
<%next%>   
  </select>        
</form>        
                <%        
end function

function Search
%>
                <%end function%>
              </td>
		</tr>
      </table>
    </td>
  </tr>
</table>


<%
set rs=nothing
conn.close
set conn=nothing
%></body></html>