www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/guestbook_info.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<!--#include file="../common/char.asp" -->
<%
Call CheckAdmin()
Call AdminRight("ModiAdmin",ChannelID,session("admin"))
dim id,a,action
id=Request("id")
action=request("action")
if action="saverep" then
conn.execute("update cnk_guestbook set re='"&Trim(Request.Form("re"))&"' where id="&id)
end if
if Request("del")<>"" then
conn.execute("delete from cnk_guestbook where id="&Request("del"))
Response.redirect "guestbook.asp"
end if
if Request("shen")<>"" then
conn.execute("update cnk_guestbook set ispass=1 where id="&Request("shen"))
end if
rs.open "select * from cnk_guestbook where id="&id,conn,1,1
Call Head()
%>
<body>
<div class="cnkbox">
<div class="title">客户反馈详细内容</div>
<div class="content">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#EBEBEB">
<td align="right">日期时间:</td>
<td><% =rs("initime")%>
</td>
<td align="right">语言:</td>
<td><% if rs("lang")=0 then Response.Write("中文") else Response.Write("英文")%></td>
</tr>
<tr bgcolor="#EBEBEB">
<td width="18%" align="right">姓名:</td>
<td width="32%"><% =rs("contactname")%></td>
<td width="20%" align="right">地区:</td>
<td width="30%"><% =rs("area")%></td>
</tr>
<tr bgcolor="#EBEBEB">
<td align="right">电话:</td>
<td><% =rs("tel")%></td>
<td align="right">公司:</td>
<td><% =rs("company")%></td>
</tr>
<tr bgcolor="#EBEBEB">
<td align="right">E-mail:</td>
<td><% =rs("email")%></td>
<td align="right">网站地址:</td>
<td><% =rs("url")%></td>
</tr>
<tr bgcolor="#EBEBEB">
<td align="right">即时通讯:</td>
<td><% =rs("qq")%></td>
<td align="right">状态/操作:</td>
<td><% if rs("ispass")=0 then Response.Write("未审核, <a href=""?ChannelID="&ChannelID&"&shen="&id&"&id="&id&""">[点击通过审核]</a>") else Response.Write("已审核")%>
<a href="?ChannelID=<%= ChannelID %>&del=<% =id %>&id=<% =id %>">[删除]</a> </td>
</tr>
<tr bgcolor="#EBEBEB">
<td colspan="4"><% a=trim(rs("ly"))
if a<>"" then Response.Write(CnkUBBContent(a))%></td>
</tr>
</table>
<br>
<br>
<div align="center">
<form name="form1" method="post" action="guestbook_info.asp">
回复 ：<br>
<textarea name="re" cols="80" rows="8" class="input" id="re"><% =rs("re")%>
</textarea>
<br>
<br>
<input type="submit" name="Submit" class="button" value="提交">
<input name="action" type="hidden" id="action" value="saverep">
<input name="id" type="hidden" id="id" value="<% =id %>">
<input name="ChannelID" type="hidden" value="<%=ChannelID%>">
<input type="button" name="Submit2" class="button" value="返回" onClick="window.location.href='guestbook.asp?ChannelID=<%= ChannelID %>';">
</form>
</div>
<br>
<%set rs=nothing%>
</div>
</div>
<% Call Foot()
Call Closedb()%>