edit.asp

来自「这个东东是在一个网上有原码。属于改进版。其中90%是我加上 去的原来只有在线答题」· ASP 代码 · 共 57 行

ASP
57 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<% 
if  session("pass")<>1 then
    response.redirect "login.asp"
end if
 %>
<body>
 <% Set conn = Server.CreateObject("ADODB.Connection")
  conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("exercise.mdb")
  set rs= server.createobject("adodb.recordset") 
   sql="select * from test where id="&Request("id")

  Set rs=conn.Execute(sql)
  %>
<form action="save.asp">
<input name="id" type="hidden" value=<%=rs("id") %>>
<table width="91%" border="1" cellpadding="0" cellspacing="0">
  <tr> 
      <td width="83%">考题：
        <input name="q" type="text" value="<%=rs("question") %>"> 
        
        答案：
        <input name="ans" type="text" value="<%=rs("ans") %>">
        </td>
    <td width="17%"><input name="Submit" type="submit" value="修改"></td>
  </tr>
  <tr> 
      <td height="21" colspan="2">A: 
        <input name="a" type="text" value="<%=rs("a") %>">
        </td>
  </tr>
  <tr> 
      <td colspan="2">B:
        <input name="b" type="text" value="<%= rs("B") %>">
        </td>
  </tr>
  <tr> 
      <td colspan="2">C:
        <input name="c" type="text" value="<%= rs("c") %>">
        </td>
  </tr>
  <tr> 
      <td colspan="2">D:
        <input name="d" type="text" value="<%= rs("d") %>">
        </td>
  </tr>
</table><br>
  <a href="adm.asp">点击返回</a>
</form>
</body>
</html>

edit.asp - 源码说明

本页面展示了「这个东东是在一个网上有原码。属于改进版。其中90%是我加上 去的原来只有在线答题」中的 edit.asp 源码文件，采用 ASP 编程语言编写，共 57 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与90%相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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