?? xmain.asp
字號:
<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="xcss.css">
</head>
<body background="images/zapsmbknd.gif">
<p align="center"><img height="130" src="images/213062.gif" width="510"></p>
<style type="text/css">
<!--
.textanimlink,a {
text-decoration : none;
}
P.main {
font-family : Arial;
font-size : 15pt;
font-weight : bold;
}
-->
</style>
<!--#include file ="js/board.asp"-->
<script Language="Javascript">
<!-- Hiding
bname=navigator.appName;
bversion=parseInt(navigator.appVersion)
if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4))
window.onload=start
else
stop();
window.onunload=stop
if (bname=="Netscape"){
brows=true
dt=2
}
else{
brows=false
dt=20
}
var z=0;
var msg=0;
var rgb=0;
var link=false;
var status=true;
var updwn=false;
var value=0;
var h=window.innerHeight;
var w=window.innerWidth;
var timer1;
var timer2;
var timer3;
var convert = new Array()
var hexbase= new Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F");
// Put here your own messages. Add as many as you wan't (Do not edit anything else in the Script except the lines below)
var bgcolor="#FFFFFF"; //Color of background
var color="#00008D"; //Color of the Letters
// Put here your own messages. Add as many as you wan't (Do not edit anything else in the Script except the lines above)
for (x=0; x<16; x++){
for (y=0; y<16; y++){
convert[value]= hexbase[x] + hexbase[y];
value++;
}
}
redx=color.substring(1,3);
greenx=color.substring(3,5);
bluex=color.substring(5,7);
hred=eval(parseInt(redx,16));
hgreen=eval(parseInt(greenx,16));
hblue=eval(parseInt(bluex,16));
eredx=bgcolor.substring(1,3);
egreenx=bgcolor.substring(3,5);
ebluex=bgcolor.substring(5,7);
ered=eval(parseInt(eredx,16));
egreen=eval(parseInt(egreenx,16));
eblue=eval(parseInt(ebluex,16));
red=ered;
green=egreen;
blue=eblue;
function start(){
if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4)){
link=false;
updwn=true;
if (brows)
res=document.layers['textanim'].top
else{
textanim.style.width=document.body.offsetWidth-20;
textanim.innerHTML='<Pre><P Class="main" Align="Center">'+message[msg]+'</P></Pre>'
res=textanim.style.top
for (x=0; x<document.all.length; x++)
if(document.all[x].id=="textanimlink")
link=true;
}
up()
}
}
function stop(){
clearTimeout(timer1);
clearTimeout(timer2);
clearTimeout(timer3);
}
function resz(){
h=window.innerHeight;
w=window.innerWidth;
if (updwn)
timer1=setTimeout('up()',1000)
else
timer2=setTimeout('down()',1000)
}
function breakf(){
if (status){
clearTimeout(timer1);
clearTimeout(timer2);
status=false
return;
}
else{
status=true;
if (updwn)
timer1=setTimeout('up()',dt)
else
timer2=setTimeout('down()',dt)
}
}
function up(){
if (red<hred){
if ((red+7)<hred)
red+=7;
else
red=hred
redx = convert[red]
}
else{
if ((red-7)>hred)
red-=7;
else
red=hred
redx = convert[red]
}
if (green<hgreen){
if ((green+7)<hgreen)
green+=7;
else
green=hgreen
greenx = convert[green]
}
else{
if ((green-7)>hgreen)
green-=7;
else
green=hgreen
greenx = convert[green]
}
if (blue<hblue){
if ((blue+7)<hblue)
blue+=7;
else
blue=hblue
bluex = convert[blue]
}
else{
if ((blue-7)>hblue)
blue-=7;
else
blue=hblue
bluex = convert[blue]
}
rgb = "#"+redx+greenx+bluex;
if (brows){
document.layers['textanim'].document.linkColor=rgb;
document.layers['textanim'].document.vlinkColor=rgb;
if (window.innerHeight!=h || window.innerWidth!=w){
clearTimeout(timer1);
resz()
return;
}
else{
document.layers['textanim'].document.write('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>')
document.layers['textanim'].document.close();
}
}
else{
textanim.style.color=rgb;
if(link)
textanimlink.style.color=rgb;
}
if (z<38){
if (brows)
document.layers['textanim'].top--
else
textanim.style.posTop--
z++
timer1=setTimeout('up()',dt)
}
else
{
updwn=false;
down()
}
}
function down(){
if (red<ered){
if ((red+7)<ered)
red+=7;
else
red=ered
redx = convert[red]
}
else{
if ((red-7)>ered)
red-=7;
else
red=ered
redx = convert[red]
}
if (green<egreen){
if ((green+7)<egreen)
green+=7;
else
green=egreen
greenx = convert[green]
}
else{
if ((green-7)>egreen)
green-=7;
else
green=egreen
greenx = convert[green]
}
if (blue<eblue){
if ((blue+7)<eblue)
blue+=7;
else
blue=eblue
bluex = convert[blue]
}
else{
if ((blue-7)>eblue)
blue-=7;
else
blue=eblue
bluex = convert[blue]
}
rgb = "#"+redx+greenx+bluex;
if (brows){
document.layers['textanim'].document.linkColor=rgb;
document.layers['textanim'].document.vlinkColor=rgb;
if (window.innerHeight!=h || window.innerWidth!=w){
clearTimeout(timer2);
resz()
return;
}
else{
document.layers['textanim'].document.write('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>')
document.layers['textanim'].document.close();
}
}
else{
textanim.style.color=rgb;
if(link)
textanimlink.style.color=rgb;
}
if (z<76){
if (brows)
document.layers['textanim'].top--
else
textanim.style.posTop--
z++
timer2=setTimeout('down()',dt)
}
else
{
if (brows){
document.layers['textanim'].document.write('')
document.layers['textanim'].document.close();
}
else
textanim.innerHTML='';
window.clearInterval(timer2);
if(msg<message.length-1){
msg++;
z=0;
if (brows){
document.layers['textanim'].top=res;
}
else
textanim.style.top=res;
timer3=setTimeout('start()',100);
}
else
{
msg=0;
z=0;
if (brows)
document.layers['textanim'].top=res;
else
textanim.style.top=res;
timer3=setTimeout('start()',2000);
}
}
}
// done hiding -->
</script>
<div id="textanim" style="position: absolute; left: 0; top: 220" onclick="breakf()">
</div>
<layer name="textanim" left="0" top="220">
</layer>
<p> </p>
<p> </p>
<p>
<!--#include file ="index.asp"-->
<a name="#A">
<br>
<table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<tr>
<td width="500"><font color="#dd9944">『 推 薦 書 目 』</font></td>
</tr>
<tr>
<td><img src="images/dot.gif" width="510" height="1"></td>
</tr>
</table>
<br>
<table WIDTH="500" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<%
set conn = server.CreateObject("adodb.connection")
conn.Open application("dsn")
sql = "select a.id,a.description,b.bookid,b.name,b.Author,b.Times from introduce a,BookDetail b where a.bookid=b.bookid "
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
do while (not rs.EOF)
%>
<tr>
<td>
<table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<tr>
<td width="20" valign="top">
<img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19">
</td>
<td>
書名：<a href="readbook.asp?bookid=<%=rs("bookid")%>"><%=rs("name")%></a> <br>
作者：<%=rs("Author")%><br>
訪問次數：<%=rs("times")%><br>
說明：<%=rs("description")%>
<% if session("usertype")<=1 then %>
<br><a href="del_introduce.asp?bookid=<%=rs("bookid")%>">從推薦列表中刪除</a>
<% end if %>
</td>
</tr>
<tr>
</tr>
</table>
</td>
<%
rs.MoveNext
if rs.EOF then
exit do
end if
%>
<td>
<table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<tr>
<td width="20" valign="top"><img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19">
</td>
<td>
書名：<a href="readbook.asp?bookid=<%=rs("bookid")%>"><%=rs("name")%></a> <br>
作者：<%=rs("Author")%><br>
訪問次數：<%=rs("times")%><br>
說明：<%=rs("description")%>
<% if session("usertype")<=1 then %>
<br><a href="del_introduce.asp?bookid=<%=rs("bookid")%>">從推薦列表中刪除</a>
<% end if %>
</td>
</tr>
<tr>
</tr>
</table>
</td>
</tr>
<%
rs.MoveNext
loop
rs.Close
set rs = nothing
%>
</table>
</a>
<a name="#B">
<br>
<table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<tr>
<td width="500"><font color="#dd9944">『 最 新 書 目 』</font><img SRC="images/new001.gif" WIDTH="33" HEIGHT="16"></td>
</tr>
<tr>
<td><img src="images/dot.gif" width="510" height="1"></td>
</tr>
</table>
<br>
<table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<%
sql = "select a.id,a.description,b.bookid,b.name,b.Author,b.Times from newbook a,BookDetail b where a.bookid=b.bookid "
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
do while (not rs.EOF)
%>
<tr>
<td>
<table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<tr>
<td width="20" valign="top"><img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19">
<br><img SRC="images/new001.gif" WIDTH="33" HEIGHT="16">
</td>
<td>
書名：<a href="readbook.asp?bookid=<%=rs("bookid")%>"><%=rs("name")%></a> <br>
作者：<%=rs("Author")%><br>
訪問次數：<%=rs("times")%><br>
說明：<%=rs("description")%>
<% if session("usertype")<=1 then %>
<br><a href="del_new.asp?bookid=<%=rs("bookid")%>">從新書列表中刪除</a>
<% end if %>
</td>
</tr>
<tr>
</tr>
</table>
</td>
<%
rs.MoveNext
if rs.EOF then
exit do
end if
%>
<td>
<table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<tr>
<td width="20" valign="top"><img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19">
<br><img SRC="images/new001.gif" WIDTH="33" HEIGHT="16">
</td>
<td>
書名：<a href="readbook.asp?bookid=<%=rs("bookid")%>"><%=rs("name")%></a> <br>
作者：<%=rs("Author")%><br>
訪問次數：<%=rs("times")%><br>
說明：<%=rs("description")%>
<% if session("usertype")<=1 then %>
<br><a href="del_new.asp?bookid=<%=rs("bookid")%>">從新書列表中刪除</a>
<% end if %>
</td>
</tr>
<tr>
</tr>
</table>
</td>
</tr>
<%
rs.MoveNext
loop
rs.Close
set rs = nothing
%>
</table>
</a>
<p>
<%
sql = "select visitnum from visit"
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
visitnum=rs("visitnum")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<tr align="middle">
<td height="10"><img height="1" src="images/dot.gif" width="500"></td></tr>
<tr align="middle">
<td>您是第<%=visitnum%>個訪問者
</td>
</tr>
</table>
<table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
<tr align="middle">
<td height="10"><img height="1" src="images/dot.gif" width="500"></td></tr>
<tr align="middle">
<td>若有任何意見或者建議,請<a href="mailto:zhang95@263.net" style="TEXT-DECORATION: underline">寫信給我們</a>
<br><span style="FONT-FAMILY: verdana">© CopyRight 2000 All Rights Reserved</span>科技有限公司</p>
</td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -