cf_manage_3.asp

1.核心采用.Net、Mssql数据库、存储过程、缓存技术构建

 return true;
}
</script>

<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1%>

        
<table width="98%" align="center" class="tba">
  <form name="form2" method="post" action="?Action=datamodifysave" onsubmit="return modifyuser()">
<tr class="tba_tr_1">
      <td height="19" colspan="2"> <div align="center"><strong>修改注册资料(带*为必填项）</strong></div></td>
    </tr>
    <tr align="center"> 
      <td width="150" align="left"><div align="right">Email：</div></td>
      <td width="654" align="left"> <input name="email" type="text"  value="<%=rs("email")%>" size="20"> 
        <font color="#0000FF">*</font></td>
    </tr>
    <tr align="center"> 
      <td align="left"><div align="right">QQ号码：</div></td>
      <td align="left"> <input name="qq" type="text" id="qq"  value="<%=Replace(rs("qq"),"-","")%>" size="12"> 
      </td>
    </tr>
    <tr align="center"> 
      <td align="left"><div align="right">主页名称：</div></td>
      <td align="left"> <input name="pagename" type="text"  value="<%=rs("pagename")%>" size="20"> 
        <font color="#0000FF">*</font></td>
    </tr>
    <tr align="center"> 
      <td align="left"><div align="right">网　址：</div></td>
      <td align="left"> <input name="pageurl" type="text"  value="<%=rs("pageurl")%>" size="50"> 
        <font color="#0000FF">*</font></td>
    </tr>
    <tr align="center">
      <td align="left"><div align="right">请输入密码确认修改：</div></td>
      <td align="left"><input type="password" name="Pwd"></td>
    </tr>
    <tr align="center"> 
      <td align="left">&nbsp;</td>
      <td align="left"> <input type="submit" name="Submit2" value="修　改" >
        　 
        <input type="reset" name="Submit22" value="取　消" > </td>
    </tr>
  </form>
</table>
<%End If%>
        <%If Action="passwordanswermodify" Then%>
        <%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1%>
<table width="98%" align="center" class="tba">

          <form name="form3" method="post" action="?Action=passwordanswermodifysave">
<tr class="tba_tr_1">
              <td height="19" colspan="2"> <div align="center"><strong>修改密码提示和答案(带*为必填项）</strong></div></td>
            </tr>
            <%If Rs("passwordask")<>"-" Then%>
            <tr align="center"> 
              <td align="left"><div align="right">原密码提示问题：</div></td>
              <td align="left"><%=Rs("passwordask")%></td>
            </tr>
            <tr align="center"> 
              <td align="left"><div align="right">原密码回答答案：</div></td>
              <td align="left"><input name="passwordanswer_old" type="text" id="passwordanswer" size="20">
                <font color="#0000FF">*</font>(请输入原答案确认要修改为以下新提示和答案)</td>
            </tr>
            <%End If%>
            <tr align="center"> 
              <td width="150" align="left"><div align="right">新密码提示问题：</div></td>
              <td width="654" align="left"> 
                <input name="passwordask_new" type="text" id="passwordask" size="20">
                <font color="#0000FF">*</font> </td>
            </tr>
            <tr align="center"> 
              <td align="left"><div align="right">新密码回答答案：</div></td>
              <td align="left"> 
                <input name="passwordanswer_new" type="text" id="passwordanswer" size="20">
                <font color="#0000FF">*</font></td>
            </tr>
            <tr align="center"> 
              <td align="left">&nbsp;</td>
              <td align="left"> 
                <input type="submit" name="Submit23" value="修　改" >
                　 
                <input type="reset" name="Submit222" value="取　消" >
                </td>
            </tr>
          </form>
        </table>
        <%End if%>
        <%If Action="stylelist" Then%>
<%
 If Session("CFCountUser_View")<>"" Then'为独立查看者时
  Call AlertBack("独立查看者无法对此操作",1)
 End If
%>
<%
Call GetCurrWeb()
IF not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
 Page=1
Else
 Page=Int(Abs(Request("Page")))
End If

MyPageSize=10
MyPageSize2=10

If RsSet("StyleTotal") Mod MyPageSize=0 Then
 TotalPage=RsSet("StyleTotal")/MyPageSize
Else
 TotalPage=Int(RsSet("StyleTotal")/MyPageSize)+1
 If Page=TotalPage Then
 MyPageSize2=RsSet("StyleTotal") Mod MyPageSize
 End If
End If
I=1
%>
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1%>

<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
            <td align="center"> <p align="center">样式代码</td>
            <td align="center">选择你喜欢的计数器样式</td>
          </tr>
          <form name="form4" method="post" action="?Action=stylemodifysave">
            <%While I<=MyPageSize2%>
            <tr> 
              <td align="center"> <div align="right">
                  <%K=(Page-1)*MyPageSize+I%>
                  <input name="style" type="radio" value="<%=k%>"<%If Rs("Style")=K Then Response.Write " Checked"%>>
                </div></td>
              <td align="center">
<div align="left"><%For J=0 to 9%><img src="CounterPic/<%=K%>/<%=J%>.gif"><%Next%></div></td>
            </tr>
            <%
I=I+1
Wend%>
            <tr>
              <td align="center"><div align="right">确认使用此样式：</div></td>
              <td align="center"><div align="left">
                  <input type="checkbox" name="CounterShow" value="-1"<%If Rs("CounterShow")=-1 Then Response.Write " checked"%>>是
                </div></td>
            </tr>
            <tr> 
              <td align="center">&nbsp; </td>
              <td align="center"> <div align="left"> 
                  <input type="submit" name="Submit3" value="确定">
                </div></td>
            </tr>
          </form>
          <tr> 
            <td colspan="2" align="center"><table border="0" align="center" cellpadding="0" cellspacing="2">
                <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<totalpage   then%>
                      <a href='?action=<%=action%>&page=<%=page+1%>'>下一页</a> 
                      <%
end if
%>
                      <a href="?action=<%=action%>&page=<%=totalpage%>">最后一页</a> 
                      页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页</div></td>
                  <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td><form name="form1" method="post" action="jczx.asp">
                            <div align="left"> 
                              <Select  name="page" size="1" class=smallselsect id="select" 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>
                            </div>
                          </form></td>
                      </tr>
                    </table></td>
                </tr>
              </table></td>
          </tr>
          <tr align="center" valign="top"> 
            <td colspan="2" align="left" class="td_1"><strong>你的计数器效果</strong> 
            </td>
          </tr>
          <tr align="center" valign="top"> 
            <td colspan="2" align="left" class="td_1">Script调用： 
            </td>
          </tr>
          <tr align="center" valign="top"> 
            <td colspan="2" align="left" class="td_1"><script src="<%=Tmp%>cf.asp?UserName=<%=Rs("UserName")%>"></script></td>
          </tr>
        </table>
<%end if%>

<%If Action="getcode" Then%>

<script language=javascript>
function copy(ob){
var obj=findObj(ob); if (obj) { 
obj.select();js=obj.createTextRange();js.execCommand("Copy");}
alert('成功将代码复制到剪贴板中！');
}
function cut(ob){
var obj=findObj(ob); if (obj) { 
obj.select();js=obj.createTextRange();js.execCommand("Cut");}
}
function findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}
//-->
</script>
   
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
    <td class="td_1"><div align="center"><strong>获得计数器代码及计数器预览</strong></div></td>
  </tr>
  <tr align="center"> 
    <td align="left" class="td_1">两种代码方式可供选择：<input type="submit" name="Submit5" value="Script脚本方式调用" onclick="location.href='?Action=getcode'"> 
      <input type="submit" name="Submit6" value="Img非脚本方式调用" onclick="location.href='?Action=getcode_2'"></td>
  </tr>
  <tr align="center"> 
    <td align="left" class="td_1"><strong>Script脚本方式调用</strong>，此方式适合放在自己的网站页面上，有几十种图片样式可以选择，请在菜单"<a href="?Action=stylelist" target="_blank">计数器设置>>图片样式选择</a>"里选择!设置计数器的一些参数请在请在菜单"<a href="?Action=jsqset" target="_blank">计数器设置>>参数设置</a>"里设置，打造你满意计数器!</td>
  </tr>
  <tr align="center"> 
    <td align="left" class="td_1">以下方框内是你的计数器代码,script调用方式，请复制后插入到网页源代码里:<br> 
      <textarea name="countercode1" cols="50" rows="4"><script src="<%=Tmp%>cf.asp?username=<%=UserName%>"></script></textarea> 
      <input type="submit" name="Submit4" value="复制" onClick=copy('countercode1')> 
      <br>
      你的设置的计数器script方式调用预览： <br> <script src="<%=Tmp%>cf.asp?username=<%=UserName%>"></script> 
    </td>
  </tr>
</table>
<%end if%>

<%If Action="getcode_2" Then%>

<script language=javascript>
function copy(ob){
var obj=findObj(ob); if (obj) { 
obj.select();js=obj.createTextRange();js.execCommand("Copy");}
alert('成功将代码复制到剪贴板中！');
}
function cut(ob){
var obj=findObj(ob); if (obj) { 
obj.select();js=obj.createTextRange();js.execCommand("Cut");}
}
function findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}
//-->
</script>
   
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
    <td class="td_1"><div align="center"><strong>获得计数器代码及计数器预览</strong></div></td>
  </tr>
  <tr align="center"> 
    <td align="left" class="td_1">两种代码方式可供选择：<input type="submit" name="Submit5" value="Script脚本方式调用" onclick="location.href='?Action=getcode'"> 
      <input type="submit" name="Submit6" value="Img非脚本方式调用" onclick="location.href='?Action=getcode_2'"></td>
  </tr>
  <tr align="center"> 
    <td align="left" class="td_1"><strong>Img非脚本方式调用</strong>，此方式适合放在不是自己网站的网页上，Img非脚本方式计数器可以在任何能插入图片的地方使用,不过此调用方式的计数器功能少一些，只有一种固定图片样式！</td>
  </tr>
  <tr align="center"> 
    <td align="left" class="td_1">以下方框内是你的计数器代码，Img调用方式，请复制后插入到网页源代码里,这种方式调用你可以把你的计数器看做是一个图片，图片地址是<a href="<%=Tmp%>cf.asp?username=<%=UserName%>&assort=1" target="_blank"><%=Tmp%>cf.asp?username=<%=Rs("UserName")%>&assort=1</a>你甚至可以把此地址当作图片论坛发贴时插入，一样记数的,设置隐藏时显示数为0！<br> <textarea name="countercode2" cols="50" rows="6" id="textarea"><a href="<%=Tmp%>Index.asp" target="_blank"><img src="<%=Tmp%>cf.asp?username=<%=UserName%>&assort=1" border="0" title="<%=server.HTMLEncode(GetUnicode(RsSet("Title")))%>"></a></textarea> 
      <input type="submit" name="Submit4" value="复制" onClick=copy('countercode2')> 
      <br> <a href="<%=Tmp%>Index.asp" target="_blank"><img src="<%=Tmp%>cf.asp?UserName=<%=UserName%>&assort=1" border="0" title="<%=RsSet("Title")%>"></a> 
  </tr>
</table>
<%end if%>