⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin.asp

📁 asp新闻发布系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
                                      </tr>
                                      <tr> 
                                        <td height="20">您的&nbsp;QQ:  
                                          <input 
                              name=oicq class=bg id=oicq size=14 maxlength="10"> </td>
                                      </tr>
                                      <tr> 
                                        <td>来自何方:  
                                          <input class=bg name="from01" type="text" id="from01" size="14" maxlength="30"></td>
                                      </tr>
                                      <tr> 
                                        <td>邮箱地址:  
                                          <input class=bg name="email" type="text" id="email" size="14" maxlength="30"></td>
                                      </tr>
                                      <tr> 
                                        <td>个人主页:  
                                          <input class=bg name="homepage" type="text" id="homepage" value="http://" size="14" maxlength="60"></td>
                                      </tr>
                                      <tr> 
                                        <td>你的愿望:</td>
                                      </tr>
                                      <tr> 
                                        <td><textarea name="memo" cols="20" rows="4"  class=bg id="memo"></textarea></td>
                                      </tr>
                                      <tr> 
                                        <td>只有认真填写以上内容,愿望才能实现哦!</td>
                                      </tr>
                                      <tr> 
                                        <td><INPUT border=0 height=20 name=imageField 
                              src="images/index_20.gif" type=image 
                            width=85 onClick="return check();"></td>
                                      </tr>
                                    </tbody>
                                  </table>
                                </FORM></TD></TR>
                    <TR>
                      <TD><IMG alt="" height=7 id=index_23 
                        src="images/index_23.gif" 
                  width=170></TD></TR></TBODY></TABLE></TD></TR>
              <TR>
                      <TD height="15"><IMG alt="" height=15 id=index_27 
                  src="images/index_27.gif" 
            width=192></TD>
                    </TR></TBODY></TABLE><BR>
            <TABLE background=images/index_25.gif border=0 cellPadding=0 
            cellSpacing=0 width=192>
              <TBODY>
              <TR>
                <TD><IMG alt="" height=13 id=index_07 
                  src="images/index_07.gif" width=192></TD></TR>
              <TR>
                <TD>
                  <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
                  width=170>
                    <TBODY>
                    <TR>
                              <TD><img src="images/index_232.gif" width="170" height="25"></TD>
                            </TR>
                    <TR>
                      <TD bgColor=#eaedf0>
                        <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
                        width="90%">
                                  <TBODY>
                                    <TR> 
                                      <TD>欢迎链接:<br>
                                        网站名称:  
                                        <input class=bg name="textfield" type="text" value="聽雨軒許願樹" size="15"> 
                                        <br>
                                        地址:  
                                        <input class=bg name="textfield2" type="text" value="http://wish.2027.cn" size="15"> 
                                        <br>
                                        记得把本页告诉你的好朋友,<br>
                                        让他(她)也实现自己的愿望! </TD>
                                    </TR>
                                  </TBODY>
                                </TABLE></TD></TR>
                    <TR>
                      <TD><IMG alt="" height=7 id=index_23 
                        src="images/index_23.gif" 
                  width=170></TD></TR></TBODY></TABLE></TD></TR>
              <TR>
                <TD><IMG alt="" height=15 id=index_27 
                  src="images/index_27.gif" 
            width=192></TD></TR></TBODY></TABLE><BR>
              </TD>
          <TD width=6></TD>
          <TD vAlign=top>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width=548>
              <TBODY>
              <TR>
                <TD><IMG alt="" height=99 id=index_09 
                  src="images/index_09.gif" width=278></TD>
                <TD><IMG alt="" height=99 id=index_10 
                  src="images/index_10.gif" 
            width=277></TD></TR></TBODY></TABLE><IMG alt="" height=55 
            id=index_15 src="images/index_15.gif" width=548> 
            <TABLE background=images/index_26.gif border=0 cellPadding=0 
            cellSpacing=0 width=548>
              <TBODY>
              <TR>
                <TD><IMG alt="" height=15 id=index_17 
                  src="images/index_17.gif" width=548></TD></TR>
              <TR>
                      <TD height=500 align="center" vAlign=top> 
                        <%
			if not (rs.EOF or rs.BOF) then
			rs.MoveFirst
			rs.PageSize = 18
			If page < 1 Then page = 1 
			If page > rs.PageCount Then page = rs.PageCount  
			rs.AbsolutePage = page
			For ipage = 1 To rs.PageSize%>
                        <table class="itable" width="534" border="0" cellspacing="0" background="images/bg_line.gif">
                          <tr>
                              
                            <td background="images/bg_line.gif" class="distance"><span class="style13"><%=rs("name")%></span><span class="style14"> 
                              ( 
                              <% 
    	if rs("oicq")<>"" then  
    	Response.Write "QQ:"& rs("oicq")&"" 
		else 
		Response.Write "" 
    	end if%>
                              <%  
    	if rs("from01")<>"" then  
  		Response.Write "来自:"& rs("from01")&"" 
		else 
		Response.Write "" 
    	end if%>
                              ) </span><span class="style13">:&nbsp;</span> <%=rs("memo")%>  
                              <span class="style14"> [<%=rs("time01")%>][<font color="#FF0000"><a href="update.asp?id=<%=rs("id")%>" target="_blank">修改</a></font>][<a href="delete.asp?id=<%=rs("id")%>" class="blue" target="delete" onclick="return Delete();"><font color="#FF0000">删除</font></a>]</span></td> 
                            </tr>
                          </table>
                        <div align="center"><%   
				rs.MoveNext      
				If rs.EOF Then Exit For   
				Next   
			%></div>
                        <table width="100%" border="0" align="center" cellspacing="0">
                          <tr> 
                            <td>&nbsp;&nbsp;&nbsp;许愿树上共有<font 
                     color=red><%=rs.recordCount%> </font>个愿望  
                              页数:<font 
                        color=red><%=page%> </font>/&nbsp; <%=rs.PageCount%>&nbsp;&nbsp;  
                              <%
				If page = 1 Then 
				   Response.Write "<font class='white'>第一页 上一页</font>" 
				End If
				If page <> 1 Then 
				   Response.Write "<a href=index.asp?page=1 class='yellow'>第一页</a>" 
				   Response.Write " <a href=index.asp?page=" & (page - 1) & " class='yellow'>上一页</a>" 
				End If
				If page <> RS.PageCount Then 
				   Response.Write " <a href=index.asp?page=" & (page + 1) & " class='yellow'>下一页</a>" 
				   Response.Write " <a href=index.asp?page=" & RS.PageCount & " class='yellow'>最后一页</a>" 
				End If 
				If page = RS.PageCount Then 
				   Response.Write " <font class='white'>下一页 最后一页</font>" 
				End If
			  %> 
                              &nbsp; 到  
                              <%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>"  '显示输入页数框并将page,judge参数传递下去%>
                              页 </td> 
                          </tr>
                        </table>
                         
                          <%else%>
                  
                        <table width="75%" border="0" align="center" cellspacing="0">
                          <tr>
                            <td>对不起,许愿树上还没有愿望!</td>
                          </tr>
                        </table>
                  
                          
                        <%end if%>
                      </TD>
                    </TR>
              <TR>
                <TD><IMG alt="" height=15 id=index_28 
                  src="images/index_28.gif" 
          width=548></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE align=center background=images/3.jpg border=0 cellPadding=0 
cellSpacing=0 width=770 height="77">
  <TBODY>
  <TR>
      <TD align=middle height=30 width="767"><BR>
        <p align="right"><font color="#FFFFFF">Copyright &copy; 2005-2008 <a href="http://www.2027.cn/" target="_blank">♂聽雨軒♀</a>  
        &copy; 版权所有QQ:192306</font></TD> 
    </TR></TBODY></TABLE><OBJECT id=songplay height=0 width=0 
classid=clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95 VIEWASTEXT><PARAM NAME="Filename" VALUE="http://www.2027.cn/images/back.mp3"><PARAM NAME="ShowControls" VALUE="1"><PARAM NAME="ShowPositionControls" VALUE="0"><PARAM NAME="ShowAudioControls" VALUE="1"><PARAM NAME="ShowTracker" VALUE="1"><PARAM NAME="ShowDisplay" VALUE="0"><PARAM NAME="ShowStatusBar" VALUE="1"><PARAM NAME="ShowGotoBar" VALUE="0"><PARAM NAME="ShowCaptioning" VALUE="0"><PARAM NAME="AnimationAtStart" VALUE="0"><PARAM NAME="TransparentAtStart" VALUE="0"><PARAM NAME="AllowChangeDisplaySize" VALUE="0"><PARAM NAME="AllowScan" VALUE="0"><PARAM NAME="EnableContextMenu" VALUE="0"><PARAM NAME="ClickToPlay" VALUE="0"><PARAM NAME="PlayCount" VALUE="0"></OBJECT><SCRIPT src="images/common.js"></SCRIPT>
</BODY></HTML>
	<%else
Response.Redirect "admpost.asp"
end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -