admin_load.asp

个人网站系统 毕业论文 大家可以借鉴下

<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<script laguage="javascript">
<!--
function form1_onsubmit()
{
if (document.form1.dy_title.value=="")
    {
      alert("请输入图片主题！")
      document.form1.dy_title.focus()
      return false
     }
else if(document.form1.dy_content.value=="")
    { 
      alert("没有图片路径！")
      document.form1.dy_content.focus()
      return false
     }
	 }
-->
</script>

<form name="form_name" method="POST" action="admin_load.asp" onsubmit="return form1_onsubmit()">
  <table width="500" height="195" border="0" cellpadding="0" cellspacing="0">
    <tr align="center"> 
      <td height="34" colspan="2">图片上传管理</td>
    </tr>
    <tr> 
      <td width="120" height="32" align="right">标题：</td>
      <td width="380"><input name="dy_title" type="text" id="dy_title" size="20"></td>
    </tr>
    <tr> 
      <td height="104" align="right">路径：</td>
      <td><textarea name="dy_content"  cols="30" rows="5" id="dy_path"></textarea></td>
    </tr>
    <tr align="center"> 
      <td colspan="2"><input type="submit" name="Submit" value="提交">
        　 <input type="hidden" name="sub" value="sub1">
        <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>
  </form>
<table width="605" height="27" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="105" align="right">上传：</td>
    <td width="552"><iframe border="0" frameBorder="0" noResize scrolling="no" width="100%" src="upload.asp"></iframe>&nbsp;</td>
  </tr>
</table>
<%if request.Form("sub")="sub1" then
dy_title=request.Form("dy_title")
dy_content=request.Form("dy_content")
if dy_title="" or dy_content="" then%>
<script language="JavaScript">
alert("不能为空！")
history.go(-1)
</script>
<%else
set rs=server.CreateObject("adodb.recordset")
sql="select * from dy_load"
rs.open sql,conn,3,3
rs.addnew
rs("dy_title")=dy_title
rs("dy_content")=dy_content
rs.update
%><script language="JavaScript">
   alert("图片上传成功！")
   window.location.href("pic.asp")
   </script>
   <%
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
   end if
   end if
   %>