📄 sys_addupproblem.asp

📁 直接解压即可都是asp源码超经典的啊

💻 ASP

字号:



<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
id=request.QueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from problem where id="& id &""
rs.open sql,conn,3,3
%>
<html>

<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">

<body bgcolor="#FFFFFF" text="#000000" style="background-color: #D6DFF7">
<% if request.querystring("cmd")="up" then
problemtop=request.form("problemtop")
problem=request.form("problem")
id=request.QueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from problem where id="& id &""
rs.open sql,conn,3,3
rs("problemtop")=problemtop
rs("problem")=problem
rs("date")=date()
rs.update
end if
%>
<div align="center">
  <center>

<table width="98%" border="1" cellspacing="0" cellpadding="5" bordercolor="#6687BA" style="border-collapse: collapse">
  <form name="form" method="post" action="sys_addupproblem.asp?cmd=up&id=<%=id%>">
  <tr>
      <td background="images/admin/admin_bg_1.gif"> 
        <div align="center" class="f1" >常 见 问 题 添 加</div>
    </td>
  </tr>
  <tr>
      <td> 
        <div align="center">问题标题： 
          <input name="problemtop" type="text" id="problemtop" value="<%=rs("problemtop")%>" size="49">
          <br>
          <br>
          问题内容： 
          <textarea name="problem" cols="40" rows="8" wrap="VIRTUAL" id="problem"><%=rs("problem")%></textarea>
          <br>
        </div>
    </td>
  </tr>
  <tr>
      <td> 
        <div align="center">
        <input type="submit" name="Submit" value="提交">
        <input type="reset" name="Submit2" value="重写">
      </div>
    </td>
  </tr>
  </form>
</table>
  </center>
</div>
<br>


</body>
</html>
<%
end if
rs.close
set rs=nothing
set conn=nothing %>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -