📄 more.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim sql
dim dbid
dbid=request("id")
sql="select * from myclass where id="&dbid
rs.open sql,conn,1,1
%>
<title>我的名字</title>
<body topmargin="0" background="images/bg.gif">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="760" height="298" style="border-left: 1 solid #000080; border-right: 1 solid #000080">
<tr>
<td align="right" width="38" height="24"></td>
<td align="right" width="84" height="24"><font color="#000080">我的名字：</font></td>
<td align="center" width="13" height="24"></td>
</center>
<td align="left" width="264" height="24">
<p align="left"><%=trim(rs("name"))%></td>
<center>
<td align="center" width="149" rowspan="6" height="145" colspan="3">
<% if trim(rs("sex"))="我是男生" then %>
<img src="images/boy.gif" alt="<%=trim(rs("name"))%>是一个男生！">
<% else %>
<img src="images/girl.gif" alt="<%=trim(rs("name"))%>是一个女生！">
<% end if %>
</td>
<td align="center" width="8" height="348" rowspan="13" background="images/bar.gif"> </td>
<td align="center" width="193" height="244" rowspan="13">
<script language=JavaScript1.2>
var marqueewidth="187"
var marqueeheight=345
var speed=1
var marqueecontents='<left><font color=#000080> 大家好！欢迎光临咱们班的网上通讯录，这是俺制作的，做的不好请大家不要见笑，关键是为了增强联络嘛！呵呵。同学们，你们最近怎么样啊！我好想念你们呀！以前的时光好值得怀念呀！你们现在在做什么呢！都已经进入网络时代了，你们有了自己的主页了吗？啊？没有啊！哦！那邮件有了吗？也该有了吧！有了咱们以后联系起来也方便呀！如果没有的话赶快去申请一个吧！呵呵，我在他乡过得还好，请大家千万不要挂念呀！（石头向我飞来：谁挂念你呀？）呵呵！<br><br> 同学们哪！（像不像柴校长讲话？）就快要毕业了，一转眼的时间就要到了，以后还不知道会不会再相见，咱们班上网的人不多，还不知道我这份通讯录能不能办下来，不过没关系的，我会发奋的寻找大家的资料，因为你们都是我最好的朋友也是朋友！好了，不耽误大家了，赶快加入吧！'
if (document.all)
document.write('<marquee direction="up" scrollAmount='+speed+' style="width:'+marqueewidth+';height:'+marqueeheight+'">'+marqueecontents+'</marquee>')
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",450)
intializemarquee()
}
}
function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.write(marqueecontents)
document.cmarquee01.document.cmarquee02.document.close()
thelength=document.cmarquee01.document.cmarquee02.document.height
scrollit()
}
function scrollit(){
if (document.cmarquee01.document.cmarquee02.top>=thelength*(-1)){
document.cmarquee01.document.cmarquee02.top-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.top=marqueeheight
scrollit()
}
}
window.onload=regenerate2
</script>
</td>
</tr>
<tr>
<td align="right" width="38" height="24"></td>
<td align="right" width="84" height="24"><font color="#000080">我的网名：</font></td>
<td align="center" width="13" height="24"></td>
</center>
<td align="left" width="264" height="24">
<p align="left">
<% if trim(rs("nichen"))<>"" then %>
<%=trim(rs("nichen"))%>
<% else %>
我还没有想好呢！
<% end if %>
</td>
<center>
</tr>
<tr>
<td align="right" width="38" height="24"></td>
<td align="right" width="84" height="24"><font color="#000080">我的性别：</font></td>
<td align="center" width="13" height="24"></td>
</center>
<td align="left" width="264" height="24">
<p align="left">
<% if trim(rs("sex"))="我是男生" then %>
<%=trim(rs("name"))%>是一个可爱的<font color=#ff0000>男生</font>！
<% else %>
<%=trim(rs("name"))%>是一个可爱的<font color=#ff0000>女生</font>！
<% end if %>
</td>
<center>
</tr>
<tr>
<td align="right" width="38" height="25"></td>
<td align="right" width="84" height="25"><font color="#000080">出生日期：</font></td>
<td align="center" width="13" height="25"></td>
</center>
<td align="left" width="264" height="25">
<p align="left">
<% if trim(rs("year"))<>"" and trim(rs("month"))<>"" then %>
<%=trim(rs("year"))%>年<%=trim(rs("month"))%>月<%=trim(rs("day"))%>日
<% else %>
连我自己都忘记了！
<% end if %>
</td>
<center>
</tr>
<tr>
<td align="right" width="38" height="25"></td>
<td align="right" width="84" height="25"><font color="#000080">我的邮件：</font></td>
<td align="center" width="13" height="25"></td>
</center>
<td align="left" width="264" height="25">
<p align="left">
<% if trim(rs("email"))<>"" then %>
<a href="mailto:<%=trim(rs("email"))%>?subject=〖给<%=trim(rs("name"))%>写信!〗">给<%=trim(rs("name"))%>写封信吧！
<% else %>
我到现在还没有电子邮件呢！
<% end if %>
</td>
<center>
</tr>
<tr>
<td align="right" width="38" height="25"></td>
<td align="right" width="84" height="25"><font color="#000080">我的主页：</font></td>
<td align="center" width="13" height="25"></td>
</center>
<td align="left" width="264" height="25">
<p align="left">
<% if trim(rs("url"))<>"" then %>
<a href="<%=trim(rs("url"))%>" target="_blank">去<%=trim(rs("name"))%>的主页看一看吧！</a>
<% else %>
我到现在还没有主页呢！
<% end if %>
</td>
<center>
</tr>
<tr>
<td align="right" width="38" height="25"></td>
<td align="right" width="84" height="25"><font color="#000080">我的OICQ：</font></td>
<td align="center" width="13" height="25"></td>
</center>
<td align="left" width="264" height="25">
<p align="left">
<% if trim(rs("oicq"))<>"" then %>
<%=trim(rs("oicq"))%>
<% else %>
我还没有申请到QQ号呢！
<% end if %>
</td>
<td align="center" width="19" height="25">
<p align="center"></td>
<center>
<td align="center" width="118" height="25" style="border-top: 1 solid #000080; border-bottom: 1 solid #000080">
<p align="center"><font color=#ff0000><%=trim(rs("name"))%></font>的留言</td>
<td align="center" width="18" height="25">
</td>
</tr>
<tr>
<td align="right" width="38" height="12"></td>
<td align="right" width="84" height="12"><font color="#000080">我的电话：</font></td>
<td align="center" width="13" height="12"></td>
</center>
<td align="left" width="264" height="25">
<p align="left">
<%=trim(rs("tel"))%></td>
<td align="center" width="17" height="150" rowspan="6">
<p align="center">
</td>
<td align="center" width="116" height="150" rowspan="6" valign="middle">
<p align="left"> <%=trim(rs("demo"))%>
</td>
<td align="center" width="18" height="150" rowspan="6">
</td>
</tr>
<center>
<tr>
<td align="right" width="38" height="12"></td>
<td align="right" width="84" height="12"><font color="#000080">我的传呼：</font></td>
<td align="center" width="13" height="12"></td>
</center>
<td align="left" width="264" height="25">
<p align="left">
<% if trim(rs("bp"))<>"" then %>
<%=trim(rs("bp"))%>
<% else %>
我现在还没有传呼呀！
<% end if %>
</td>
<center>
</tr>
<tr>
<td align="right" width="38" height="12"></td>
<td align="right" width="84" height="12"><font color="#000080">我的手机：</font></td>
<td align="center" width="13" height="12"></td>
</center>
<td align="left" width="264" height="25">
<p align="left">
<% if rs("movetel")<>"" then %>
<%=trim(rs("movetel"))%>
<% else %>
我现在还没有手机呀！
<% end if %>
</td>
<center>
</tr>
<tr>
<td align="right" width="38" height="12"></td>
<td align="right" width="84" height="12"><font color="#000080">我的地址：</font></td>
<td align="center" width="13" height="12"></td>
</center>
<td align="left" width="264" height="25">
<p align="left"><%=trim(rs("adress"))%></td>
<center>
</tr>
<tr>
<td align="right" width="38" height="12"></td>
<td align="right" width="84" height="12"><font color="#000080">邮政编码：</font></td>
<td align="center" width="13" height="12"></td>
</center>
<td align="left" width="264" height="25">
<p align="left"><%=trim(rs("postcode"))%></td>
<center>
</tr>
<tr>
<td align="right" width="38" height="12"></td>
<td align="right" width="84" height="12"><font color="#000080">加入时间：</font></td>
<td align="center" width="13" height="12"></td>
</center>
<td align="left" width="264" height="25">
<p align="left"><%=rs("time")%></td>
<center>
</tr>
</table>
</center>
</div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="down.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -