adminedit.asp

校园管理系统。电子商务类的

<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<%
Dim StrConnect
Dim objRec
Dim objRec2
Dim objCommand
Dim strSQL
Dim CatTitle
Dim CatID

pass="admin"
id = Request.QueryString("id")
img = Request.QueryString("img")
pasin = Request.QueryString("pass")
desc2 = Request.QueryString("desc2")
root = Request.QueryString("root")
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db/image.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Dim objConn

	Set objConn = Server.CreateObject ("ADODB.Connection")
	Set objRec2 = Server.CreateObject ("ADODB.Recordset")
	objConn.Open strconnect
objRec2.Open "image", objConn, 0, 2, 2


if not id = "" and img = "" then

	objRec2.Filter = "id = " & id
	
	%><form action="adminedit.asp"><input type="hidden" value="<%=id%>" name="id"><textarea cols="20" rows="6" name="desc2">description: <%=objRec2("desc2")%></textarea><br><Br><input type="text" width=20 value="<%=objRec2("img")%>" name="img">
	<br><Br>root: <input type="text" name="root"><br><br><input type="text" width=20 value="password?" name="pass"><br><br><input type="submit"><%
end if

if not img = "" and not id = "" then

if not pasin <> pass then
objRec2.Filter = "id = " & id
	objRec2("img") = img
	objRec2("desc2") = desc2
	objRec2("root") = root
	objRec2.Update
	%>ok updated!<br><a href="admin.asp">back</a><%
else
%>wrong password!<br><a href="adminedit.asp?id=<%=id%>">back</a><%
end if	
	
end if


  %>
</TABLE>  
  <%      				
	  objRec2.Close  
          set objRec2 = Nothing

	  objConn.Close
	  set objConn = Nothing
	%>
</BODY>
</HTML>