开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
NetBook.asp
资源名称：qiyeguanli.rar　[点击查看]
上传用户：ahxunteng
上传日期：2022-05-16
资源大小：1606k
文件大小：10k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

VBScript

NetBook.asp：源码内容
  1. <%@ LANGUAGE=VBScript CodePage=936%>
  2. <%option explicit%>
  3. <%Response.Buffer=True%>
  4. <!--#include file="Include/System.asp"-->
  5. <!--#include file="Include/StrLeft.asp"-->
  7. <%If Session("UserName")="" Then
  8. response.redirect"Server.asp"
  9. end if%>
  10. <%
  11. dim Id,rst,sql
  12. Id=Session("UserName")
  13. set rst = Server.CreateObject("ADODB.recordset")
  14. sql="select * from User where UserName='"&Id&"'"
  15. rst.open sql,conn,1,1
  16. %>
  17. <!--#include file="Include/Head.asp" -->
  18. <TABLE cellPadding=0 cellSpacing=0 class='Middle_Title'>
  19. <TR> 
  20. <TD vAlign=top class='M_Left_Td'> 
  21. <table cellpadding="0" cellspacing="0" align="center" class='M_Left_Title'>
  22. <tr>
  23. <td valign="top">
  24. <% Call Left_Member() %>
  25. </td>
  26. </tr>
  27. </table> 
  28. </TD>
  29. <%if strSkins <= 200 and strSkins >= 1 then%>
  30. <TD class='M_Jgx_TD'><IMG src='../img/1x1_pix.gif' width=1 height=2></TD>
  31. <%
  32. elseif strSkins <= 250 and strSkins >= 201 then '新风格==============================================================
  33. %>
  34. <%end if%>
  35. <TD vAlign=top> 
  36. <TABLE cellPadding=0 cellSpacing=0 align='center' class='M_Center_Title'>
  37. <% Call Style_Adcolumn() '广告栏 %>
  39. <!-- 留言中心 -->
  40. <TR>
  41. <TD>
  42. <TABLE cellSpacing=0 cellPadding=0  align="center" class='MC_Pt_Title'>
  43. <TR>
  44. <TD class='MC_Pt_TD1'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
  45. <TD class='MC_Pt_TD2'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
  46. <TD class='MC_Pt_TD3'><SPAN class=Glow>
  47. 留言中心
  48. &nbsp;</SPAN></TD>
  49. <TD class='MC_Pt_TD4'><div align="right">
  50. &nbsp;</div></TD>
  51. <TD class='MC_Pt_TD5'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
  52. </TR>
  53. </TABLE>
  54. </TD>
  55. </TR>
  56. <TR> 
  57. <TD>
  58. <TABLE cellSpacing=0 cellPadding=0  align="center" class='MC_ServeNr_Title'>
  59. <TR><TD height=10><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  60. <TR> 
  61. <TD>
  62. <!--  -->
  63. <table width="90%" border="0" align="center" cellpadding="0" cellspacing="5">
  64. <tr> 
  65. <td><div align="center"><img src="../img/newsico.gif" width="12" height="13"
  66. >&nbsp;&nbsp;<b><%=Session("UserName")%></b> 的留言专区</div></td>
  67. </tr>
  68. <tr> 
  69. <td style="line-height: 150%">
  70. &nbsp;&nbsp;&nbsp;&nbsp;<%=Session("UserName")%>，这里是您的专用私密留言簿，您可在此给我们留言，我们会尽力在24小时内在此答复您，请不要忘记回来察看回复哦！<br>
  71. &nbsp;&nbsp;&nbsp;&nbsp;如您已经在我站购物，汇款后请到这里进行汇款登记，填写您的订单号码、汇款时间、汇往我们哪个账号，以便我们核查您的款项的到帐情况并及时为您发货。</td>
  72. </tr>
  73. </table>
  74. <form method="post" action="NetBookSave.asp">
  75. <input type=hidden readonly name="Name" value="<%=Session("UserName")%>">
  76. <table width="90%" border="0" align="center" cellpadding="4" cellspacing="1">
  77. <tr> 
  78. <td width="22%" align="right">用户名称：</td>
  79. <td width="78%"><font> 
  80. <input type="text" readonly name="Name2" maxlength="36" value="<%if Session("UserName")="" then response.write"未注册用户" end if%><%=Session("UserName")%>" style="background-color: #FFFFFF; border-style: solid; border-color: #FFFFFF" class="smallInput">
  81. </font></td>
  82. </tr>
  83. <tr> 
  84. <td align="right">公司名称：</td>
  85. <td width="78%"><font> 
  86. <input type="text" name="Comane" size="30" maxlength="36" value="<%=rst("Comane")%>" style="font-size: 14px" class="smallInput">
  87. </font></td>
  88. </tr>
  89. <tr> 
  90. <td align="right">联系人：</td>
  91. <td width="78%"><font> 
  92. <input type="text" name="Somane" size="12" maxlength="30" value="<%=rst("Somane")%>" style="font-size: 14px" class="smallInput">
  93. </font></td>
  94. </tr>
  95. <tr> 
  96. <td align="right">联系电话：</td>
  97. <td width="78%"><font> 
  98. <input type="text" name="Phone" size="20" maxlength="36" value="<%=rst("Phone")%>" style="font-size: 14px" class="smallInput">
  99. </font></td>
  100. </tr>
  101. <tr> 
  102. <td align="right">联系传真：</td>
  103. <td width="78%"><font> 
  104. <input type="text" name="Fox" size="20" maxlength="36" value="<%=rst("Fox")%>" style="font-size: 14px" class="smallInput">
  105. </font></td>
  106. </tr>
  107. <tr> 
  108. <td align="right">E-mail：</td>
  109. <td width="78%"><font> 
  110. <input type="text" name="Email" size="20" maxlength="36" value="<%=rst("Email")%>" style="font-size: 14px" class="smallInput">
  111. </font></td>
  112. </tr>
  113. <tr> 
  114. <td width="22%" align="right">留言标题：</td>
  115. <td width="78%"><font>
  116. <input type="text" name="Title" size="22" maxlength="36" style="font-size: 14px; width: 320; height: 19" class="smallInput">
  117. </font></td>
  118. </tr>
  119. <tr> 
  120. <td width="22%" align="right">留言内容：</td>
  121. <td width="78%"><font>
  122. <textarea rows="6" name="Content" cols="50" style="font-size: 14px" class="smallInput"></textarea> 
  123. </font></td>
  124. </tr>
  125. <tr> 
  126. <td width="22%" align="right"></td>
  127. <td width="78%"><input type="submit" value="提交你的留言" name="cmdOk"
  128. > &nbsp; <input type="reset" value="复位" name="cmdReset"> </td>
  129. </tr>
  130. </table>
  131. </form>
  132. <%
  133. dim name,rs
  134. name=Session("UserName")
  135. set rs=server.createobject("adodb.recordset")
  136. sql="select * from Book where name='"&name&"'or name='管理员'order by id desc"
  137. rs.open sql,conn,1,1
  139. dim MaxPerPageB
  140. MaxPerPageB=10
  142. '假如没有数据时
  143. If rs.eof and rs.bof then
  144. 'call showpages
  145. response.write "<p align='center'><font color='#ff0000'>您还没任何留言资料</font></p>"
  146. response.end
  147. End if
  149. '取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示
  150. dim text,checkpage,CurrentPage,i
  151. text="0123456789"
  152. Rs.PageSize=MaxPerPageB
  153. for i=1 to len(request("page"))
  154. checkpage=instr(1,text,mid(request("page"),i,1))
  155. if checkpage=0 then
  156. exit for
  157. end if
  158. next
  160. If checkpage<>0 then
  161. If NOT IsEmpty(request("page")) Then
  162. CurrentPage=Cint(request("page"))
  163. If CurrentPage < 1 Then CurrentPage = 1
  164. If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
  165. Else
  166. CurrentPage= 1
  167. End If
  168. If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
  169. Else
  170. CurrentPage=1
  171. End if
  173. call showpages
  174. call list
  176. If Rs.recordcount > MaxPerPageB then
  177. call showpages
  178. end if
  180. '显示帖子的子程序
  181. Sub list()
  183. %> 
  184. <table width="90%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
  185. <tr> 
  186. <td width="14%" height="18" bgcolor="#eeeeee"><img src="../img/arrow.gif" width="16" height="13"><strong>留言列表</strong></td>
  187. <td width="86%" bgcolor="#eeeeee"> <%
  188. Response.write "<strong><font color='#000000'>-> 全部-</font>"
  189. Response.write "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>条留言</font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
  190. Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) &  "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font></strong>&nbsp;"
  191. If currentpage > 1 Then
  192. response.write "<strong><a href='NetBook.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font></strong>"
  193. Response.write "<strong><a href='NetBook.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font></strong>"
  194. Else
  195. Response.write "<strong><font color='#000000'>上一页 </font></strong>"
  196. End if
  197. If currentpage < Rs.PageCount Then
  198. Response.write "<strong><a href='NetBook.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
  199. Response.write "<a href='NetBook.asp?page="+Cstr(Rs.PageCount)+"'><font color='#000000'>尾页</font></a></strong>&nbsp;&nbsp;"
  200. Else
  201. Response.write ""
  202. Response.write "<strong><font color='#000000'>下一页</font></strong>&nbsp;&nbsp;"
  203. End if
  204. %> </td>
  205. </tr>
  206. <tr> 
  207. <td height="1" colspan="2" bgcolor="#999999"></td>
  208. </tr>
  209. </table>
  210. <%
  211. If rs.eof and rs.bof then
  212. call showpages
  213. response.write ""
  214. response.end
  215. End if
  216. %> <br>
  217. <table width="90%" height="18" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#666666">
  218. <tr bgcolor="#99CCFF"> 
  219. <td width="56%" height="25" align="center" bgcolor="#CCCCCC"
  220. ><p align="center"><font color="#000000"><b>留言主题</b></font></p></td>
  221. <td width="22%" height="21" align="center" bgcolor="#CCCCCC"><font color="#000000"><b>时间</b></font></td>
  222. <td width="22%" height="21" align="center" bgcolor="#CCCCCC"><font color="#000000"><b>回复</b></font></td>
  223. </tr>
  224. <%
  225. if not rs.eof then
  226. i=0
  227. do while not rs.eof
  228. %>
  229. <tr bgcolor="#99CCFF"> 
  230. <td height="22" bgcolor="#FFFFFF">
  231. <%if rs("name")="管理员"then%>
  232. 『网站公告』 
  233. <%end if%> 
  234. <a href="javascript:winopen('NetBookRe.asp?id=<%=rs("id")%>&amp;name=<%=rs("name")%>')"><%=rs("title")%></a>
  235. </td>
  236. <td height="1" bgcolor="#FFFFFF" align="center">&nbsp; <%=rs("time")%></td>
  237. <td height="1" bgcolor="#FFFFFF" align="center">&nbsp; <%If rs("rebook")<>"" Then%> 
  238. <a href="javascript:winopen('NetBookRe.asp?id=<%=rs("id")%>&amp;name=<%=rs("name")%>')">回复</a> 
  239. <%else%>
  240. 无 
  241. <%End If%> &nbsp;
  242. </td>
  243. </tr>
  244. <%
  245. i=i+1
  246. if i >= MaxPerPageB then exit do
  247. rs.movenext
  248. loop
  249. end if
  250. %>
  251. <%end sub%>
  252. </table>
  253. <!--  -->
  254. </TD>
  255. </TR>
  256. <TR> 
  257. <TD height=10><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
  258. </TR>
  259. </table>
  260. </TD>
  261. </TR>
  262. <%
  263. rst.close
  264. set rst=nothing
  265. %>
  266. <!-- 留言中心 End -->
  267. <TR> 
  268. <TD> 
  269. <TABLE cellSpacing=0 cellPadding=0  align="center" class='MC_bottom_title'>
  270. <tr> 
  271. <td>
  272. </td>
  273. </tr>
  274. <tr><td class='MC_bottom_Td2'></td></tr>
  275. </table>
  276. </TD>
  277. </TR>
  278. <TR><TD height=10><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  279. </TABLE>
  280. </TD>
  281. <%if strSkins <= 200 and strSkins >= 1 then%>
  283. </TR>
  284. </TABLE>
  285. <!--#include file="Include/Foot.asp" -->
  286. <%
  287. elseif strSkins <= 250 and strSkins >= 201 then '新风格==============================================================
  288. %>
  289. <TD class='M_Jgx_TD'><IMG src='../img/1x1_pix.gif' width=1 height=2></TD>
  290. <TD vAlign=top background="../Skin/201/line-mid-glay.gif" width="6"><img border="0" src="../Skin/201/line-shadow-glay-
  292. mid.gif" width="6" height="146"></TD>
  293. <TD vAlign=top class='Mr_TitlePt'><% Call Right_Download() %></TD>
  294. </TR>
  295. </TABLE>
  296. <!--#include file="Include/Foot4.asp" -->
  297. <%end if%>