wangzhanguanli.asp

来自「健康哈师大恺撒奖互动了看见爱好思路委屈戊二醛 问起我iuoeyioquweqwi」· ASP 代码 · 共 440 行 · 第 1/2 页

          <br>
          <br>
          <input name="p1" type="text" class="an" id="p1" value="<%=Rs("p1")%>" size="70">
          <br>
          <br>
          <input name="p2" type="text" class="an" id="p2" value="<%=Rs("p2")%>" size="70">
          <br>
          <br>
          <input name="link" type="text" class="an" id="link" value="<%=Rs("link")%>" size="70">
          <br>
          <br>
          <br>
          <input name="dd" type="radio" class="an" value="1" checked>
        保存   
        <input name="dd" type="radio" class="an" value="2">
        新增   
        <input name="dd" type="radio" class="an" value="3">
        删除 <br>   
        <br>
        <input name="Submit" type="submit" class="an" value="提交">
        </form>
        <%
end if
case "xq"
if request("dd")<>"" then 
    set Rs=GrateRs("select * from Asai_YCWX where id="&id,3)
    select case request("dd")
    case 1
	  Rs("title")=request("title")
      Rs("content")=request("content")
      Rs("Encode")=request("Encode")
      Rs("hot")=request("hot")
      Rs("review")=request("review")
      Rs("click")=request("click")
      response.write "更新成功"
    case 2
      Rs.addnew
	  Rs("title")=request("title")
      Rs("content")=request("content")
      Rs("Encode")=request("Encode")
      Rs("hot")=request("hot")
      Rs("review")=request("review")
      Rs("click")=request("click")
 	  response.write "更新成功"
	case 3
 	  Rs.delete
	  response.write "删除成功"
	  id=""
	end select
	Rs.update
	response.write("<br>")
end if
set Rs=GrateRs("select * from Asai_YCWX",1)
do while not Rs.eof 
   response.write ("<a href='WangzhanGuanli.asp?class=xq&id="&Rs("id")&"'>"&Rs("title")&"</a>&nbsp;&nbsp;&nbsp;")
   Rs.movenext
loop
if id<>"" then 
set Rs=GrateRs("select * from Asai_YCWX where id="&id,1)
%>
        <form name="form4" method="POST" action="<%="WangzhanGuanli.asp?class=xq&id="&Rs("id")%>" style="border: 1px dotted #54C940">
          标题：<input name="title" type="text" class="an" id="title" value="<%=Rs("title")%>" size="66">
          <br>
          推荐：<label>
                  <input type="radio" name="hot" value="0" <%if rs("hot")=0 then response.write " checked"%> checked>诗歌</label>
                  <label>
                  <input type="radio" name="hot" value="1" <%if rs("hot")=1 then response.write " checked"%> >小说</label>
                  <label>
                  <input type="radio" name="hot" value="2" <%if rs("hot")=2 then response.write " checked"%> >日记</label>
                  <label>
                  <input type="radio" name="hot" value="3" <%if rs("hot")=3 then response.write " checked"%> >其他</label>
<br>
          <textarea name="content" cols="70" rows="20" class="an" id="content"><%=Rs("content")%></textarea><br><br><textarea name="review" cols="70" rows="12" class="an" id="review"><%=Rs("review")%></textarea>
          <br>
          浏览次数：<input name="click" type="text" class="an" id="click" value="<%=Rs("click")%>" size="20"><br>
          编码方式：<select size="1" type="text" class="an" name="EnCode">
        <option value="self" <%if trim(rs("EnCode"))="self" or trim(rs("Encode")) ="" then Response.Write "selected"%>>默认方式</option>
        <option value="html" <%if trim(rs("EnCode"))="html" then Response.Write "selected"%>>Html</option>
        <option value="ubb"  <%if trim(rs("EnCode"))="ubb" then Response.Write "selected"%>>UBB</option>
      </select>
          <br>
          <br>
        	操作功能：<input name="dd" type="radio" class="an" value="1" checked>
        保存   
        <input name="dd" type="radio" class="an" value="2">
        新增   
        <input name="dd" type="radio" class="an" value="3">
        删除 <br>   
        <br>
        <input name="Submit0" type="submit" class="an" value="提交">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <input type=reset class="an" value="重写">
        </form>
        <p>
          <%
end if
case "book"
      dim cc
	  cc=4
	  pag=request("pag")
	  if pag="" then pag=0
	  select case act
	  case "delete"
	      set Rs=GrateRs("select * from Asai_LYBZ where id="&id,3)
		  Rs.delete
		  Rs.update
	  case "re"	 
         set Rs=GrateRs("select * from Asai_LYBZ where id="&id,1) 
	  %>
      </p>
        <form name="form6" method="post" action="<%="WangzhanGuanli.asp?class=book&action=update&id="&id%>">
          <textarea name="re" cols="70" rows="5" class="an" id="re"><%=Rs("re")%></textarea><br>
<br>

          <input name="Submit" type="submit" class="an" value="提交">
        </form><br>
<br>
<br>

        <p>	    <%
      case "update"
	        set Rs=GrateRs("select * from Asai_LYBZ where id="&id,3)
			Rs("re")=request("re")
			Rs.update
	  end select
	  
	  
	  
	  set Rs=GrateRs("select * from Asai_LYBZ",1)
      if not Rs.eof then Rs.movelast
      for i = 1 to pag*cc
       Rs.moveprevious
      if Rs.eof then exit for
       next	   
       i=0
		  do while not Rs.bof
              response.Write("&nbsp;&nbsp;&nbsp;&nbsp;◇&nbsp;"&ReplStr(Rs("content")))
              response.Write("<div align='right'>留言人:"&Rs("name")&"&nbsp;&nbsp;<br>"&Rs("date")&"&nbsp;&nbsp;</div>")
              if trim(Rs("re"))="0" then 
                  response.write("<br>")
                else
                  response.Write("<font color=#88B880>&nbsp;&nbsp;&nbsp;&nbsp;[回复:"&Rs("re")&"]</font><br><br>")
               end if
			      response.Write("<a href=WangzhanGuanli.asp?class=book&action=delete&id="&Rs("id")&">删除</a>&nbsp;")
			      response.Write("<a href=WangzhanGuanli.asp?class=book&action=re&id="&Rs("id")&">回复</a>&nbsp;&nbsp<hr><br>")
		      i=i+1
		      if i=cc then exit do
		      Rs.moveprevious
		     loop
			 response.write("<br>共"&int(Rs.recordcount/cc)+1&"页,第"&pag+1&"页&nbsp;&nbsp;")
			 response.write("<a href=WangzhanGuanli.asp?class=book&pag=0>第一页</a>&nbsp;&nbsp;")
 			 if not pag=0 then 
			 response.write("<a href=WangzhanGuanli.asp?class=book&pag="&pag-1&">上一页</a>&nbsp;&nbsp;")
		     else
			  response.write("上一页&nbsp;&nbsp;")
			 end if
 			 if not Rs.bof then 
			 response.write("<a href=WangzhanGuanli.asp?class=book&pag="&pag+1&">下一页</a>&nbsp;&nbsp;")
		     else
			  response.write("下一页&nbsp;&nbsp;")
			 end if
 			 response.write("<a href=WangzhanGuanli.asp?class=book&pag="&int(Rs.recordcount/cc)&">最后一页</a>&nbsp;&nbsp;")

case "change"
if act="submit" then 
%>
          <!--#include file="abc/As_md5.asp"-->
          <%
session("username")=request("username")
session("password")=md5(request("password"))
%>
          <!--#include file="abc/As_check.asp"-->
          <%
call ConnectionDatabase
set Rs=GrateRs("select * from Asai_ASGL",3)
Rs("username")=request("newname")
Rs("password")=md5(request("newpass"))
session("username")=request("newname")
session("password")=md5(request("newpass"))
Rs.update
response.write "密码修改成功!"
end if
%>
                        </p>
        <form name="form5" method="post" action="WangzhanGuanli.asp?class=change&action=submit">
          <input name="username" type="text" class="an" id="username" size="20">
          现在的用户名字<br>
          <input name="password" type="password" class="an" id="password" size="20">
          现在的用户密码<br>
          <input name="newname" type="text" class="an" id="newname" size="20">
          新的用户名字<br>
          <input name="newpass" type="password" class="an" id="newpass" size="20">
          新的用户密码<br>
          <input name="Submit" type="submit" class="an" value="提交">
        </form>
        <p>
          <%
end select
call DBConnEnd
%>
        </p>
        <table width="100%" height="3"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="3" bgcolor="#009933"></td>
          </tr>
        </table>
        
      <div align="center">
<script language=javascript src=abc/As_Count.Asp?AsaiTj=2></script>

<br>
		版权所有:阿赛工作室 QQ:4941172</div>
        <table width="100%" height="3"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="3" bgcolor="#009933"></td>
          </tr>
      </table></td>
  </tr>
</table>
</body>
</html>