📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<!--#include file="sub/indexvar.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=SiteName%></title>
<link href="index.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" height="300" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" colspan="3" valign="middle" bgcolor="#DFE0D0"><img src="images/userlogin.gif" width="200" height="30" /></td>
<td width="580" rowspan="4" valign="top" bgcolor="#EEFFFF"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" ><img src="images/cndesign.gif" width="580" height="30" border="0" usemap="#Map" /></td>
</tr>
<tr bgcolor="#E8E6DD">
<td height="236" valign="top" bgcolor="#EEFFFF">
<table width="580" align="center" cellpadding="0" cellspacing="0">
<% '调用首页导航链接
call webs()
%>
</table> </td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td height="105" colspan="3" align="center" valign="middle" bgcolor="#FFFFFF">
<% '当用户在线不显示登录表单
if session("userlogin")="" then%>
<form id="form1" name="form1" method="post" action="usermg.asp">
<span class="date">用户名:</span>
<input name="name" type="text" class="Input" id="name" size="12" maxlength="16" />
<br />
<span class="date">密__码: </span>
<input name="pwd" type="password" class="Input" id="pwd" size="12" maxlength="16" />
<br />
<br />
<input name="Submit" type="button" class="Input" onClick="MM_goToURL('parent','reg.asp');return document.MM_returnValue" value="注册联盟用户" />
<input name="Submit2" type="submit" class="Input" value="进入" />
</form>
<%else
dim userid,rs,sql
userid = Session("id")
set rs=server.createobject("adodb.recordset") '创建纪录集
sql="select * from ax_user where id="&userid&" " '查找用户信息
rs.open sql,cn,1,2
%>
<table width="175" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" colspan="2">尊敬的<%=rs("name")%>您好!</td>
</tr>
<tr>
<td width="90" height="20" class="xuxian"><a href="userinfo.asp">信息修改</a></td>
<td height="20" class="xuxian" ><a href="userunion.asp">登记工作室</a></td>
</tr>
<tr>
<td height="20" class="xuxian"><a href="gbook.asp">在线留言</a></td>
<td height="20" class="xuxian"><a href="upworks.asp">上传作品</a></td>
</tr>
<tr>
<td height="20" class="xuxian"><a href="link.asp">友情链接</a></td>
<td height="20" class="xuxian"><a href="userout.asp">安全退出</a></td>
</tr>
<tr>
<td height="20" class="xuxian"> </td>
<td height="20" class="xuxian"> </td>
</tr>
</table>
<% end if%>
</td>
</tr>
<tr valign="top">
<td height="30" colspan="3" valign="top"><img src="images/webaffiche.gif" width="200" height="30" /></td>
</tr>
<tr valign="top">
<td width="13" bgcolor="#FFFFFF"></td>
<td width="175" height="135" valign="top" bgcolor="#FFFFFF">
<marquee FONT-WEIGHT: 150px; HEIGHT:135px; id='gg' scrollamount="1" scrolldelay="8" behavior="loop" direction="up">
<% '公告调用
call gg()
%>
</marquee></td>
<td width="12" height="135" bgcolor="#FFFFFF"> </td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="200" height="30" bgcolor="#DFE0D0"><img src="images/designunion.gif" width="200" height="30" /></td>
<td width="580" colspan="2" class="menuD"><img src="images/unionworks.gif" width="580" height="30" border="0" usemap="#Map2" /></td>
</tr>
<tr>
<td colspan="3"><table width="780" height="240" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" align="center" valign="top" bgcolor="#FFFFFF"><table width="188" border="0" cellspacing="0" cellpadding="0">
<% '调用联盟文字信息
call union()%>
</table></td>
<td bgcolor="#EEFFFF">
<table width="580" height="240" border="0" cellpadding="0" cellspacing="0">
<% '展示作品调用
call pic()
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" class="menuD"><img src="images/websearch.gif" width="200" height="30" /></td>
<td height="30" colspan="2" class="menuD"><img src="images/designnews.gif" width="580" height="30" border="0" usemap="#Map3" /></td>
</tr>
<tr>
<td height="120" align="center" valign="middle" bgcolor="#FFFFFF">
<% call websearch()%> </td>
<td width="160" height="120" align="center" valign="middle" background="images/bgpic.gif" bgcolor="#EEFFFF">
<% '调用设计动态图片
call newspic()%></td>
<td width="420" valign="middle" bgcolor="#EEFFFF">
<table width="420" cellspacing="0" cellpadding="0" border="0">
<% '调用设计动态
call news()%> </table></td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="195" height="30"><a href="http://www.designz.cn/down.asp"><img src="images/topdown.gif" width="195" height="30" border="0" /></a></td>
<td width="195" height="30"><a href="http://www.designz.cn/books.asp"><img src="images/topbook.gif" width="195" height="30" border="0" /></a></td>
<td width="195" height="30"><a href="http://www.designz.cn/gbook.asp"><img src="images/toply.gif" width="195" height="30" border="0" /></a></td>
<td width="195" height="30"><a href="http://bbs.designz.cn"><img src="images/topbbs.gif" width="195" height="30" border="0" /></a></td>
</tr>
<tr>
<td align="left" valign="top"><%Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select top 10 * from down order by id desc"
rs.Open SQL, cn, 1,1
do while not rs.eof
Response.Write "<br/>"
Response.Write " <img src='images/indexddd.gif' /> <a href='showdown.asp?id="&rs("id")&"'>"&left(rs("title"),15)&"...</a>"
rs.movenext
loop
rs.close
set rs=nothing%></td>
<td align="left" valign="top">
<%Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select top 10 * from book order by id desc"
rs.Open SQL, cn, 1,1
do while not rs.eof
Response.Write "<br/>"
Response.Write " <img src='images/indexddd.gif' /> <a href='showbook.asp?id="&rs("id")&"'>"&left(rs("title"),15)&"...</a>"
rs.movenext
loop
rs.close
set rs=nothing%>
</td>
<td align="left" valign="top"><%Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select top 10 * from gbook order by id desc"
rs.Open SQL, cn, 1,1
do while not rs.eof
Response.Write "<br/>"
Response.Write " <img src='images/indexddd.gif' /> <a href='gbook.asp'>"&left(rs("gbook"),15)&"...</a>"
rs.movenext
loop
rs.close
set rs=nothing%></td>
<td align="left" valign="top"><br/><script src="http://www.designz.cn/bbs/Dv_News.asp?GetName=besttopic"></script></td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30" class="menuD"><img src="images/unionlogo.gif" width="780" height="30" border="0" usemap="#Map4" /></td>
</tr>
<tr>
<td height="120" valign="middle" bgcolor="#FFFFFF"><table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<% '调用
call union2()
%>
</tr>
</table></td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30"><img src="images/friendlink.gif" width="780" height="30" border="0" usemap="#Map5" /></td>
</tr>
<tr>
<td height="80" bgcolor="#FFFFFF"><table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<% '友情logo链接
call link()
%>
</tr>
<tr>
<% '友情文字链接
call link2()
%>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<iframe scrolling="no" width="780" height="44" src="http://w4.001122.com/link/sc/5_2_7.php?u=designz&type=5&w=7&h=2&fc=0066FF&bgc=eeffff&bdc=3B83C5&al=center&tw=780&th=44" frameborder="0"></iframe>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="bottom.asp"-->
<map name="Map" id="Map"><area shape="rect" coords="531,14,577,26" href="web.asp" />
</map>
<map name="Map2" id="Map2"><area shape="rect" coords="532,14,576,26" href="pic.asp" />
</map>
<map name="Map3" id="Map3"><area shape="rect" coords="531,15,577,26" href="news.asp" />
</map>
<map name="Map4" id="Map4"><area shape="rect" coords="734,15,777,26" href="union.asp" />
</map>
<map name="Map5" id="Map5"><area shape="rect" coords="732,15,776,27" href="link.asp" title="更多...,申请友情链接"/>
</map></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -