adminquestion.asp

问吧程序 问吧程序 问吧程序 问吧程序

<%if session("admin")="" then
response.write"你没有登陆或是非法用户!<meta http-equiv=refresh content='1;url=../index.asp'>"
response.End()
end if%>
<!--#include file=conn.asp-->
<link href=../style.css rel=stylesheet type=text/css>
<table width="80%" align="center" cellpadding="0" cellspacing="1" border="0" bgcolor="aaaaaa">
  <tr bgcolor="#eeeeee">
    <td height=30 colspan="7" align="center"><font style="font-size:14px">修改、删除问题</font></td>
  </tr>
  <%if request("del")="删除" then
  rs.open"select * from question where id="&cint(request("id")),conn,1,3
  rs2.open"select * from reply where replyid="&cint(request("id")),conn,1,3
  while not rs2.eof 
  '修改解决数和回复数、积分
  rs3.open"select * from person where name='"&rs2("replyer")&"'",conn,1,3
  if rs2("isdeal")=1 then
  rs3("helpnum")=rs3("helpnum")-1
  rs3("replynum")=rs3("replynum")-1
  rs3("jifen")=rs3("jifen")-11
  temp=rs3("jifen")-11
  else
  rs3("replynum")=rs3("replynum")-1
  rs3("jifen")=rs3("jifen")-1
  temp=rs3("jifen")-1
  end if
          if temp<1000 then
		  rs3("touxian")="小孩子"
	      elseif temp>=1000 and temp<3000 then
		  rs3("touxian")="小朋友"
		  elseif temp>=3000 and temp<6000 then
		  rs3("touxian")="小学生"
		  elseif temp>=6000 and temp<10000 then
		  rs3("touxian")="中学生"
		  elseif temp>=10000 and temp<15000 then
		  rs3("touxian")="大学生"
		  elseif temp>=15000 and temp<21000 then
		  rs3("touxian")="硕士生"
		  elseif temp>=21000 and temp<28000 then
		  rs3("touxian")="博士生"
		  elseif temp>=28000 and temp<36000 then
		  rs3("touxian")="博士后"
		  elseif temp>=36000 then
		  rs3("touxian")="科学家"
		  end if
  rs3.update
  rs3.close
  '
  rs2.delete
  rs2.movenext
  wend
  rs2.close
  '修改发表问题数、积分
  rs3.open"select * from person where name='"&rs("sender")&"'",conn,1,3
  rs3("asknum")=rs3("asknum")-1
  rs3("jifen")=rs3("jifen")+1
  temp=rs3("jifen")+1
  if temp<1000 then
		  rs3("touxian")="小孩子"
	      elseif temp>=1000 and temp<3000 then
		  rs3("touxian")="小朋友"
		  elseif temp>=3000 and temp<6000 then
		  rs3("touxian")="小学生"
		  elseif temp>=6000 and temp<10000 then
		  rs3("touxian")="中学生"
		  elseif temp>=10000 and temp<15000 then
		  rs3("touxian")="大学生"
		  elseif temp>=15000 and temp<21000 then
		  rs3("touxian")="硕士生"
		  elseif temp>=21000 and temp<28000 then
		  rs3("touxian")="博士生"
		  elseif temp>=28000 and temp<36000 then
		  rs3("touxian")="博士后"
		  elseif temp>=36000 then
		  rs3("touxian")="科学家"
		  end if
  rs3.update
  rs3.close
  '
  rs.delete
  rs.close
  response.write"<tr><td bgcolor=ffffff colspn=7>问题删除成功!</td></tr><meta http-equiv=refresh content='1;url=adminquestion.asp'>"
  response.End()
  end if%>
  <!--'修改问题
  <%if request("up2")="修改" then
  if request("title")="" then
  response.write"<tr><td bgcolor=ffffff colspan=7>问题标题不能为空!<a href=javascript:history.back()>返回</a></td></tr>"
  response.End()
  elseif request("content")="" then
  response.write"<tr><td bgcolor=ffffff colspan=7>问题内容不能为空!<a href=javascript:history.back()>返回</a></td></tr>"
  response.End()
  else
  rs.open"select * from question where id="&cint(request("id")),conn,1,3
  rs("title")=request("title")
  rs("content")=request("content")
  rs.update
  rs.close
  response.write"<tr><td bgcolor=ffffff colspan=7>问题修改成功!</td></tr><meta http-equiv=refresh content='1;url=adminquestion.asp'>"
  response.End()
  end if
  end if%>
  <%if request("up")="修改" then
  rs.open"select * from question where id="&cint(request("id")),conn,1,1%>
  <form method=post action=adminquestion.asp?id=<%=cint(request("id"))%>><tr><td bgcolor=ffffff colspan="7">标题:
    <input name="title" type="text" id="title" size="12" value=<%=rs("title")%>><br>内容:<br>
    <textarea name="content" cols="40" rows="10" id="content"><%=rs("content")%></textarea><br>
    <input name="up2" type="submit" id="up2" value="修改">
    <input name="reset" type="reset" id="reset" value="重写">
	</td></tr></form>
	<%rs.close
	response.End()
	end if%>
	-->
  <tr bgcolor="#FFFFFF">
    <td>标题</td>
    <td>主题</td>
    <td>浏览数</td>
    <td>回复数</td>
    <td>发布者</td>
    <td>发布时间</td>
    <td>操作</td>
  </tr>
  <%rs.open"select * from question order by id desc",conn,1,1
  if rs.eof then%>
  <tr bgcolor="#FFFFFF">
    <td colspan="7">暂时没有问题!</td>
  </tr>
  <%else
  maxnum=rs.recordcount
  rs.pagesize=15
  maxpage=rs.pagecount
  if request("p")="" then
  p=1
  else
  p=cint(request("p"))
  end if
  if p>maxpage then
  p=maxpage
  end if
  if p=0 then
  p=1
  end if
  if p<>1 then
  rs.move (p-1)*rs.pagesize
  end if
  for i=1 to rs.pagesize%>
  <tr bgcolor="#FFFFFF">
    <form method=post action=adminquestion.asp?id=<%=rs("id")%>>
    <td><a href=../showquestion.asp?id=<%=rs("id")%> target=_blank><%=rs("title")%></a></td><td><%=rs("topic")%></td><td><%=rs("views")%></td><td><%=rs("replys")%></td><td><%=rs("sender")%></td><td><%=rs("sendtime")%></td><td><!--'修改按钮<input name="up" type="submit" id="up" value="修改">-->
	<input name="del" type="submit" id="del" value="删除"></td>
	</form>
  </tr>
  <%rs.movenext
  if rs.eof then exit for
  next%>
  <tr><td bgcolor=eeeeee colspan=7 height=30>问题数<font color=red><%=maxnum%></font> 15个每页 页次:<font color=red><%=p%></font>/<%=maxpage%>
  <a href=adminquestion.asp?p=1>首页</a>
  <a href=adminquestion.asp?p=<%=p-1%>>上页</a>
  <a href=adminquestion.asp?p=<%=p+1%>>下页</a>
  <a href=adminquestion.asp?p=<%=maxpage%>>尾页</a></td></tr>
  <%end if
  rs.close%>
</table>
<!--'添加问题
<br><form method=post action=adminquestion.asp>
<table width="80%"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EEEEEE">
  <tr>
    <td align="center"><font style="font-size:14px">添加问题</font></td>
  </tr>
  <tr>
    <td><%if request("add")="添加" then
	if request("topic")="" then
	response.write"分类不能为空!<meta http-equiv=refresh content='1;url=adminquestion.asp'>"
	response.End()
	elseif request("title")="" then
	response.write"标题不能为空!<meta http-equiv=refresh content='1;url=adminquestion.asp'>"
	response.End()
	elseif request("content")="" then
	response.write"内容不能为空!<meta http-equiv=refresh content='1;url=adminquestion.asp'>"
	response.End()
	else
	rs.open"select * from question",conn,1,3
	rs.addnew
	rs("topic")=request("topic")
	rs("title")=request("title")
	rs("content")=request("content")
	rs("sendtime")=now
	rs.update
	rs.close
	response.write"问题添加成功!<meta http-equiv=refresh content='1;url=adminquestion.asp'>"
	response.End()
	end if
	end if%>
	<p>问题分类:
	  <select name="topic">
	  <%rs.open"select * from assort",conn,1,1
	  while not rs.eof%><option value=<%=rs("topic")%>><%=rs("topic")%></option>
	  <%rs.movenext
	  wend
	  rs.close%>
	    </select>
	  <br>
	  <br>
	  问题标题:
          <input name="title" type="text" id="title" size="12">
          <br>
          <br>
          问题内容:
          <textarea cols="40" rows="10" name="content"></textarea>
          <br>
          <input name="add" type="submit" id="add" value="添加">
          <input name="reset" type="submit" id="reset" value="重写">
    </p>
	</td>
  </tr>
</table></form>-->