www.gusucode.com > 书生图片管理Asp源码程序 > code/addarticle.asp
<!--#include file="articleconn.asp"--> <!--#include file="home1.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>创建页</title> <script language="javascript"> if(top.frames.length == 0) { document.location = "mimi.asp"; } else { if(parent.ryan_bar) { } else { parent.location = "mimi.asp"; } } </script> <link rel="stylesheet" type="text/css" href="css/style.css"> </head> <body topmargin="20" leftmargin="15" bgcolor="#FFFFFF" > <form method="POST" action="savearticle.asp"> <div align="center"><center> <table border="1" cellspacing="2" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF"> <tr bgcolor="#006cd9"> <td width="100%" height="20"> <p align="center"><b><font color="#FFFFFF"><%=rs("home")%>添加图片页</font></b> </td> </tr> <tr align="center"> <td width="100%"> <table border="0" cellspacing="1" width="100%"> <tr> <td> <div align="center">图片名称:</div> </td> <td width="85%" height="30"> <input type="text" name="title" size="20" class="smallinput" maxlength="255"> 选写字段,填写后,才能有图片搜索功能。 </td> </tr> <tr> <td> <div align="center">图片分类:</div> </td> <td width="85%" height="30"> <select class="smallSel" name="typeid" size="1"> <% dim rs,sql,sel set rs=server.createobject("adodb.recordset") sql="select * from type" rs.open sql,conn,1,1 do while not rs.eof sel="selected" response.write "<option " & sel & " value='"+CStr(rs("typeID"))+"' name=typeid>"+rs("type")+"</option>"+chr(13)+chr(10) rs.movenext loop rs.close %> </select> </td> </tr> <tr> <td> <div align="center">缩图地址:</div> </td> <td width="85%" height="30"> <input type="text" name="images" size="70" class="smallinput" maxlength="255"> <font color="#FF0000" size="3">*</font> </td> </tr> <tr> <td> <div align="center">图片地址:</div> </td> <td width="85%"> <input type="text" name="images1" size="70" class="smallinput" maxlength="255"> <font color="#FF0000" size="3">*</font> </td> </tr> </table> </td> </tr> </table> <table width="600" cellspacing="0" cellpadding="0" border="0"> <tr> <td><img src="IMAGES/bian.gif" width="600" height="13"></td> </tr> </table> </center></div><div align="center"><center><p><input type="submit" value=" 添 加 " name="cmdok" class="buttonface"> <input type="reset" value=" 清 除 " name="cmdcancel" class="buttonface"></p> </center></div> </form> <div align="center"> <p>以上代 <font color="#FF0000" size="3">*</font> 为必填写</p> <p><a href="manage.asp"><font face="Webdings" size="4">7</font>返回管理页面</a> </p> </div> </body> </html>