ad_bookzj.asp 凡人网络购物系统 2008源码程序 - ASP源码程序

www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_bookzj.asp
    <!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0  then
response.write "你没有这个权限!"
response.end
end if
%>
<%
if request("action")="add" then
title=request("title")
ids=request("type")
nr=request("nr")
if title="" then
response.write "<font color=ff0000>标题不能为空,<a href=# onClick=history.go(-1)>返回</a></font>"
response.end
elseif nr="" then
response.write "<font color=ff0000>内容不能为空,<a href=# onClick=history.go(-1)>返回</a></font>"
response.end
end if

set rs=server.createobject("adodb.recordset")
sql="select * from venshop_book"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("typeid")=ids
rs("nr")=nr
rs.update
rs.close
set rs=nothing
call addok(addt,"ad_bookzj.asp?typeid="&ids,"ad_booktype.asp?typeid="&ids)
end if%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form name="form" method="post" action="ad_bookzj.asp?action=add">
<tr><td colspan="3" class="sa"><b>内容增加</b></td></tr>
<tr><td bgcolor="#FFFFFF" class="s1">标题：</td>
	<td colspan="2" bgcolor="#FFFFFF" class="s1"><input type="text" name="title" size="50"></td></tr>
<tr><td bgcolor="#FFFFFF" class="s0">栏目：</td>
	<td colspan="2" bgcolor="#FFFFFF" class="s0">
<select name="type">
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_type where id="&request("typeid")&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加分类！"
response.end
else
do while not rs.eof%>
<option selected value="<%=trim(rs("id"))%>"><%=trim(rs("typename"))%></option>
<%rs.movenext
loop
end if
rs.close
set rs=nothing%></select></td></tr>
<tr><td bgcolor="#FFFFFF" class="s1">内容：</td>
	<td colspan="2" bgcolor="#FFFFFF" class="s1"><!--#include file="ad_in.asp"--></td></tr>
<tr><td colspan="3" bgcolor="#FFFFFF" align="center" class="s0"><input type="submit" value="提交信息" name="B1" class=input onClick="document.form.nr.value = frames.message.document.body.innerHTML;" >
<input name="nr" type="hidden" id="nr" value=""></td>
</tr></form></table>

<!--#include file="ad_bottom.asp"-->