edit.asp

很好的一个学生成绩管理系统

<%if Session.Contents("thegbmaster")="enshi" then%>
<%
dim id
id=Request("id")
If id="" Then
response.write "非法的请求"
Else
%>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("hljcar.com.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM c1 where id="+id
rs.Open sql,conn,3,2
%>
<link rel="stylesheet" href="css.css">
<form method="post" action="save.asp?id=<%=request("id")%>" name="Form1">
  <table width="581" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="278">生产厂家： 
        <input name="cj" type="text" id="cj" value="<%=rs("cj")%>"></td>
      <td width="303">车　　型： 
        <input name="cx" type="text" id="cx" value="<%=rs("cx")%>"></td>
    </tr>
    <tr> 
      <td>排　　量： 
        <input name="pl" type="text" id="pl2" value="<%=rs("pl")%>"></td>
      <td>价　　格： 
        <input name="jg" type="text" id="jg2" value="<%=rs("jg")%>"></td>
    </tr>
    <tr> 
      <td>经 销 商： 
        <input name="mc" type="text" id="mc2" value="<%=rs("mc")%>"></td>
      <td>车型介绍： 
        <input name="dh" type="text" id="dh2" value="<%=rs("dh")%>"></td>
    </tr>
    <tr> 
      <td height="16">&nbsp;</td>
      <td><input type="submit" name="Submit" value="修改"> <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>
  <P>
</FORM>
<%end if%>
<%
Else
response.redirect "login.asp"
end if%>