📄 qqcf_manage_3.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
    </tr>
    <tr align="center"> 
      <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">QQ号码：</div></td>
      <td align="left" bgcolor="#FFFFFF"> <input name="qq" type="text" id="qq"  value="<%=GetConVertStr(Rs("QQ"))%>" size="12"> 
      </td>
    </tr>
    <tr align="center">
      <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">联系电话：</div></td>
      <td align="left" bgcolor="#FFFFFF"><input name="phone" type="text"  value="<%=GetConVertStr(Rs("phone"))%>" size="20"></td>
    </tr>
    <tr align="center"> 
      <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">手机号码：</div></td>
      <td align="left" bgcolor="#FFFFFF"> <input name="mobile" type="text"  value="<%=GetConVertStr(Rs("mobile"))%>" size="20">
      </td>
    </tr>
    <tr align="center"> 
      <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">网　址：</div></td>
      <td align="left" bgcolor="#FFFFFF"> <input name="website" type="text"  value="<%=GetConVertStr(Rs("website"))%>" size="50">
      </td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">密码提示问题：</div></td>
      <td align="left"><%=Rs("PasswordAsk")%></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">密码回答答案：</div></td>
      <td align="left"><input type="password" name="passwordanswer">
        <font color="#0000FF">*</font></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td align="left" bordercolor="#33CCCC">&nbsp;</td>
      <td align="left"><input type="submit" name="Submit6" value="修改"></td>
    </tr>
  </form>
</table>
<%End If%>

<%If Action="passanswermodify" Then%>
<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
Rs.Open Sql,Conn,1,1%>
        <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <form name="form3" method="post" action="?Action=passanswermodifysave">
            <tr> 
              <td height="19" colspan="2"> <div align="center"><strong>修改密码提示和答案(带*为必填项）</strong></div></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">原密码提示问题：</div></td>
              <td align="left" bgcolor="#FFFFFF"><%=Rs("passwordask")%></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">原密码回答答案：</div></td>
              <td align="left" bgcolor="#FFFFFF"><input name="passwordanswer_old" type="password" id="passwordanswer" size="20">
                <font color="#0000FF">*</font>(请输入原答案确认要修改为以下新提示和答案)</td>
            </tr>

            <tr align="center"> 
              <td width="150" align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">新密码提示问题：</div></td>
              <td width="654" align="left" bgcolor="#FFFFFF">
                <input name="passwordask_new" type="text" id="passwordask" size="20">
                <font color="#0000FF">*</font></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">新密码回答答案：</div></td>
              <td align="left" bgcolor="#FFFFFF">
                <input name="passwordanswer_new" type="password" id="passwordanswer" size="20">
                <font color="#0000FF">*</font></td>
            </tr>
            <tr align="center"> 
              <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF">&nbsp;</td>
              <td align="left" bgcolor="#FFFFFF">
                <input type="submit" name="Submit23" value="修　改" >
                　 
                <input type="reset" name="Submit222" value="取　消" >
                </td>
            </tr>
          </form>
        </table>
        <%End if%>
		
<%If Action="usermodifypay" then%>
<script>
function paycheck()
{
if ((document.form2.paytype(1).checked)&&(document.form2.bank_address.value)==""){
 window.alert ('开户银行必须选择!');
 document.form2.bank_address.focus();
 return false;
}
if ((document.form2.paytype(1).checked)&&(document.form2.bank_username.value)==""){
 window.alert ('开户人必须填写!');
 document.form2.bank_username.focus();
 return false;
}
if ((document.form2.paytype(1).checked)&&(document.form2.bank_usercode.value)==""){
 window.alert ('银行卡号或账号必须填写!');
 document.form2.bank_usercode.focus();
 return false;
}

if ((document.form2.paytype(2).checked)&&(document.form2.pay_b.value)==""){
 window.alert ('支付宝账号必须填写!');
 document.form2.pay_b.focus();
 return false;
}
if ((document.form2.paytype(3).checked)&&(document.form2.pay_c.value)==""){
 window.alert ('快钱账号必须填写!');
 document.form2.pay_c.focus();
 return false;
}

if ((document.form2.passwordanswer.value)==""){
 window.alert ('密码回答答案必须填写!');
 document.form2.passwordanswer.focus();
 return false;
}

return true;
}
</script>



<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <form name="form2" method="post" action="?action=usermodifypaysave" onsubmit="javascript:return paycheck()">
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>修改汇款方式(我们只对你选中那个的汇款方式进行汇款)</strong> 
        </div></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">填写汇款方式：</div></td>
      <td align="left"> <input name="paytype" type="radio" onclick="ashow_1()" value="0"<%If Rs("PayType")=0 Then Response.write " checked"%>>
        以后填写 
        <input type="radio" name="paytype" value="1" onclick="ashow_2()"<%If Rs("PayType")=1 Then Response.write " checked"%>>
        银行汇款<%If Rs("PayType")=1 Then Response.write "(<font color=ff0000>有效</font>)"%>
        <input type="radio" name="paytype" value="2" onclick="ashow_3()"<%If Rs("PayType")=2 Then Response.write " checked"%>>
        支付宝<%If Rs("PayType")=2 Then Response.write "(<font color=ff0000>有效</font>)"%>
        <input type="radio" name="paytype" value="3" onclick="ashow_4()"<%If Rs("PayType")=3 Then Response.write " checked"%>>
        快钱<%If Rs("PayType")=3 Then Response.write "(<font color=ff0000>有效</font>)"%></td>
    </tr>
    <tr id="t_1" align="center" bgcolor="#FFFFFF" > 
      <td align="left" bordercolor="#33CCCC"><div align="right">开户银行：</div></td>
      <td align="left"><input name="bank_address" type="text" id="bank_address" value="<%=GetConVertStr(Rs("Bank_Address"))%>"  size="30"> 
        <font color="#ff0000">*</font>(建议使用工行或招行银行卡)</td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF" id="t_2"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">开户人：</div></td>
      <td align="left"><input name="bank_username" type="text" id="bank_username" value="<%=GetConVertStr(Rs("Bank_UserName"))%>"  size="10"> 
        <font color="#ff0000">*</font></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF" id="t_3"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">银行卡号或帐号：</div></td>
      <td align="left"><input name="bank_usercode" type="text" id="bank_usercode" value="<%=GetConVertStr(Rs("Bank_UserCode"))%>"  size="25"> 
        <font color="#ff0000">*</font></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF" id="t_4"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">支付宝账号：</div></td>
      <td align="left"><input name="pay_b" type="text" id="pay_b" value="<%=GetConVertStr(Rs("Pay_B"))%>"  size="20"> 
        <font color="#ff0000">*</font></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF" id="t_5"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">快钱账号：</div></td>
      <td align="left"><input name="pay_c" type="text" id="pay_c" value="<%=GetConVertStr(Rs("Pay_C"))%>"  size="20"> 
        <font color="#ff0000">*</font></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">密码提示问题：</div></td>
      <td align="left"><%=Rs("PasswordAsk")%></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF">
      <td align="left" bordercolor="#33CCCC"><div align="right">密码回答答案：</div></td>
      <td align="left"><input type="password" name="passwordanswer"></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td align="left" bordercolor="#33CCCC">&nbsp;</td>
      <td align="left"><input type="submit" name="Submit6" value="修改"></td>
    </tr>
  </form>
</table>
<%End If%>
<%If Action="sysinfolist" Then%>
<%

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

If Not rs.eof then
 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
  page=1
 Else
  Page=Int(Abs(Request("page")))
 End if
 rs.pagesize=10
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
<table width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="D6DFF5">
    <td width="50"><div align="center"><strong>序 号</strong></div></td>
    <td><div align="center"><strong>内容</strong></div></td>
    <td width="120"><div align="center"><strong>时 间</strong></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("AddDate")%></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="select3" size="1" class=smallselsect id="select2" 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="gbooklist" Then%> 

<%

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

If Not rs.eof then
 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
  page=1
 Else
  Page=Int(Abs(Request("page")))
 End if
 rs.pagesize=10
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
<table width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="#FFFFFF"> 
    <td colspan="5"><a href="?action=gbookadd"><strong>我要留言</strong></a></td>
  </tr>
  <tr bgcolor="D6DFF5"> 
    <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="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <form name="form2" method="post" action="?action=gbookaddsave">
    <tr>
      <td colspan="2"><div align="center"><strong>留 言</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="100"><div align="right"><strong> 留言内容</strong></div></td>
      <td><textarea name="Content" cols="60" rows="7" id="Content"></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td colspan="2"><div align="center">
          <input type="submit" name="Submit3322" value="增加">
      </div></td>
    </tr>
  </form>
</table>
<%End IF%>
上一页 1 23
💿 文件大小 946 K
👤 上传用户 god_dog
📂 所属分类其他
🏷️ 相关标签

#分 #分配 #网站
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -