netbook.asp

ASP网站源程序

                                                          <tr>
                                                            <td height="206" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                                                <tr>
                                                                  <td><%If Session("UserName")="" Then
response.redirect"Server.asp"
end if%>
                                                                      <%
Id=Session("UserName")
set Rst = Server.CreateObject("ADODB.recordset")
sql="select * from User where UserName='"&Id&"'"
rst.open sql,conn,1,1
%>
                                                                      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                                                                        <tr>
                                                                          <td height="179" valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
                                                                              <tr>
                                                                                <td height="206" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                                                                                    <TR>
                                                                                      <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                                                                          <tr>
                                                                                            <td height="10"></td>
                                                                                          </tr>
                                                                                        </table>
                                                                                          <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                                                                                            <tr>
                                                                                              <td class="top_m_txt01"><div align="center"><img src="Style/<%=Root%>/newsico.gif" width="12" height="13">&nbsp;&nbsp;<b><%=Session("UserName")%></b>的留言专区</div></td>
                                                                                            </tr>
                                                                                            <tr>
                                                                                              <td class="top_m_txt01">&nbsp;&nbsp;&nbsp;&nbsp;<%=Session("UserName")%>，这里是您的专用私密留言簿，您可在此给我们留言，我们会尽力在24小时内在此答复您，请不要忘记回来察看回复哦！<br>
                                                                        如您已经在我站购物，汇款后请到这里进行汇款登记，填写您的订单号码、汇款时间、汇往我们哪个账号，以便我们核查您的款项的到帐情况并及时为您发货。</td>
                                                                                            </tr>
                                                                                          </table>
                                                                                          <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1">
                                                                                            <form method="post" action="SaveNetBooK.asp">
                                                                                              <input type=hidden readonly name="Name" value="<%=Session("UserName")%>">
                                                                                              <tr>
                                                                                                <td width="24%" align="right"></td>
                                                                                                <td width="76%"></td>
                                                                                              </tr>
                                                                                              <tr>
                                                                                                <td width="24%" align="right" class="top_m_txt01">用户名称：</td>
                                                                                                <td width="76%">
                                                                                                  <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="INPUT">
                                                                                                </td>
                                                                                              </tr>
                                                                                              <tr>
                                                                                                <td align="right" class="top_m_txt01">公司名称：</td>
                                                                                                <td width="76%">
                                                                                                  <input type="text" name="Comane" size="30" maxlength="36" value="<%=rst("Comane")%>" style="font-size: 14px" class="INPUT">
                                                                                                </td>
                                                                                              </tr>
                                                                                              <tr>
                                                                                                <td align="right" class="top_m_txt01">联系人：</td>
                                                                                                <td width="76%"><font>
                                                                                                  <input type="text" name="Somane" size="12" maxlength="30" value="<%=rst("Somane")%>" style="font-size: 14px" class="INPUT">
                                                                                                </font></td>
                                                                                              </tr>
                                                                                              <tr>
                                                                                                <td align="right" class="top_m_txt01">联系电话：</td>
                                                                                                <td width="76%"><font>
                                                                                                  <input type="text" name="Phone" size="24" maxlength="36" value="<%=rst("Phone")%>" style="font-size: 14px" class="INPUT">
                                                                                                </font></td>
                                                                                              </tr>
                                                                                              <tr>
                                                                                                <td align="right" class="top_m_txt01">联系传真：</td>
                                                                                                <td width="76%"><font>
                                                                                                  <input type="text" name="Fox" size="18" maxlength="36" value="<%=rst("Fox")%>" style="font-size: 14px" class="INPUT">
                                                                                                </font></td>
                                                                                              </tr>
                                                                                              <tr>
                                                                                                <td align="right" class="top_m_txt01">E-mail：</td>
                                                                                                <td width="76%"><font>
                                                                                                  <input type="text" name="Email" size="18" maxlength="36" value="<%=rst("Email")%>" style="font-size: 14px" class="INPUT">
                                                                                                </font></td>
                                                                                              </tr>
                                                                                              <tr>
                                                                                                <td width="24%" align="right" class="top_m_txt01">留言标题：</td>
                                                                                                <td width="76%"><input type="text" name="Title" size="22" maxlength="36" style="font-size: 14px; width: 320; height: 19" class="INPUT"></td>
                                                                                              </tr>
                                                                                              <tr>
                                                                                                <td width="24%" align="right" class="top_m_txt01">留言内容：</td>
                                                                                                <td width="76%"><textarea rows="5" name="Content" cols="45" style="font-size: 14px" class="INPUT"></textarea>
                                                                                                </td>
                                                                                              </tr>
                                                                                              <tr>
                                                                                                <td width="24%" align="right"></td>
                                                                                                <td width="76%"><input
name="cmdOk" type="submit" class="INPUT01" value="提交你的留言">
&nbsp;
                                                                          <input name="cmdReset" type="reset" class="INPUT01" value="复位">
                                                                                                </td>
                                                                                              </tr>
                                                                                            </form>
                                                                                          </table>
                                                                                          <%


name=Session("UserName")
set rs=server.createobject("adodb.recordset")
sql="select * from book where name='"&name&"' or name='管理员' order by id desc"
rs.open sql,conn,1,1

'取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

call list

'显示帖子的子程序
Sub list()%>
                                                                                          <table width="90%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
                                                                                            <tr class="top_m_txt01">