?? xzfws.asp
字號(hào):
<!--#Include File="inc/Check_Sql.asp"-->
<!--#include file="inc/conn.asp"-->
<!-- #include file="inc/config.asp" -->
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<%owen=request("id")%>
<SCRIPT language=JavaScript>
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",50);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</SCRIPT>
<%
'response.Write(session("id"))
'response.End()
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("數(shù)據(jù)庫(kù)出錯(cuò)")
else<%
'請(qǐng)勿改動(dòng)下面這三行代碼
ShowSmallClassType=ShowSmallClassType_Default
MaxPerPage=MaxPerPage_Default
strFileName="xzfws.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無(wú)標(biāo)題文檔</title>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.unnamed1 { FONT-SIZE: 12px; LINE-HEIGHT: 25px; FONT-FAMILY: "宋體"
}
.style1 {
font-size: 9px;
font-family: "黑體";
}
.style2 { color: #FF0000;
font-weight: bold;
}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<table width="802" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="190" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1" bgcolor="#63676A"></td>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td background="images/index_r5_c1_r2_c2.jpg">
<%
if session("UserName")="" then
%>
<form name="form3" method="post" action="hysaveindex.asp">
<table width="100%" height="162" border="0" cellpadding="0" cellspacing="0" background="images/index_r5_c1_r2_c2.jpg">
<tr bgcolor="#574C4A">
<td height="5" colspan="2"></td>
</tr>
<tr>
<td height="43" colspan="2" align="left" valign="top"><img src="images/index_r5_c1_r2_c3.jpg" width="188" height="43"></td>
</tr>
<tr>
<td height="37" colspan="2" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="35%"><div align="right">用戶名:</div></td>
<td width="65%"> <input name="textfield" type="text" id="textfield" size="12">
</td>
</tr>
<tr>
<td><div align="right">密碼:</div></td>
<td> <input name="textfield2" type="password" id="pwd2" size="12">
</td>
</tr>
</table></td>
<td width="46"><div align="center">
<input name="Submit" type="submit" id="Submit" value="登 錄">
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="18" colspan="2" align="left" valign="bottom"> </td>
</tr>
<tr>
<td width="50%" align="center" valign="middle"><div align="center"><a href="hyzc.asp"><img src="images/index_r5_c1_r2_c7.jpg" width="85" height="19" border="0"></a></div></td>
<td align="center" valign="middle"><div align="center"></div></td>
</tr>
</table>
</form>
<%
else
response.write "歡迎您！" & Session("UserName") & "<br><br>"
response.write "<b>用戶控制面板：</b><br><br> <a href='hyzx.asp'><b>會(huì)員管理中心</b></a><br><br>"
end if
%>
</td>
</tr>
<tr>
<td height="179" align="left" valign="top"> <table width="100%" height="179" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/index_r5_c4.gif" width="188" height="26"></td>
</tr>
</table>
<%
set rs_Book=server.createobject("adodb.recordset")
sqltext="select * from news where BigClassName='公司動(dòng)態(tài)' and SmallClassName='最新通知' order by id desc"
rs_Book.open sqltext,conn,3,3,1
%>
<marquee scrollamount='1' scrolldelay='20' direction= 'UP' width='160' id='helpor_net' height='150' onmouseover='helpor_net.stop()' onmouseout='helpor_net.start()' Author:redriver; >
<%
do while not rs_Book.eof
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="unnamed1">
<tr>
<td width="11%"> <div align="center"><img src="Images/new-fram_05.gif" width="12" height="13" align="middle"></div></td>
<td width="89%"> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="unnamed1">
<tr>
<td width="33%" valign="middle" class="gd"> </td>
</tr>
</table><a href="gsdts.asp?id=<%=rs_Book("id")%>" target="main">
<%=cutstr(rs_Book("title"),10)%></a></td>
</tr>
</table>
<%
rs_Book.movenext
loop
rs_Book.close
%>
</marquee> </td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#D9D9D9"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100" height="40"><div align="center">友情連接</div></td>
<td><div align="left"><img src="images/index_2_r2_c2.gif" width="33" height="10"></div></td>
</tr>
<tr>
<td colspan="2"><form name="form5" method="post" action="">
<div align="center">
<%
set rs_Lins=server.createobject("adodb.recordset")
sqltext="select top 5 * from Links"
rs_Lins.open sqltext,conn,3,3,1
%>
<select name="select" id="select"
onChange="MM_jumpMenu('parent',this,0)">
<option value='0'>論壇跳轉(zhuǎn)至……</option>
<%
do while not rs_Lins.eof
%>
<option value='<%=rs_Lins("Link")%>'><%=rs_Lins("Name")%></option>
<%
rs_Lins.movenext
loop
rs_Lins.close
%>
</select>
</div>
</form></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/index_2_r2_c3.gif" width="188" height="38"></td>
</tr>
<tr>
<td>
<%
set rs_Links=server.createobject("adodb.recordset")
sqltext="select top 5 * from Links"
rs_Links.open sqltext,conn,3,3,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
do while not rs_Links.eof
%>
<tr>
<td width="13" align="right"><img src="images/index_2_r4_c4.gif" width="7" height="7"></td>
<td> <a href="<%=rs_Links("Link")%>"><%=rs_Links("Name")%></a></td>
</tr>
<%
rs_Links.movenext
loop
rs_Links.close
%>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" bgcolor="#63676A"></td>
</tr>
</table></td>
<td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/xzfw.gif" width="590" height="37"></td>
</tr>
<tr>
<td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="80%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD width="453"
height=28>
<% call ShowClass_DownGuide() %>
</TD>
<TD width="102">
<% call ShowDownTotal() %>
</TD>
</TR>
<TR>
<TD
height=1 colspan="2" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<TR>
<TD
height=1 colspan="2">
<% call ShowDown(32) %>
</TD>
</TR>
<TR>
<TD
height=1 colspan="2">
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"個(gè)下載")
end if
%>
</TD>
</TR>
</table>
</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" background="images/index_r5_c1_r2_c1.jpg"></td>
</tr>
</table>
</body>
</html>
<!--#include file="bottom.asp"-->
<%end if%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -