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

📄 index.asp

📁 用ASP写的一个论坛的程序 数据库是ACCESS 很简单
💻 ASP
字号:
<!-- #include file="config.asp" -->
<!-- #include file="pub.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitename%>  版本:<%=vs%></title>
<link href="css/index.css" rel="stylesheet" type="text/css">
<script  language="javascript">
function ck()
{
if (document.form1.tb.value=="")
 {
 window.alert("请输入贴吧名称!");
 return true;
 }
 else
 {
 document.form1.submit();
  return true;
 }
}

function xunz(n)
{
	if (n==0)
	 {
		document.form1.tb.value="";
		 return true;
	 }
	if (n==1)
	 {
		document.form1.tb.value="";
		document.form1.tb.value="请输入贴吧名称";
		 return true;
	 }
	if (n==2)
	 {
		document.form1.tb.value="";
		document.form1.tb.value="请输入要搜索贴子名称";
		 return true;
	 }
	if (n==3)
	 {
		document.form1.tb.value="";
		document.form1.tb.value="请输入作者名称";
		 return true;
	 }
}
</script>
<SCRIPT src="js/sohuflash_1.js" type=text/javascript></SCRIPT>
</head>

<body>
<table width="800"  border="0" align="center">
  <tr> 
    <td width="139" height="46" align="center" valign="top"><span class="datxt"><img src=<%=sitelogo%> width="137" height="46" alt="<%=sitename%>"></span></td>
    <td width="670" align="left"><form name="form1" method="post" action="find.asp" >
        <span class="datxt"> </span> 
        <input name="tb" type="text" onClick="xunz(0)" value="请输入贴吧名称">
        <input type="button" name="sb" value=" 搜索 " onClick="ck()" onKeyPress="ck()">
        <%
	  if session("username")="" then
	  %>
        <a href="login.asp" target="_self">登录</a> | <a href="reg.asp" target="_self">注册</a> 
        <%  
	  else
	  response.Write("欢迎:" & session("username"))
	  end if 
	  %>
        | <a href="help.asp" target="_self">帮助</a> 
        <table width="70%"  border="0">
          <tr> 
            <td height="15" align="left"><input name="radiobutton" type="radio" value="jl" checked onClick="xunz(1)">
              进入贴吧 
              <input type="radio" name="radiobutton" value="sstz" onClick="xunz(2)">
              帖子搜索 
              <input type="radio" name="radiobutton" value="sszz" onClick="xunz(3)">
              按作者搜索 </td>
          </tr>
        </table>
      </form></td>
  </tr>
  <tr> 
    <td colspan="2">
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="620" align="left">
			   <div align="center"> 
        <div id=flashcontent01></div>
<script type=text/javascript>
// <![CDATA[
var pics='images/01.jpg|images/02.jpg|images/03.jpg|images/04.jpg|images/05.jpg|';		
var mylinks='#|#|#|#|#';	
var texts='重庆邮电校园照片|重庆邮电大学秀山三下乡活动一|重庆邮电大学秀山三下乡活动二|重庆邮电计算机试验|大学生就业形式分析';

var texts2="重庆邮电校园照片|重庆邮电大学秀山三下乡活动一|重庆邮电大学秀山三下乡活动二|重庆邮电计算机试验|大学生就业形式分析";


var sohuFlash2 = new sohuFlash("flash/vv_new.swf","sohuFlashID01","623","240","7","#ffffff");
	sohuFlash2.addParam("quality", "high");
         sohuFlash2.addParam("wmode", "opaque");
	sohuFlash2.addParam("salign", "t");	
	sohuFlash2.addVariable("p",pics);
	sohuFlash2.addVariable("l",mylinks);
	sohuFlash2.addVariable("icon",texts);
	sohuFlash2.addVariable("icon_2",texts2);
	sohuFlash2.write("flashcontent01");
// ]]>
</script>
        </div>
        
      </div></td>
              <td width="180">
			  			  <h2>最热帖子</h2>
			  <div class="hottz">

			  <ul>
			  <%call hottz(8)%>
			  </ul>
			  </div>
			  </td>
            </tr>
          </table>
</td>
  </tr>
  <tr> 
    <td colspan="2" align="center"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="630" align="left"><div class="retb"><strong>最热的吧:</strong> 
              <%call hot(n1)%>
            </div></td>
          <td width="170" rowspan="3" align="left">&nbsp;</td>
        </tr>
        <tr> 
          <td align="left"><div class="newtb"><strong>最新贴吧:</strong> 
              <%call newb(n2)%>
            </div></td>
        </tr>
        <tr> 
          <td align="left"><div class="alltb"><strong>所有贴吧:</strong> 
              <%call showall()%>
            </div></td>
        </tr>
        <tr> 
          <td colspan="2" align="center"> 
            <%
		msg=request.QueryString("msg")
		if len(msg)>0 then
		response.Write("<script language=javascript>alert('"&msg&"');")
        response.Write("</script>")
		end if
		%>
          </td>
        </tr>
        <tr> 
          <td colspan="2" align="center">&nbsp; </td>
        </tr>
        <tr> 
          <td colspan="2" align="center" class="txtbot">声明本贴吧仅做毕业设计用,无其他用途!</td>
        </tr>
      </table></td>
  </tr>
</table>

</body>
</html>

⌨️ 快捷键说明

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