📄 contact_edit.asp
字号:
<%@ codepage ="936" %><!--#include file="../../conn/dbconn2.asp"--><LINK href="../../css/Style.css" rel=stylesheet type=text/css><HTML><HEAD><META content="text/html; charset=gb2312" http-equiv=Content-Type><CENTER><script language="javascript">function show_sader(mylink){window.open(mylink,'','top=50,left=150,width=457,height=400,scrollbars=yes')}</script><%const MaxPerPage=4dim totalPut dim CurrentPagedim TotalPagesdim iif not isempty(request("page")) thencurrentPage=cint(request("page"))elsecurrentPage=1end ifdim sqldim rsdim rstypeif not isEmpty(request("id")) thenid=request("id")elseid=1end ifmysql="select * from qyml where id="+cstr(id)+"" Set myrs= Server.CreateObject("ADODB.Recordset") myrs.open mysql,conn,1,1 %> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber15"><tr><td width="100%"><img border="0" src="../../company/images/contact1.gif"></td></tr></table><HTML><HEAD><meta http-equiv="Content-Language" content="zh-cn"><TITLE><%=myrs("qymc")%></TITLE><META http-equiv=Content-Type content="text/html; charset=gb2312"><style type="text/css"><!--body { font-family: "宋体"; font-size: 9pt}p { }table { font-family: "宋体"; font-size: 9pt}td { font-family: "宋体"; font-size: 9pt; line-height: 14pt; letter-spacing: 0pt}a:link { text-decoration: none}a:visited { text-decoration: none}.unnamed1 { cursor: hand}a:hover { color: #FF6600; text-decoration: none}--></style><META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD><BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 ><DIV align=center><TABLE cellSpacing=0 cellPadding=0 width="95%" border=0 style="border-collapse: collapse" bordercolor="#111111" height="120"><TBODY><TR><TD vAlign=top height=120><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 style="border-collapse: collapse" bordercolor="#111111"><TBODY><tr><TD vAlign=top width="95%" height=5 bgcolor="#FFFFFF"><div align="right"><table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="100" id="AutoNumber14"><tr><td width="100%"><B><a href="contact.asp?id=<%=id%>"><img border="0" src="../../company/images/big_new.gif"></a></td></tr></table></div></TD></tr><TR><TD vAlign=top width="95%" height=100><TABLE height=109 cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY><TR vAlign=top><TD height=1 bgcolor="#FFFFFF"><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber13"><tr><td width="100%"><% sql="select * from book where bookid="+cstr(id)+" order by INFO_ID desc"Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write"<SCRIPT language=JavaScript>alert('目前暂无反馈信息...');"response.write"javascript:history.go(-1)</SCRIPT>"else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContentelse if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContentelse currentPage=1 showContentend if end ifend if sub showContent %> <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111" height="122"> <TBODY> <TR> <TD valign=top height="122" width="100%"><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD align=right><p align="left"><B><%showpage totalput,MaxPerPage,"contact_edit.asp"%></TD></TR></TBODY></TABLE><div align="center"><center><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111"><TR><TD height="10" colspan="2" background="../../company/images/line_gr.gif"></TD></TR></TABLE> </center></div><%do while not rs.eof%><div align="center"><center> <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111" height="75"><TBODY><TR height="30"><TD align=left width="95%" height="18"><b><img border="0" src="../../company/images/fpost2.gif"><span style="font-size: 10.5pt"><a target="_blank" href="index.asp?id=<%=rs("gsid")%>"><%=rs("linkman")%></a></span></b><%if rs("Gsid")>"1" then %><font color="#fc9603">【会员】</font><%else%><font color="#008000">【游客】</font><%end if%> <font color="#fc9603"> </font> <%=rs("dateandtime")%> </TD><TD align=left width="45%" height="18"><p align="right"> <%if session("user")="" then%><font face="Arial"><%else%> </font><a href="bookdel.asp?ID=<%=rs("bookid")%>"><img border="0" src="../../company/images/A_delete.gif"></a><font face="Arial"><%end if%></font></TD></TR><TR height="30"> <TD width="100%" colspan="2" height="19"><%=mid(rs("content"),1,200)%><a href="javascript:show_sader("bookinfo.asp?info_id=<%=rs("info_id")%>")">[<font color="#FF6600">详细信息</font>]</a></TD> </TR> <TR><TD height="19" width="100%" colspan="2"></TD></TR><TR><TD height="19" background="../../company/images/line_gr.gif" width="590" colspan="2"></TD></TR></TBODY></TABLE></center></div><% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop rs.close set rs=nothing %> <TABLE border=0 cellPadding=0 cellSpacing=0 width="92%"><TR><TD colspan="2"><%showpage totalput,MaxPerPage,"contact_edit.asp"%></TD></TR></table></TD></TR></TABLE><%end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "<form method=Post action="&filename&">" if CurrentPage<2 then response.write "<font color=red><b>共"&n&"页 第"&CurrentPage&"页 " response.write "共有"&totalnumber&"条反馈信息</b></font>" response.write "</td>"response.write "<td VALIGN=middle align=right >"response.write "【最前页】【上一页】" else response.write "<font color=red><b>共"&n&"页 第"&CurrentPage&"页 " response.write "共有"&totalnumber&"条反馈信息</b></font>" response.write "【<a href="&filename&"?page=1&id="&id&">最前页</a>】" response.write "【<a href="&filename&"?page="&CurrentPage-1&"&id="&id&">上一页</a>】" end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&id="&id&">" response.write "下一页</a>】【 <a href="&filename&"?page="&n&"&id="&id&">最后页</a>】" end if response.write "</form>" end function%> </td></tr></table></center></div></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV></BODY></HTML><%myrs.close set myrs=nothingconn.closeset conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -