view.asp
来自「修正的自由领域投票系统2.0 支持文件上传」· ASP 代码 · 共 149 行
ASP
149 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="const.asp"-->
<!--#include file="conn.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>
<%Function getcode1()
Dim test
On Error Resume Next
Set test=Server.CreateObject("Adodb.Stream")
Set test=Nothing
If Err Then
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
getcode1= Session("GetCode")
Else
getcode1= "<img src=""getcode.asp"">"
End If
End Function
dim id
id=request.QueryString("id")
if id="" or (not isnumeric(id)) then
set conn=nothing
response.Redirect("index.asp")
response.End()
end if
set rs=conn.execute("select * from stu where id="&id)
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=schoolname%><%=schoolvote%>－－<%=rs("stuname")%></title>
<style type="text/css">
<!--
body,td,th {
font-family: 宋体;
font-size: 9pt;
}
.STYLE1 {
font-size: 24px;
font-weight: bold;
}
.STYLE2 {color: #CC3399}
.STYLE3 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="74%" border="1" cellspacing="1" bordercolor="#993300">
<tr>
<td width="21%" height="233" rowspan="3" valign="top" bgcolor="#E7F5C6"><div align="center">
<p><a href="<%=rs("images")%>" target="_blank"><img src="<%=rs("images")%>" width="200" height="154"/ border="0"></a></p>
</div>
<table width="200" border="0" bgcolor="#CC6600">
<tr>
<td bgcolor="#FFFFFF"><div align="right">姓名：</div></td>
<td bgcolor="#FFFFFF"><div align="left"><%=rs("stuname")%></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">所属院系：</div></td>
<td bgcolor="#FFFFFF"><div align="left"><%=rs("yuanxi")%></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">专业：</div></td>
<td bgcolor="#FFFFFF"><div align="left"><%=rs("zhuanye")%></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">班级：</div></td>
<td bgcolor="#FFFFFF"><div align="left"><%=rs("banji")%></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">目前得票数：</div></td>
<td bgcolor="#FFFFFF"><div align="left"><%=rs("vote")%></div></td>
</tr>
</table> </td>
<td height="27" valign="middle" background="images/backg.gif"><span class="td STYLE2" style="word-break:break-all"><%=rs("stuname")%></span><span class="STYLE2">的访谈记录</span></td>
</tr>
<tr>
<td width="79%" height="187" valign="top" bgcolor="#FFFFFF"><%=rs("content")%><span class="STYLE1">
<% dim sname
sname=rs("stuname") %>
</span></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D1DCE5">
<tbody>
<% set rs=nothing
sql="select top 6 * from pinlun where uid='"&id&"' order by id desc"
set rs=conn.execute(sql)
if not rs.eof then %>
<tr>
<td height="25" background="images/backg.gif" bgcolor="#f7f7f7" class="td" style="word-break:break-all">以下是关于<%=sname%>最新的6条留言</td>
</tr><% while not rs.eof%>
<tr>
<td bgcolor="#f7f7f7" class="td" style="word-break:break-all"><div align="left"><font class="td" color="#FF6666"> <%=rs("pname")%>发表于：<%=rs("shijian")%></font> </div>
<table border="0" cellpadding="0" cellspacing="2" width="96%">
<tbody>
<tr>
<td height="31" background="images/backg.gif" class="td" style="word-break:break-all"> <%=rs("content")%></td>
</tr>
</tbody>
</table></td>
</tr>
<%
rs.movenext
wend
set rs=nothing
set conn=nothing
else %>
<tr>
<td height="25" align="center" background="images/backg.gif"><span class="STYLE2">暂时还没有评论！</span></td>
</tr>
<% end if %>
<tr>
<td bgcolor="#bbbbbb" height="18" valign="bottom"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="31" align="right" background="images/backg.gif"><a href="moreview.asp?id=<%=id%>" target="_blank" class="STYLE2">更多》</a></td>
</tr>
</table>
</div></td>
</tr>
</tbody>
</table>
<table align="center" border="0" cellpadding="2" cellspacing="1" bgcolor="#D1DCE5" width="100%">
<form action="tjmsg.asp?id=<%=id%>" method="post" name="login" id="login">
<input type="hidden" name="test" value="insert" />
<tr>
<td bgcolor="#FFFFFF" valign="top" align="center"><p align="left">姓名（可匿名）：<span class="STYLE3">( 请注意言论的合法性。)</span><br />
<input name="sname" class="editbox1" value="<%=request.cookies("tfot_tp")("sname")%>" size="20" maxlength="20" />
<br />
<br />
<textarea class="editbox2" cols="34" name="content" rows="6" type="text"></textarea>
<br />
附加码：<input name="mofei" id="mofei" size="4" maxlength="4" style="font-weight: 700">
<%=getcode1()%><br />
<input class="bottom" name="Submit" type="submit" value="提交" />
<input class="bottom" name="Submit2" type="reset" value="重填" />
</p> </td>
</tr>
</form>
</table></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?