guestbookshow.asp

用ASP设计的一个网上问卷系统,用于网上调查问卷系统的实现

<!--#include file="../Include/Config.asp"-->
<link rel="stylesheet" href="../Css/Style.css" type="text/css" />
<%
dim sql,GB_id
GB_id=request.QueryString("GB_id")
sql="select * from [GuestBook] where GB_id="&GB_id
rs.open sql,conn,1,3
if not rs.eof then
%>
<table width="500" cellpadding="0" cellspacing="0" id="guestBook">
<tr>
<td width="13%" rowspan="2" valign="top" class="touXiang"><img src="../Images/nobody.gif" vspace="0" align="bottom" />
<div class="name"><%=rs("GB_user")%></div></td>
<td width="87%" height="50" class="guestBookContetn"><%=rs("GB_content")%></td>
</tr>
<tr>
  <td height="10" class="info">时间：<%=rs("GB_date")%>&nbsp;&nbsp;
  <%
  if not rs("GB_email")="" then
  response.Write("<a href=""mailto:"&rs("GB_email")&"""><img src=""../Images/email.gif""/></a>&nbsp;&nbsp;")
  end if
  if not rs("GB_qq")="" then 
  response.Write("<a href=""tencent://message/?uin="&rs("GB_qq")&"&Site="&siteName&"&Menu=yes""><img src=""../Images/qq.gif""/></a>")
  end if
  %></td>
</tr>
<tr>
  <td height="20" colspan="2" class="closeW"><input name="button2" type="button" value="关闭窗口" onClick="window.close();"></td>
  </tr>
</table>
<%
else%>
<table width="500" align="center" cellpadding="0" cellspacing="0" id="guestBook" class="table">
<tr>
<td>暂时没有留言，请添加</a></td>
</tr>
</table>
<%
end if
rs.close
%>