📄 index.asp
字号:
<TD background=pic.files/line.jpg><IMG height=4
src="pic.files/table_r7_c3.jpg"
width=13></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD><SPAN class=submenu id=sub5>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD><DIV align=center><SPAN class=classpic id=sub5><A
href="index.asp?job=list&classid=48">经典台词</A></SPAN></DIV></TD>
</TR>
<TR>
<TD background=pic.files/line.jpg><IMG height=4
src="pic.files/table_r7_c3.jpg"
width=13></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD><DIV align=center><SPAN class=classpic id=sub5><A
href="index.asp?job=list&classid=49">大话星仔</A></SPAN></DIV></TD>
</TR>
<TR>
<TD background=pic.files/line.jpg><IMG height=4
src="pic.files/table_r7_c3.jpg"
width=13></TD>
</TR>
</TBODY>
</TABLE>
</SPAN></TD>
</TR>
</TBODY>
</TABLE>
<SCRIPT>SwitchMenu('sub5')</SCRIPT>
</DIV></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD><IMG height=7 src="pic.files/table_r9_c1.jpg"
width=147></TD>
</TR>
</TBODY>
</TABLE>
<TABLE height=1 cellSpacing=0 cellPadding=0 width="85%" border=0>
<TBODY>
<TR>
<TD height=2><IMG height=5 src="pic.files/word"
width=2></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=10 bgColor=#ffffff> </TD>
<TD vAlign=top width=573 bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=0 width=570 align=center border=0>
<TBODY>
<TR>
<TD background=pic.files/line_h2_r1_c1.jpg><IMG height=3
src="pic.files/line_h2_r1_c1.jpg" width=565></TD>
</TR>
<TR>
<TD bgColor=#f7f7f7 height=20> 您现在所在位置: <a href="index.ASP">首页</a>＞＞<FONT
class=red>言语</FONT>传情 ［适用所有中文手机 支持1500汉字一次发送］</TD>
</TR>
<TR>
<TD background=pic.files/line_h2_r3_c1.jpg height=4><IMG height=7
src="pic.files/word" width=1></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=570 align=center border=0>
<TBODY>
<TR>
<TD background=pic.files/line_h1.jpg><IMG height=2
src="pic.files/line_h1.jpg" width=565></TD>
</TR>
<TR>
<TD bgColor=#ebfaff height=55><a href="http://www.baihen.com" target="_blank"><img src="pic.files/ad.gif" width="565" height="100" border="0"></a></TD>
</TR>
<TR>
<TD background=pic.files/line_h.jpg><IMG height=5
src="pic.files/line_h.jpg" width=565></TD>
</TR>
</TBODY>
</TABLE>
<TABLE height=1 cellSpacing=0 cellPadding=0 width="85%" border=0>
<TBODY>
<TR>
<TD height=2><IMG height=5 src="pic.files/word"
width=2></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=570 align=center border=0>
<TBODY>
<TR>
<TD width=27><IMG height=7 src="pic.files/arrow.jpg" width=22></TD>
<TD class=name width=238>言语传情推荐</TD>
<TD width=164> </TD>
<TD width=161><A
href="http://img.zhangxiu.com/2/208.html?f=11515" target="_blank"><IMG
height=22 src="pic.files/good.jpg" width=135 border=0></A></TD>
</TR>
<TR>
<TD height=25 colspan="4"><%
if Request.QueryString("job")="" then 'b
listlanmu
elseif Request.QueryString("job")="list" and Request.QueryString("classid")<>"" then 'b
listnote
elseif Request.QueryString("job")="new" and Request.QueryString("classid")<>"" then 'b
newnote
elseif Request.QueryString("job")="edit" and Request.QueryString("id")<>"" then 'b
editnote
elseif Request.QueryString("job")="del" and Request.QueryString("id")<>"" and Request.QueryString("classid")<>"" then 'b
delnote
elseif Request.QueryString("job")="upnew" and Request.QueryString("classid")<>"" then 'b
upnew
elseif Request.QueryString("job")="upedit" and Request.QueryString("id")<>"" then 'b
upedit
end if 'b
%>
<%sub listlanmu%>
<!--#include file="conn.asp"-->
<%
SQL="SELECT * FROM lanmu"
Set Rs=conn.Execute(SQL)
If Rs.Eof then%>
<p align="center">没有栏目</p>
<%else
do while not rs.eof
%>
<div align="center"><span class="STYLE1">ID:<%=RS("id")%> </span>短信分类导航----- <a href="index.asp?job=list&classid=<%=rs("id")%>"><%=rs("lanmu")%></a></div>
<br>
<% rs.movenext
loop
rs.close
end if
end sub%>
<%sub listnote%>
<!--#include file="conn.asp"-->
<%
CurrentPage=Request.QueryString("pages")
if CurrentPage="" then
CurrentPage=1
end if
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM article where lanmuid="&Request.QueryString("classid")&" order by id desc"
rs.open sql,conn,1,1
rs.PageSize=25
%>
<%if not rs.eof then
rs.AbsolutePage=CurrentPage
prevCurrentPage=CurrentPage-1
nextCurrentPage=CurrentPage+1 %>
<div align="right">
<% if CurrentPage <=1 and RS.PageCount<>1 then %>
上一页 <A HREF="index.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>
<A HREF="index.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A> <A HREF="index.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %>
<A HREF="index.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A> 下一页
<% end if%>
页次：<%=CurrentPage%>/<%=RS.PageCount%>页 <%=Rs.PageSize%>条短信/页 </div>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC" >
<tr bgcolor="#c8fc98">
<td bgcolor="#94dbef"><div align="center"></div>
<div align="left"><font color="#000000"></font>
<strong><font color="#000000">编号</font></strong></div></td>
<td bgcolor="#94dbef"><div align="center"><strong><font color="#000000">短信内容</font></strong></div></td>
<td width="14%" bgcolor="#94dbef"><div align="center"><strong><font color="#000000">短语类别</font></strong></div></td>
<td width="11%" bgcolor="#94dbef"><div align="center"><strong>发送</strong></div></td>
</tr>
<%
NumRows=0
do while not rs.eof and NumRows < rs.PageSize
%>
<tr>
<td width="12%" bgcolor="#eefcff"><div align="left"><font color="#666666"><%=rs("id")%></font></div></td>
<td width="63%" bgcolor="#FFFFFF"><font color="#666666"><%=rs("title")%></font></td>
<td width="14%" bgcolor="#eefcff"><p align="center"><font color="#666666"><%=rs("author")%></font> </td>
<td width="11%" bgcolor="#FFFFFF"><div align="center"><a href="javascript:" onClick="MM_openBrWindow('zyzstxt.asp?id=<%=rs("id")%>','发送短信','width=400,height=345')"><img src="pic.files/y_fasong_1.gif" width="41" height="17" border="0"></a></div></td>
</tr>
<%
rs.movenext
NumRows=NumRows+1
loop
%>
</table>
<div align="right">
<% if CurrentPage <=1 and RS.PageCount<>1 then %>
上一页 <A HREF="index.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>
<A HREF="index.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A> <A HREF="index.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %>
<A HREF="index.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A> 下一页
<% end if%>
页次：<%=CurrentPage%>/<%=RS.PageCount%>页 <%=Rs.PageSize%>条短信/页 </div>
<%else%>
<p align="center"> </p>
<%end if%>
<%
rs.close
set rs=nothing
conn.close ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -