main.asp

梦想世界虚拟社区

                            <option value="河北">河北</option>
                            <option value="山西">山西</option>
                            <option value="内蒙古">内蒙古</option>
                            <option value="辽宁">辽宁</option>
                            <option value="吉林">吉林</option>
                            <option value="黑龙江">黑龙江</option>
                            <option value="江苏">江苏</option>
                            <option value="浙江">浙江</option>
                            <option value="安徽">安徽</option>
                            <option value="福建">福建</option>
                            <option value="江西">江西</option>
                            <option value="山东">山东</option>
                            <option value="河南">河南</option>
                            <option value="湖北">湖北</option>
                            <option value="云南">云南</option>
                            <option value="湖南">湖南</option>
                            <option value="广东">广东</option>
                            <option value="台湾">台湾</option>
                            <option value="广西">广西</option>
                            <option value="海南">海南</option>
                            <option value="四川">四川</option>
                            <option value="贵州">贵州</option>
                            <option value="西藏">西藏</option>
                            <option value="陕西">陕西</option>
                            <option value="甘肃">甘肃</option>
                            <option value="青海">青海</option>
                            <option value="宁夏">宁夏</option>
                            <option value="新疆">新疆</option>
                            <option value="香港">香港</option>
                            <option value="澳门">澳门</option>
                          </select>
                        </td>
                      </tr>
                      <tr> 
                        <td colspan="2">　　请选择查找方式后，在对应查找内容中填入或选择你需要的内容后，点击查找即可。</td>
                      </tr>
                      <tr align="center"> 
                        <td colspan="2"> 
                          <input type="submit" name="Submit" value="查找">
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
            </form>
          </td>
          <td width="67%" valign="top" align="left"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td align="center"> 
                  <table width="95%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#990000">
                    <tr> 
                      <td> 
                        <table width="100%" border="1" cellspacing="0" cellpadding="5" bordercolorlight="#FFFFFF" bordercolordark="#990000">
                          <%rs.open "SELECT * FROM 发表 order by 时间 desc",cnn,3 
						 set id1 = rs("id")
rs.pagesize = 6
rs.absolutepage = session ("currentpage")
%>
                          <tr bgcolor="#00CCFF" align="center"> 
                            <td colspan="5"><b>发表交友文章（刊登一篇30C，回复免费）</b></td>
                          </tr>
                          <tr bgcolor="#00CCFF"> 
                            <td colspan="5" height="26"> 
                              <table width="262" border="0" cellspacing="0" cellpadding="0">
                                <tr> 
                                  <td width="30%" height="29" align="center"><a href="fabiao.asp">发表文章</a></td>
                                  <td width="35%" height="29"> 
                                    <%if session ("currentpage") > 1 then%>
                                    <a href="main.asp?move=prev">上一页</a> 
                                    <%end if%>
                                  </td>
                                  <td height="29" width="35%"> 
                                    <%if session ("currentpage") <  rs.pagecount then%>
                                    <a href = "main.asp?move=next">下一页 
                                    <%end if%>
                                    </a></td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                          <tr bgcolor="#00CCFF" align="center"> 
                            <td width="8%">回复</td>
                            <td width="41%" bgcolor="#00CCFF">主题</td>
                            <td width="15%">作者</td>
                            <td width="8%">访问</td>
                            <td width="28%">更新时间</td>
                          </tr>
                          <%
while not rs.eof and numrows <= rs.pagesize
%>
                          <tr align="center"> 
                            <td width="8%"><%= rs("回复")%></td>
                            <td width="41%"><a href = "vew.asp?Num=<%Response.Write id1%>"><%= server.htmlencode (rs("文章主题"))%></a></td>
                            <td width="15%"><%= server.htmlencode (rs("发表人"))%></td>
                            <td width="8%"><%= rs("查看")%></td>
                            <td width="28%"><%= rs("时间")%></td>
                          </tr>
                          <%rs.movenext
  numrows = numrows + 1
  wend %>
                          <%rs.close %>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td align="center">&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td width="35%">&nbsp;</td>
          <td width="67%">&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td> 
      <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#990000">
        <tr> 
          <td> 
            <table width="100%" border="0" cellspacing="0" cellpadding="5">
              <tr> 
                <td align="center" bgcolor="#00CCFF"><b>在线名单：</b></td>
              </tr>
              <tr> 
                <% rs.open "select * from 资料 where 当前状态 = 1",cnn %>
                <td> 
                  <% while not rs.eof %>
                  <a href = "#" onClick="openChromeslessWindow('../vew.asp?Num=<%Response.Write (rs("id")) %>','ziliao',350,250,null,null,'资料', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'宋体', '2','#000000')"> 
                  <%response.write (rs("昵称")) %>
                  </a> 
                  <%response.write ("|")
				rs.movenext
				wend
				rs.close %>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td>&nbsp;<% cnn.close %></td>
  </tr>
  <tr> 
    <td> 
      <table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td align="center"><b>版权信息</b></td>
        </tr>
        <tr> 
          <td align="center">“梦想世界”虚拟社区版权归“新生代”网站所有，站长林飞制作！<br>
            社区源码及使用权公开，前提是不能用于商业用途，可前往　<a href="http://www.editasp.com" target="_blank">新生代</a>　下载本虚拟社区源代码　</td>
        </tr>
        <tr> 
          <td align="center"> 
            <table width="300" border="0" cellspacing="0" cellpadding="0">
              <tr align="center"> 
                <td width="50%"><img src="../../logo.jpg" width="88" height="31"></td>
                <td width="50%">２００１-２００２</td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td align="center">&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>