msgview.asp

这是一个基于JSP设计的论坛网站（源码）

<%@ codepage = 936 LCID = 2052 %>
<% if Session("exemple_status") <> "login" then response.redirect "login.asp" %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->

<%
response.buffer = true

'get key
key = request.querystring("key")
if key="" or isnull(key) then
	key=request.form("key")
end if
if key="" or isnull(key) then response.redirect "msglist.asp"

'get action
a=request.form("a")
if a="" or isnull(a) then
	a="I"	'display with input box
end if

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

Select Case a
	Case "I": ' Get a record to display

		tkey = key
		strsql = "SELECT * FROM [msg] WHERE [id]=" & tkey

		set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strsql, conn
		If rs.EOF Then
			Response.Clear
			Response.Redirect "msglist.asp"
		Else
			rs.MoveFirst
		End If

		' Get the field contents
		x_id = rs("id")
		x_name = rs("name")
		x_email = rs("email")
		x_tel = rs("tel")
		x_addr = rs("addr")
		x_msg = rs("msg")
		x_fornews = rs("fornews")

		rs.Close
		Set rs = Nothing

End Select
%>

<!--#include file="header.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699"><tr><td>
<img src="images/bnrview.gif" alt="" width="400" height="30" border="0"></td></tr></table>

<table width="100%" border="0" cellspacing="0" cellpadding="10"><tr><td>
<p>TABLE : 供求招聘反馈信息<br><br><a href="msglist.asp">[返回上一页]</a></p>

<p>
<form>
<table width="600" border="0" cellspacing="1" cellpadding="5" bgcolor="cccccc">
                      <tr> 
                        <td width="119" bgcolor="f5f5f5"><font color="">编号</td>
                        <td width="458" bgcolor="#F5F5F5"><% response.write x_id %>
                          &nbsp;</td>
                      </tr>
                      <tr> 
                        <td bgcolor="f5f5f5"><font color="">姓名&nbsp;(单位)</td>
                        <td bgcolor="#F5F5F5"><% response.write x_name %>
                          &nbsp;</td>
                      </tr>
                      <tr> 
                        <td bgcolor="f5f5f5"><font color="">信息类别</td>
                        <td bgcolor="#F5F5F5"><% response.write x_email %>
                          &nbsp;</td>
                      </tr>
                      <tr> 
                        <td bgcolor="f5f5f5"><font color="">联系方式&nbsp;</td>
                        <td bgcolor="#F5F5F5"><% response.write x_tel %>
                          &nbsp;</td>
                      </tr>
                      <tr> 
                        <td bgcolor="f5f5f5"><font color="">留言信息&nbsp;</td>
                        <td bgcolor="#F5F5F5"><%= replace(x_msg & "",chr(10),"<br>") %>&nbsp;</td>
                      </tr>
                      <tr> 
                        <td bgcolor="f5f5f5"><font color="">询问产品&nbsp;</td>
                        <td bgcolor="#F5F5F5">&nbsp;<!--#include file="pro_view.asp" -->
                          &nbsp;</td>
                      </tr>
                    </table>
</td></tr></table>
</form>

<!--#include file="footer.asp"-->