开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 教育系统应用 > 查看源码
xmain.asp
资源名称：图书管理系统.rar　[点击查看]
上传用户：llrg7406
上传日期：2007-03-02
资源大小：654k
文件大小：11k
源码类别：

教育系统应用

开发平台：

Delphi

xmain.asp：源码内容
  1. <%@ Language=VBScript %>
  2. <!--#include file ="identify.asp"-->
  3. <html>
  4. <head>
  5. <meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  6. <link rel="stylesheet" type="text/css" href="xcss.css">
  7. </head>
  8. <body background="images/zapsmbknd.gif">
  9. <p align="center"><img height="130" src="images/213062.gif" width="510"></p>
  10. <style type="text/css">
  11. <!-- 
  12. .textanimlink,a {
  13. text-decoration : none;
  14. }
  15. P.main {
  16. font-family : Arial;
  17. font-size : 15pt;
  18. font-weight : bold;
  19. }
  20. -->
  21. </style>
  22. <!--#include file ="js/board.asp"-->
  23. <script Language="Javascript">
  24. <!-- Hiding
  25. bname=navigator.appName;
  26. bversion=parseInt(navigator.appVersion)
  27. if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4))
  28. window.onload=start
  29. else
  30. stop();
  31. window.onunload=stop
  32. if (bname=="Netscape"){
  33. brows=true
  34. dt=2
  35. }
  36. else{
  37. brows=false
  38. dt=20
  39. }
  40. var z=0;
  41. var msg=0;
  42. var rgb=0;
  43. var link=false;
  44. var status=true;
  45. var updwn=false;
  46. var value=0;
  47. var h=window.innerHeight;
  48. var w=window.innerWidth;
  49. var timer1;
  50. var timer2;
  51. var timer3;
  52. var convert = new Array()
  53. var hexbase= new Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F");
  55. // Put here your own messages. Add as many as you wan't (Do not edit anything else in the Script except the lines below)
  57. var bgcolor="#FFFFFF"; //Color of background
  58. var color="#00008D";  //Color of the Letters
  60. // Put here your own messages. Add as many as you wan't (Do not edit anything else in the Script except the lines above)
  62. for (x=0; x<16; x++){
  63. for (y=0; y<16; y++){
  64. convert[value]= hexbase[x] + hexbase[y];
  65. value++;
  66. }
  67. }
  69. redx=color.substring(1,3);
  70. greenx=color.substring(3,5);
  71. bluex=color.substring(5,7);
  72. hred=eval(parseInt(redx,16));
  73. hgreen=eval(parseInt(greenx,16));
  74. hblue=eval(parseInt(bluex,16));
  75. eredx=bgcolor.substring(1,3);
  76. egreenx=bgcolor.substring(3,5);
  77. ebluex=bgcolor.substring(5,7);
  78. ered=eval(parseInt(eredx,16));
  79. egreen=eval(parseInt(egreenx,16));
  80. eblue=eval(parseInt(ebluex,16));
  81. red=ered;
  82. green=egreen;
  83. blue=eblue;
  85. function start(){
  86. if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4)){
  87. link=false;
  88. updwn=true;
  89. if (brows)
  90. res=document.layers['textanim'].top
  91. else{
  92. textanim.style.width=document.body.offsetWidth-20;
  93. textanim.innerHTML='<Pre><P Class="main" Align="Center">'+message[msg]+'</P></Pre>'
  94. res=textanim.style.top
  95. for (x=0; x<document.all.length; x++)
  96. if(document.all[x].id=="textanimlink")
  97. link=true;
  98. }
  99. up()
  100. }
  101. }
  103. function stop(){
  104. clearTimeout(timer1);
  105. clearTimeout(timer2);
  106. clearTimeout(timer3);
  107. }
  109. function resz(){
  110. h=window.innerHeight;
  111. w=window.innerWidth;
  112. if (updwn)
  113. timer1=setTimeout('up()',1000)
  114. else
  115. timer2=setTimeout('down()',1000)
  116. }
  118. function breakf(){
  119. if (status){
  120. clearTimeout(timer1);
  121. clearTimeout(timer2);
  122. status=false
  123. return;
  124. }
  125. else{
  126. status=true;
  127. if (updwn)
  128. timer1=setTimeout('up()',dt)
  129. else
  130. timer2=setTimeout('down()',dt)
  131. }
  132. }
  135. function up(){
  136. if (red<hred){
  137. if ((red+7)<hred)
  138. red+=7;
  139. else
  140. red=hred
  141. redx = convert[red]
  142. }
  143. else{
  144. if ((red-7)>hred)
  145. red-=7;
  146. else
  147. red=hred
  148. redx = convert[red]
  149. }
  151. if (green<hgreen){
  152. if ((green+7)<hgreen)
  153. green+=7;
  154. else
  155. green=hgreen
  156. greenx = convert[green]
  157. }
  158. else{
  159. if ((green-7)>hgreen)
  160. green-=7;
  161. else
  162. green=hgreen
  163. greenx = convert[green]
  164. }
  166. if (blue<hblue){
  167. if ((blue+7)<hblue)
  168. blue+=7;
  169. else
  170. blue=hblue
  171. bluex = convert[blue]
  172. }
  173. else{
  174. if ((blue-7)>hblue)
  175. blue-=7;
  176. else
  177. blue=hblue
  178. bluex = convert[blue]
  179. }
  181. rgb = "#"+redx+greenx+bluex;
  182. if (brows){
  183. document.layers['textanim'].document.linkColor=rgb;
  184. document.layers['textanim'].document.vlinkColor=rgb;
  185. if (window.innerHeight!=h || window.innerWidth!=w){
  186. clearTimeout(timer1);
  187. resz()
  188. return;
  189. }
  190. else{
  191. document.layers['textanim'].document.write('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>')
  192. document.layers['textanim'].document.close();
  193. }
  194. }
  195. else{
  196. textanim.style.color=rgb;
  197. if(link)
  198. textanimlink.style.color=rgb;
  199. }
  200. if (z<38){
  201. if (brows)
  202. document.layers['textanim'].top--
  203. else
  204. textanim.style.posTop--
  205. z++
  206. timer1=setTimeout('up()',dt)
  207. }
  208. else
  209. {
  210. updwn=false;
  211. down()
  212. }
  213. }
  216. function down(){
  217. if (red<ered){
  218. if ((red+7)<ered)
  219. red+=7;
  220. else
  221. red=ered
  222. redx = convert[red]
  223. }
  224. else{
  225. if ((red-7)>ered)
  226. red-=7;
  227. else
  228. red=ered
  229. redx = convert[red]
  230. }
  232. if (green<egreen){
  233. if ((green+7)<egreen)
  234. green+=7;
  235. else
  236. green=egreen
  237. greenx = convert[green]
  238. }
  239. else{
  240. if ((green-7)>egreen)
  241. green-=7;
  242. else
  243. green=egreen
  244. greenx = convert[green]
  245. }
  247. if (blue<eblue){
  248. if ((blue+7)<eblue)
  249. blue+=7;
  250. else
  251. blue=eblue
  252. bluex = convert[blue]
  253. }
  254. else{
  255. if ((blue-7)>eblue)
  256. blue-=7;
  257. else
  258. blue=eblue
  259. bluex = convert[blue]
  260. }
  262. rgb = "#"+redx+greenx+bluex;
  263. if (brows){
  264. document.layers['textanim'].document.linkColor=rgb;
  265. document.layers['textanim'].document.vlinkColor=rgb;
  266. if (window.innerHeight!=h || window.innerWidth!=w){
  267. clearTimeout(timer2);
  268. resz()
  269. return;
  270. }
  271. else{
  272. document.layers['textanim'].document.write('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>')
  273. document.layers['textanim'].document.close();
  274. }
  275. }
  276. else{
  277. textanim.style.color=rgb;
  278. if(link)
  279. textanimlink.style.color=rgb;
  280. }
  282. if (z<76){
  283. if (brows)
  284. document.layers['textanim'].top--
  285. else
  286. textanim.style.posTop--
  287. z++
  288. timer2=setTimeout('down()',dt)
  289. }
  290. else
  291. {
  292. if (brows){
  293. document.layers['textanim'].document.write('')
  294. document.layers['textanim'].document.close();
  295. }
  296. else
  297. textanim.innerHTML='';
  298. window.clearInterval(timer2);
  299. if(msg<message.length-1){
  300. msg++;
  301. z=0;
  302. if (brows){
  303. document.layers['textanim'].top=res;
  304. }
  305. else
  306. textanim.style.top=res;
  307. timer3=setTimeout('start()',100);
  308. }
  309. else
  310. {
  311. msg=0;
  312. z=0;
  313. if (brows)
  314. document.layers['textanim'].top=res;
  315. else
  316. textanim.style.top=res;
  317. timer3=setTimeout('start()',2000);
  318. }
  319. }
  320. }
  323. // done hiding -->
  324. </script>
  325. <div id="textanim" style="position: absolute; left: 0; top: 220" onclick="breakf()">
  326. </div>
  327. <layer name="textanim" left="0" top="220">
  328. </layer>
  329. <p>&nbsp;</p>
  330. <p>&nbsp;</p>
  332. <p>
  334. <!--#include file ="index.asp"-->
  337. <a name="#A">
  338. <br>
  339. <table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  340.   <tr> 
  341.     <td width="500"><font color="#dd9944">『 推 荐 书 目 』</font></td>
  342.   </tr>
  343.   <tr> 
  344.     <td><img src="images/dot.gif" width="510" height="1"></td>
  345.   </tr>
  346. </table>
  347. <br>
  348. <table WIDTH="500" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  349. <%
  350. set conn = server.CreateObject("adodb.connection")
  351. conn.Open application("dsn")
  353. sql = "select a.id,a.description,b.bookid,b.name,b.Author,b.Times from introduce a,BookDetail b where a.bookid=b.bookid " 
  354. set rs = server.CreateObject("adodb.recordset")
  355. rs.Open sql,conn
  357. do while (not rs.EOF) 
  358. %>
  359. <tr>
  360. <td>
  361. <table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  362. <tr>
  363. <td width="20" valign="top">
  364. <img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19">
  365. </td>
  366. <td>
  367. 书名：<a href="readbook.asp?bookid=<%=rs("bookid")%>"><%=rs("name")%></a> <br>
  368. 作者：<%=rs("Author")%><br>
  369. 访问次数：<%=rs("times")%><br>
  370. 说明：<%=rs("description")%>
  371. <% if session("usertype")<=1 then %>
  372. <br><a href="del_introduce.asp?bookid=<%=rs("bookid")%>">从推荐列表中删除</a>
  373. <%  end if %>
  374. </td>
  375. </tr>
  376. <tr>
  377. </tr>
  378. </table>
  379. </td>
  380. <%
  381. rs.MoveNext
  382. if rs.EOF then
  383. exit do
  384. end if
  385. %>
  386. <td>
  387. <table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  388. <tr>
  389. <td width="20" valign="top"><img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19">
  390. </td>
  391. <td>
  392. 书名：<a href="readbook.asp?bookid=<%=rs("bookid")%>"><%=rs("name")%></a> <br>
  393. 作者：<%=rs("Author")%><br>
  394. 访问次数：<%=rs("times")%><br>
  395. 说明：<%=rs("description")%>
  396. <% if session("usertype")<=1 then %>
  397. <br><a href="del_introduce.asp?bookid=<%=rs("bookid")%>">从推荐列表中删除</a>
  398. <%  end if %>
  399. </td>
  400. </tr>
  401. <tr>
  402. </tr>
  403. </table>
  404. </td>
  405. </tr>
  406. <%
  407. rs.MoveNext
  408. loop
  409. rs.Close
  410. set rs = nothing
  411. %>
  412. </table>
  413. </a>
  414. <a name="#B">
  415. <br>
  416. <table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  417.   <tr> 
  418.     <td width="500"><font color="#dd9944">『 最 新 书 目 』</font><img SRC="images/new001.gif" WIDTH="33" HEIGHT="16"></td>
  419.   </tr>
  420.   <tr> 
  421.     <td><img src="images/dot.gif" width="510" height="1"></td>
  422.   </tr>
  423. </table>
  424. <br>
  425. <table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  426. <%
  427. sql = "select a.id,a.description,b.bookid,b.name,b.Author,b.Times from newbook a,BookDetail b where a.bookid=b.bookid " 
  428. set rs = server.CreateObject("adodb.recordset")
  429. rs.Open sql,conn
  431. do while (not rs.EOF) 
  432. %>
  433. <tr>
  434. <td>
  435. <table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  436. <tr>
  437. <td width="20" valign="top"><img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19">
  438. <br><img SRC="images/new001.gif" WIDTH="33" HEIGHT="16">
  439. </td>
  440. <td>
  441. 书名：<a href="readbook.asp?bookid=<%=rs("bookid")%>"><%=rs("name")%></a> <br>
  442. 作者：<%=rs("Author")%><br>
  443. 访问次数：<%=rs("times")%><br>
  444. 说明：<%=rs("description")%>
  445. <% if session("usertype")<=1 then %>
  446. <br><a href="del_new.asp?bookid=<%=rs("bookid")%>">从新书列表中删除</a>
  447. <%  end if %>
  448. </td>
  449. </tr>
  450. <tr>
  451. </tr>
  452. </table>
  453. </td>
  454. <%
  455. rs.MoveNext
  456. if rs.EOF then
  457. exit do
  458. end if
  459. %>
  460. <td>
  461. <table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  462. <tr>
  463. <td width="20" valign="top"><img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19">
  464. <br><img SRC="images/new001.gif" WIDTH="33" HEIGHT="16">
  465. </td>
  466. <td>
  467. 书名：<a href="readbook.asp?bookid=<%=rs("bookid")%>"><%=rs("name")%></a> <br>
  468. 作者：<%=rs("Author")%><br>
  469. 访问次数：<%=rs("times")%><br>
  470. 说明：<%=rs("description")%>
  471. <% if session("usertype")<=1 then %>
  472. <br><a href="del_new.asp?bookid=<%=rs("bookid")%>">从新书列表中删除</a>
  473. <%  end if %>
  474. </td>
  475. </tr>
  476. <tr>
  477. </tr>
  478. </table>
  479. </td>
  480. </tr>
  481. <%
  482. rs.MoveNext
  483. loop
  484. rs.Close
  485. set rs = nothing
  486. %>
  487. </table>
  488. </a>
  491. <p>
  492. <%
  494. sql = "select visitnum from visit"
  495. set rs = server.CreateObject("adodb.recordset")
  496. rs.Open sql,conn
  497. visitnum=rs("visitnum")
  498. rs.close
  499. set rs=nothing
  500. conn.close
  501. set conn=nothing
  502. %>
  503. <table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  504. <tr align="middle">
  505. <td height="10"><img height="1" src="images/dot.gif" width="500"></td></tr>
  506. <tr align="middle">
  507. <td>您是第<%=visitnum%>个访问者
  508. </td>
  509. </tr>
  510. </table>
  511. <table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
  512. <tr align="middle">
  513. <td height="10"><img height="1" src="images/dot.gif" width="500"></td></tr>
  514. <tr align="middle">
  515. <td>若有任何意见或者建议,请<a href="mailto:zhang95@263.net" style="TEXT-DECORATION: underline">写信给我们</a>
  516. <br><span style="FONT-FAMILY: verdana">&copy; CopyRight 2000 All Rights Reserved</span>科技有限公司</p>
  517. </td>
  518. </tr>
  519. </table>
  520. </body>
  521. </html>