qqcf_manage_2.asp

软件下载平台 软件下载平台

</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td valign="top"><div align="right"><a href="?Action=<%=Action%>&Page=1">第一页</a>
            <%
if page>1 then%>
            <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
            <%
end if
%>
            <%
if page<rs.pagecount   then%>
            <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
            <%
end if
%>
            <a href="?Action=<%=Action%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
    <form name="form1" method="post" action="jczx.asp">
      <td>
        <Select  name="select" size="1" class=smallselsect id="select4" style='BACKGROUND-COLOR:#ffffff;font-family: 宋体; font-size: 9pt;' onChange="window.location=form.page.options[form.page.selectedIndex].value">
          <%for i=1 to totalpage    
   response.write "<option value="&filename&"?action="&action&"&page="& i     
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"& i &"页</option>"    
next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
<%End If%>


<%If Action="pwdmodify" Then%>
<table width="98%" align="center" class="tba">
  
          <form name="form3" method="post" action="User.aspx?Action=pwdmodifysave">
            <tr class="tba_tr_1"> 
              <td height="19" colspan="2"> <div align="center"><strong>修改密码(带*为必填项）</strong></div></td>
            </tr>
            <tr align="center">
              <td align="left" bordercolor="#33CCCC"><div align="right">请输入原密码：</div></td>
              <td align="left"><font size="2">
                <input name="pwd_old" type="password" id="pwd_old" size="15">
                <font color="#0000FF">*</font></font></td>
            </tr>
            <tr align="center"> 
              <td width="150" align="left" bordercolor="#33CCCC"><div align="right">请输入新密码：</div></td>
              <td width="654" align="left"><font size="2"> 
                <input name="pwd" type="password" id="pwd" size="15">
                <font color="#0000FF">*</font></font></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC"><div align="right">请确认新密码：</div></td>
              <td align="left"><font size="2"> 
                <input name="pwd2" type="password" id="pwd2" size="15">
                <font color="#0000FF">*</font></font></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC">&nbsp;</td>
              <td align="left"><font size="2"> 
                <input type="submit" name="Submit2" value="修　改" >
                　 
                <input type="reset" name="Submit22" value="取　消" >
                </font></td>
            </tr>
          </form>
        </table>
<%End if%>

<%If Action="userpay" Then%>
<%If CInt(GetMySet("OnlinePayType"))=0 Then%>
系统没有开通在线支持功能!
<%Else%>
<%
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFFilm_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1
%>

<table width="98%" align="center" class="tba">
  
  <form method="POST" action="OnlinePay_Send.asp" name=form2 target="_blank">
    <TBODY>
<tr class="tba_tr_1"> 
        <TD height=12 colspan="2"><div align="center"><font color="#000000"><strong>在线支付</strong></font></div></TD>
      </TR>
      <TR> 
        <TD height=25 colspan="2" bgcolor="#FFFFFF">注：1元人民币可以充<%=RsSet("DotChangeNum")%>电影点数</TD>
      </TR>
      <TR> 
        <TD width="200" height=25><div align="right">你的用户名：</div></TD>
        <TD height=25><%=Rs("UserName")%> <input name="UserName" type="hidden" id="UserName" value="<%=Rs("UserName")%>"> 
        </TD>
      </TR>
      <TR> 
        <TD height=25><div align="right">你的定单号码：</div></TD>
        <TD height=25><%orderid=DateDiff("s","2000-1-1 0:0:0",Now())%> <input name="orderid" type="hidden" id="orderid" value="<%=orderid%>"> 
          <%=orderid%></TD>
      </TR>
      <TR> 
        <TD height=25><div align="right">付款金额：</div></TD>
        <TD height=25><input name="amount" type="text" value="" size="8">
          元*</TD>
      </TR>
      <TR> 
        <TD height=25><div align="right">你的Email:</div></TD>
        <TD height=25><%=Rs("Email")%> <input name="Email" type="hidden" id="Email" value="<%=Rs("Email")%>"></TD>
      </TR>
      <TR> 
        <TD height=25>&nbsp;</TD>
        <TD height=25><input type="submit" name="Submit" value="支付"> </TD>
      </TR>
    </TBODY>
  </form>
</TABLE>
<%End If%>
<%End If%>

<%If Action="gbooklist" Then%> 

<%

Sql="Select * From CFFilm_Gbook Where UserName='"&UserName&"' Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1

If Not rs.eof then
 If ChkStr(Request("Page"),2) = "" Then
  Page = 1
 Else 
  Page = CInt(ChkStr(Request("Page"),2))
 End If
 
 rs.pagesize=10
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
<table width="98%" align="center" class="tba">
  <tr> 
    <td colspan="5"><a href="?action=gbookadd"><strong>我要留言</strong></a></td>
  </tr>
  <tr class="tba_tr_1"> 
    <td width="50"><div align="center">序 号</div></td>
    <td width="200"><div align="center">内容</div></td>
    <td width="120"><div align="center">加入时间</div></td>
    <td><div align="center">管理员回复</div></td>
    <td width="120"><div align="center">回复时间</div></td>
  </tr>
  <%
do while not rs.eof and mypagesize>0
%>
  <tr
  <%if mypagesize mod 2=0 then
  response.write " bgcolor='#ffffff'"
 else
  response.write " bgcolor='#eeeeee'"
 end if
 %>> 
    <td height="18"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
    <td><%=rs("Content")%></td>
    <td><div align="center"><%=rs("AddTime")%></div></td>
    <td><%
If Rs("Reply")="" or isnull(Rs("Reply")) Then
 Response.write "请等待管理员的回复"
Else
 Response.write rs("Reply")
End If%></td>
    <td><div align="center"><%=rs("ReplyTime")%></div></td>
  </tr>
  <%
mypagesize=mypagesize-1
rs.movenext
loop%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td valign="top"><div align="right"><a href="?Action=<%=Action%>&Page=1">第一页</a>
            <%
if page>1 then%>
            <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
            <%
end if
%>
            <%
if page<rs.pagecount   then%>
            <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
            <%
end if
%>
            <a href="?Action=<%=Action%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
    <form name="form1" method="post" action="jczx.asp">
      <td>
        <Select  name="select" size="1" class=smallselsect id="select4" style='BACKGROUND-COLOR:#ffffff;font-family: 宋体; font-size: 9pt;' onChange="window.location=form.page.options[form.page.selectedIndex].value">
          <%for i=1 to totalpage    
   response.write "<option value="&filename&"?action="&action&"&page="& i     
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"& i &"页</option>"    
next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
<%End If%>

<%If Action="gbookadd" Then%>
<table width="98%" align="center" class="tba">

  <form name="form2" method="post" action="User.aspx?action=gbookaddsave">
  <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>留 言</strong></div></td>
    </tr>
    <tr>
      <td width="100"><div align="right"><strong> 留言内容</strong></div></td>
      <td><textarea name="Content" cols="60" rows="7" id="Content"></textarea></td>
    </tr>
    <tr>
      <td colspan="2"><div align="center">
          <input type="submit" name="Submit3322" value="增加">
      </div></td>
    </tr>
  </form>
</table>
<%End IF%>