📄 book_index.asp
字号:
<!--#include file="Inc/syscode.asp" -->
<!--#include file="head.asp" -->
<link href="css/css.css" rel="stylesheet" type="text/css">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><table width="850" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" valign="top" background="Style/<%=Root%>/cont_left_bg01.gif"><img src="Style/<%=Root%>/cont_left_img01.gif" width="30" height="431"></td>
<td style="padding-top:9px; " width="787" valign="top"><table width="787" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="207" align="left" valign="top" class="top_m_txt01"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Style/<%=Root%>/left_cp_tit.gif" width="200" height="67"></td>
</tr>
<tr>
<td height="142" align="center" valign="top" background="Style/<%=Root%>/left_bg01.gif"><% call ShowSmallClass_Tree() %></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/left_img01.gif" width="200" height="20"></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="63" valign="bottom"><img src="Style/<%=Root%>/left_tc_tit.gif" width="200" height="51"></td>
</tr>
<tr>
<td height="182" align="center" background="Style/<%=Root%>/left_bg02.gif"><table width="80%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"><% call ShowVote() %></td> </tr> </table></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/left_img02.gif" width="200" height="8"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="188" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="60" align="right" valign="bottom"><a href="about.asp"><img src="Style/<%=Root%>/left_img04.gif" width="175" height="47" border="0"></a></td>
</tr>
<tr>
<td height="51" align="right" valign="bottom"><a href="Culture.asp"><img src="Style/<%=Root%>/left_img05.gif" width="175" height="47" border="0"></a></td>
</tr>
<tr>
<td height="51" align="right" valign="bottom"><a href="Honor.asp"><img src="Style/<%=Root%>/left_img06.gif" width="175" height="47" border="0"></a></td>
</tr>
<tr>
<td height="70" align="left" valign="bottom"><a href="Contact.asp"><img src="Style/<%=Root%>/xsrx_img.gif" width="185" height="51" border="0"></a></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Style/<%=Root%>/cont_img01.gif" width="580" height="17"></td>
</tr>
<tr>
<td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9" background="Style/<%=Root%>/cont_tbl01_bg01.gif"></td>
<td align="center" valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="45" align="left" valign="top"><img src="Style/<%=Root%>/ykly.gif" width="298" height="36"></td>
</tr>
<tr>
<td valign="top">
<%
IF Request("work")="sh" Then
sql="update liuyan set B_sh=1 where id="&Request("id")&""
Conn.execute(sql)
End IF
%>
<%
if Request("work")="add" then
session("verifycode")=""
set rs=server.createobject("adodb.recordset")
sql="select * from liuyan where id="&Request("id")&""
rs.open sql,conn,1,2
rs("B_dom") =Request("B_dom")
rs("B_hui") =Request("B_hui")
rs.update '更新数据表记录
rs.close
set rs=nothing
Response.Redirect "book_index.asp?ok=ck"
End IF
%>
<script LANGUAGE="JavaScript">
function check()
{
if (document.Form1.B_dom.value=="")
{
alert("请填写您的留言内容！")
document.Form1.B_dom.focus()
document.Form1.B_dom.select()
return
}
document.Form1.submit()
}
</SCRIPT>
<table width="540" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"><img src="Style/<%=Root%>/gsjs_img01.gif" width="540" height="19"></td>
</tr>
<tr>
<td width="22" valign="top" background="Style/<%=Root%>/gsjs_left_bg01.gif"><img src="Style/<%=Root%>/gsjs_img03.gif" width="22" height="149"></td>
<td width="498" rowspan="2" valign="top"><table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="542" bgcolor="#FFFFFF">认真填写以下内容 | <a href="book.asp">查看留言 </a>|
<%if session("admin_name")<>"" then%>
<a href="index.asp?work=quit">退出 </a>
<%else%>
<a href="book_index.asp?work=long">重新登陆</a>
<%end if%></td>
</tr>
<%if Request("work")="edit" and session("admin_name")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from liuyan where id="&Request("id")&""
rs.open sql,conn,1,1
%>
<tr>
<td bgcolor="#FFFFFF"><TABLE class=tdtop cellSpacing=0 cellPadding=0 width=100% align=center
border=0>
<TBODY>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=3 width=100% align=center border=0>
<FORM name=Form1 action=book_index.asp method=post>
<TBODY>
<TR>
<TD><DIV align=right>留言内容: </DIV></TD>
<TD width="213"><TEXTAREA class=ss1 id=B_dom name=B_dom rows=5 wrap=VIRTUAL cols=60><%=rs("B_dom")%></TEXTAREA>
<FONT
color=#ff6600>*</FONT></TD>
</TR>
<TR>
<TD nowrap><DIV align=right>版主回复: </DIV></TD>
<TD><TEXTAREA class=ss1 id=B_hui name=B_hui rows=5 wrap=VIRTUAL cols=60><%=rs("B_hui")%></TEXTAREA>
<FONT
color=#ff6600>*</FONT></TD>
</TR>
<TR>
<TD colSpan=2><DIV align=center>
<input type="button" name="Submit" value="提交留言" onClick="check()">
<INPUT class=STYLE1 type=reset value=" 重新输入 " name=Submit2>
<INPUT id=work type=hidden value=add name=work>
<INPUT id=id type=hidden value=<%=Request("id")%> name=id>
</DIV></TD>
</TR>
</FORM>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<%
rs.close
set rs=nothing
end if%>
<%IF session("admin_name")<>"" and Request("ok")="ck" Then%>
<tr>
<td bgcolor="#FFFFFF"><TABLE class=tdtop cellSpacing=0 cellPadding=0 width=100% align=center border=0>
<TBODY>
<TR>
<form name="form1" method="post" action="book_index.asp">
<TD>搜索内容:
<INPUT id=shou name=shou>
<INPUT class=STYLE1 type=submit value=搜索 name=Submit3></TD>
</form>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><TABLE cellSpacing=0 cellPadding=5 width=100% align=center border=0>
<TBODY>
<TR>
<TD colSpan=2><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="19%"> <SPAN class=bigFont>留言列表</SPAN></TD>
<TD width="81%"> </TD>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -