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

📄 default.asp

📁 一个ASP做的政府网站的全站程序
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<%@ Language=VBScript %>
<!--#include file="connect.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>玉环人大</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<link href="yhrd.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {
	color: #B84B06;
	font-weight: bold;
}
.style5 {font-size: 14px}
.style7 {color: #E94F00}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function send() {
			var form = window.document.form1;			
				
			form.onSubmit = "return true";
		   form.submit();
        }
//-->
</script>
</head>
<body>

<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="168" height="18" bgcolor="#E80000" class="white9v">&nbsp;
	<%Dim Days_In_Week(7)
					 Days_In_Week(1)="星期日"
					 Days_In_Week(2)="星期一"
					 Days_In_Week(3)="星期二"
					 Days_In_Week(4)="星期三"
					 Days_In_Week(5)="星期四"
					 Days_In_Week(6)="星期五"
					 Days_In_Week(7)="星期六"
					currentYear = year(now())
					currentMonth = month(now())
					currentDay = day(now()) 
				   currentDate = currentYear & "年" & currentMonth & "月" & currentDay & "日" 
				 
				   response.write currentDate & "&nbsp;&nbsp;" & Days_In_Week(WeekDay(currentDate)) & "</a>"
				   %>
	</td>
    <td width="365" bgcolor="#E80000" class="white9v">&nbsp;</td>
    <td width="70" bgcolor="#E80000" class="white9v"><img src="images/whiteArrow.gif" width="8" height="8">关于我们</td>
    <td width="70" bgcolor="#E80000" class="white9v"><img src="images/whiteArrow.gif" width="8" height="8">合作伙伴</td>
    <td width="75" bgcolor="#E80000" class="white9v"><img src="images/whiteArrow.gif" width="8" height="8">网站导航</td>
  </tr>
  <tr>
    <td colspan="5"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="227"><img src="images/yhrd_title0.jpg" width="227" height="85"></td>
        <td width="361"><img src="images/yhrd_title1.jpg" width="361" height="85"></td>
        <td valign="middle" background="images/yhrd_title2.jpg"><table width="184" height="85"  border="0" cellpadding="0" cellspacing="0">          
            <form name="form1" method="post" action="searchSite.asp"><tr>
              <td height="32" valign="bottom">
                <input name="keyword" type="text" class="9v" id="keyword" size="22"></td>            
            <td valign="bottom" ><a href="javascript:send();"><img src="images/go.gif" width="24" height="24" border="0"></a></td>
          </tr>
          <tr align="center" valign="top">
            <td colspan="2" class="white9v"><br>
                <br>
            </td>
          </tr></form>
        </table></td>
      </tr>
    </table></td>
  </tr>
  <tr align="center" bgcolor="#C71008">
    <td height="30" colspan="5" class="white11v"><a href="default.asp"><img src="images/menu0.gif" width="31" height="20" border="0"></a><%dim sqlStr 
	sqlStr="select fldpriviledge,fldcolumn,fldtemplate,fldurl,fldimage from tblcolumn where fldsubcolumn='—' order by fldpriviledge"
	Set rs_column = Server.CreateObject("ADODB.Recordset")
	rs_column.open sqlStr,dataConn,1,1
	for i=1 to 9			
	if rs_column("fldimage")<>"" then
		response.write "<img src='images\menuDot.gif'>"
		if rs_column("fldurl")<>"" then
			response.write "<a href='" & rs_column("fldurl") & "'>"
		else
			response.write "<a href=" & rs_column("fldtemplate") & "?column=" & rs_column("fldcolumn") & ">"
		end if
		response.write "<img src='images/" & rs_column("fldimage") & "' border=0></a>" 
	else
		response.write " · "
		response.write rs_column("fldcolumn")
	end if
	rs_column.movenext
	next	
  %>
</tr>
  <tr>
    <td colspan="5"><img src="images/title_back.gif" width="780" height="12"></td>
  </tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="163" valign="top" bgcolor="#E7E7E7"><TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
          <TR>
            <TD><%
	if rs_column("fldimage")<>"" then
		response.write "<img src='images/" & rs_column("fldimage") & "'>" 
	else
		response.write rs_column("fldcolumn")
	end if
	
	%></TD>
          </TR>
        </TBODY>
      </TABLE>
      <TABLE cellSpacing=0 cellPadding=1 width=150 bgColor=#CE0000 border=0>
        <TBODY>
          <TR>
            <TD vAlign=top align=right>
              <TABLE cellSpacing=0 cellPadding=0 width=151 bgColor=#ffffff 
            border=0>
                <TBODY>
                  <TR>
                    <TD width="151" vAlign=top><TABLE width=151 border=0 cellPadding=0 cellSpacing=0 class="9v">
                        <TBODY>
						<% 
						  sqlStr="select id, fldtopic from tblessay where fldcolumn='" & rs_column("fldcolumn") & "' order by fldorder desc"
	Set rs_temp = Server.CreateObject("ADODB.Recordset")
	rs_temp.open sqlStr,dataConn,1,1 
	
	for i = 1 to 4
	%>
						
                          <TR vAlign=top bgcolor="#FFF8E8">
                            <TD width=15 align="center" valign="middle"><img src="images/redArrow.gif" width="9" height="10" hspace="3"></TD>
                            <TD height=20 valign="middle" class="9v"><%response.write "<a href='" & rs_column("fldtemplate") & "?id=" & rs_temp("id") & "'>"  & rs_temp("fldtopic") & "</a>"%></TD>
                          </TR>
						  
						<% rs_temp.movenext
						  next						 						  
						  %>  
						  
                          <TR vAlign=top bgcolor="#FFF8E8">
                            <TD width="15" align="center" valign="middle"></TD>
                            <TD height=12 valign="middle" ><img src="images/dotline.gif" width="119" height="1"></TD>
                          </TR>
						  <%
						  for i = 1 to 4
						  %>	
						  <TR vAlign=top bgcolor="#FFF8E8">
                            <TD width=15 align="center" valign="middle"><img src="images/redArrow.gif" width="9" height="10" hspace="3"></TD>
                            <TD height=20 valign="middle" class="9v"><%response.write "<a href='" & rs_column("fldtemplate") & "?id=" & rs_temp("id") & "'>"  & rs_temp("fldtopic") & "</a>"%></TD>
                          </TR>
						  <%
						  rs_temp.movenext
						  next
						  %>  
						  <TR vAlign=top bgcolor="#FFF8E8">
                            <TD width="15" align="center" valign="middle"></TD>
                            <TD height=8 align="right" valign="middle" ><a href="template1.asp?column=<%=rs_column("fldcolumn")%>">更多&gt;&gt;</a>&nbsp;</TD>
                          </TR>
                          <TR>
                            <TD height=12 colspan="2">
							<%rs_column.movenext
	if rs_column("fldimage")<>"" then
		response.write "<img src='images/" & rs_column("fldimage") & "'>" 
	else
		response.write rs_column("fldcolumn")
	end if
	%>
							</TD>
                          </TR>
						  <% 
						  sqlStr="select id, fldtopic from tblessay where fldcolumn='" & rs_column("fldcolumn") & "' order by fldorder desc"
	Set rs_temp = Server.CreateObject("ADODB.Recordset")
	rs_temp.open sqlStr,dataConn,1,1 
	
	for i = 1 to 5
	%>
                          <TR vAlign=top bgcolor="#FFF8E8">
                            <TD width="15" align="center" valign="middle"><img src="images/redArrow.gif" width="9" height="10"></TD>
                            <TD height=24 valign="middle" class="9v" ><%response.write "<a href='" & rs_column("fldtemplate") & "?id=" & rs_temp("id") & "'>"  & rs_temp("fldtopic") & "</a>"%> </TD>
                          </TR>
                          <%
						  rs_temp.movenext
						  next						  						  
						  %>
						  
                          <TR vAlign=top bgcolor="#FFF8E8">
                            <TD height="6" align="center" valign="middle"></TD>
                            <TD height="16" align="right" valign="top"><a href="template6.asp?column=<%=rs_column("fldcolumn")%>">更多&gt;&gt;</a>&nbsp;</TD>
                          </TR>
                          <TR vAlign=top>
                            <TD height="16" colspan="2" align="center" valign="middle"><img src="images/color_block.gif" width="151" height="32"></TD>
                          </TR>
                          <TR vAlign=top>
                            <TD height="96" colspan="2" align="center" valign="middle"><img src="images/friend_link.gif" width="112" height="45"></TD>
                          </TR>
                          <TR vAlign=top>
                            <TD height="88" colspan="2" align="center" >                            <p>
                              <SELECT class=wipt 
                  onchange=javascript:window.open(this.options[this.selectedIndex].value) 
                  size=1 name=select3>
                                <option selected>各地人大网站</option>
                                <option value="http://www.zjrd.net">浙江人大</option>
                                <option value="http://www.people.com.cn">中国人大新闻</option>
                                <option value="http://www.taizhou.com.cn">台州人大</option>
                                <option value="http://www.zsrd.gov.cn">中山人大</option>
                                <option value="http://renda.nanhai.gov.cn">南海人大</option>
                                
                              </SELECT>
                              <br>
                              <SELECT class=wipt 
                  onchange=javascript:window.open(this.options[this.selectedIndex].value) 
                  size=1 name=select1>
                                  <OPTION selected>中央部门网站</OPTION>
                                  <OPTION value=http://www.fmprc.gov.cn>外交部</OPTION>
                                  <OPTION 
                    value=http://www.sdpc.gov.cn>国家发展和改革委员会</OPTION>
                                  <OPTION 
                    value=http://www.setc.gov.cn>国家经济贸易委员会</OPTION>
                                  <OPTION 
                    value=http://www.moe.edu.cn>教育部</OPTION>
                                  <OPTION 
                    value=http://www.most.gov.cn>科学技术部</OPTION>
                                  <OPTION 
                    value=http://www.costind.gov.cn>国防科学技术工业委员会</OPTION>
                                  <OPTION 
                    value=http://www.seac.gov.cn>国家民族事务委员会</OPTION>
                                  <OPTION 
                    value=http://gab.mps.gov.cn>公安部</OPTION>
                                  <OPTION 
                    value=http://www.zjw.gov.cn>监察部</OPTION>
                                  <OPTION 
                    value=http://www.mca.gov.cn>民政部</OPTION>
                                  <OPTION 
                    value=http://www.legalinfo.gov.cn>司法部</OPTION>
                                  <OPTION 
                    value=http://www.mof.gov.cn>财政部</OPTION>
                                  <OPTION 
                    value=http://www.mop.gov.cn>人事部</OPTION>
                                  <OPTION 
                    value=http://www.molss.gov.cn>劳动和社会保障部</OPTION>
                                  <OPTION 
                    value=http://www.mlr.gov.cn>国土资源部</OPTION>
                                  <OPTION 
                    value=http://www.cin.gov.cn>建设部</OPTION>
                                  <OPTION 
                    value=http://www.chinamor.cn.net>铁道部</OPTION>
                                  <OPTION
1234

⌨️ 快捷键说明

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