www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\admin\add_word.asp
<link href="admin.css" rel="stylesheet" type="text/css">
<%
if session("level")<>"1" then
Response.Write("你无权访问此页面！")
Response.End
end if
%>
<!--#INCLUDE FILE="conn.asp"-->
<%
hidden=trim(request("hidden"))
if hidden="ok" then
word_type=trim(request("word_type"))
word_name=trim(request("word_name"))
word_pic=trim(request("word_pic"))
word_flash=trim(request("word_flash"))
word_url=trim(request("word_url"))
word_content=request("word_content")
status=trim(request("status"))
width=trim(request("width"))
height=trim(request("height"))
set rs=server.createobject("adodb.recordset")
sql="select * from word"
rs.Open sql,conn,1,3
rs.addnew
rs("word_type")=word_type
rs("word_name")=word_name
rs("word_pic")=word_pic
rs("word_flash")=word_flash
rs("word_url")=word_url
rs("word_content")=word_content
rs("status")=status
rs("width")=width
rs("height")=height
rs.update
if err.number<>0 then
Response.Write("<script language=javascript>alert('添加失败，请点击返回');history.back();</script>")
Response.End
else
Response.Redirect "manage_word.asp"
Response.End
end if
end if
%>
<body bgcolor="#CDD5DE">
<br><br>
<table width="75%" border="0" cellspacing="1" cellpadding="0" align="center" class="tablebody">
<tr>
<td><table width="100%" border="0" cellpadding="5" cellspacing="0">
<tr>
<th>作 品 添 加</a></span></th>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1" cellpadding="8">
<form name="add_word" method="post" action="add_word.asp">
<input type="hidden" name="hidden" value="ok">
<tr bgcolor="#F3F5F8">
<td width="30%" align="right">作 品 类 型：</td>
<td width="70%"><select name="word_type">
<option value="web">web</option>
<option value="flash">flash</option>
<option value="photoshop">photoshop</option>
</select></td>
</tr>
<tr bgcolor="#F3F5F8">
<td width="30%" align="right">是 否 显 示：</td>
<td width="70%"><input name="status" type="text" id="status" size="4" value="0"> （<font color=red>0</font> 为显示，<font color=red>1</font> 为隐藏） [ 是否显示在主页前台 ]</td>
</tr>
<tr bgcolor="#F3F5F8">
<td width="30%" align="right">作 品 名 称：</td>
<td width="70%"><input name="word_name" type="text" id="word_name" size="50"></td>
</tr>
<tr bgcolor="#F3F5F8">
<td align="right">作 品 地 址：</td>
<td><input name="word_url" type="text" id="word_url" size="50" value="http://"></td>
</tr>
<tr bgcolor="#F3F5F8">
<td align="right">图 片 地 址：</td>
<td><input name="word_pic" type="text" id="word_pic" size="40"> <input type="button" name="Submit2" value="上 传" onClick="window.open('upload_flash.asp?formname=add_word&editname=word_pic&uppath=upfile&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"></td>
</tr>
<tr bgcolor="#F3F5F8">
<td width="30%" align="right">规 格：</td>
<td width="70%">宽：<input name="width" type="text" id="width" size="6" value="0"> px 高：<input name="height" type="text" id="height" size="6" value="0"> px<br>（最大不要超过544px的宽，原始大小保持0，544×326）</td>
</tr>
<tr bgcolor="#F3F5F8">
<td align="right">flash 地 址：</td>
<td><input name="word_flash" type="text" id="word_flash" size="40"> <input type="button" name="Submit2" value="上 传" onClick="window.open('upload_flash.asp?formname=add_word&editname=word_flash&uppath=upfile&filelx=swf','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> （仅限 flash 作品）</td>
</tr>
<tr bgcolor="#F3F5F8">
<td align="right">作 品 简 介：</td>
<td><textarea name="word_content" cols="60" rows="10"></textarea></td>
</tr>
<tr bgcolor="#F3F5F8">
<td height="40" colspan="2" align="center"><input type="submit" name="Submit" value="提 交">
<input type="reset" name="Submit2" value="重 置"></td>
</tr>
</form>
</table></td>
</table>
</body>
</html>