add.asp

来自「校园管理系统。电子商务类的」· ASP 代码 · 共 23 行

<%
Dim strSQL
Dim objConn
Dim objRec2
Dim StrConnect
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db/image.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Set objConn = Server.CreateObject ("ADODB.Connection")
Set CmdMC = Server.CreateObject("ADODB.Recordset")	
objConn.Open strConnect
SQL = "SELECT cat, ID, catname, root, desc2, catid, img FROM image order by cat"
CmdMC.Open SQL, objConn 

%><form action="addlink.asp">cat. :<select name="cate"><%
do while not CmdMC.eof

if not CmdMC("cat")<> 1 then

%><option value="<%=CmdMC("catid")%>"><%=CmdMC("catname")%></option><%
end if
CmdMC.movenext 
Loop
%></select><br><br>img: <input type="text" name="img"><br><br>root: <input type="text" name="root"><br><br>
<textarea name="desc" cols="20" rows="6">description</textarea><br><br>pass :<input type="text" name="pass"><Br><Br><input type="submit"></form>