<!--#include file="vvbb.asp"-->
<!--#include file="../conn.asp"-->
<!--#include file="../admin.asp"-->
<%Call head()
Call saycarda("商场-增加分类")%>

<%
cw=request("cw")
cz=request("cz")
if cz="" or cz="2"then
%>
<%if cw=1 then%>
错误：文本内容必填！<br/>
<%end if%>
<%if cw=2 then%>
错误：文本排序必填！<br/>
<%end if%>
文本内容：[支持WML]：<br/>
<input name="jj" title="文本内容：" type="text" format="*M" emptyok="true" value=""/><br/>
文本排序[小在前]：<br/>
<input name="pid" title="文本排序：" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
是否换行
<select name="br" value="0">
<option value="0">否</option>
<option value="1">是</option>
</select><br/>
<anchor title="确定提交">[确定提交]
<go href="zjwb.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;cz=1" method="post" accept-charset='utf-8'>
<postfield name="jj1" value="$(jj)"/>
<postfield name="pid1" value="$(pid)"/>
<postfield name="br1" value="$(br)"/>
<postfield name="name1" value="$(name)"/>
</go>
</anchor>
<%end if%>
<%
if cz="1" then
'-----接收数据-----
name2=00
jj2=usb(request("jj1"))
dy2=usb(request("dy1"))
pag2=5
pid2=usb(request("pid1"))
pd2=0
br2=request("br1")
if br2="" then br2="0"
dlpd2=request("dlpd1")
if dlpd2="" then dlpd2="0"
wd2=1
'----识别错误并跳转-----

if jj2="" then response.redirect "zjwb.asp?sid=" & sid & "&cw=1&cz=2"


if pid2="" then response.redirect "zjwb.asp?sid=" & sid & "&cw=2&cz=2"

'---开始增加----
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from shop_lm"
rs.open rspl,connshop,1,2
rs.addnew
if name2<>"" then rs("name")=name2
if jj2<>"" then rs("fljj")=jj2
if pag2<>"" then rs("pag")=pag2
if pid2<>"" then rs("pid")=pid2
if br2<>"" then rs("br")=br2
rs("lx")=1
rs.update
'---关闭数据----
rs.close
set rs=nothing

%>
成功增加文本内容！
<%
end if
%>
<br/>-----------<br/>
<a href="fl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[管理分类]</a>
<!--#include file="bq.asp"-->
<%Call headsay()%>