asp调用二级分类代码

时间：2022-07-02 22:35:17 编辑：袖梨来源：一聚教程网

asp调用二级分类代码
<%
dim conn
dim connstr
dim db
db="../data/1du.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

sub closedatabase()
   conn.close
        set conn=Nothing
    End sub
%>

错误提示

<%
dim founderr,errmsg
founderr=false
errmsg=""

if Request.form("MM_insert") then

if request.form("action")="newp" then
sql="select * from p_class_small"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim p_small_type,p_type
p_small_type=trim(replace(request.form("p_small_type"),"'",""))
p_type=trim(replace(request.form("p_type"),"'",""))
p_small_type_e=trim(replace(request.form("p_small_type_e"),"'",""))
if p_small_type="" then
founderr=true
errmsg=errmsg+"
"+"

你必须输入栏目名称名称！"
else
rs("p_small_type")=p_small_type
End if
if p_type="" then
founderr=true
errmsg=errmsg+"
"+"

你必须选择一级分类！"
else
rs("p_type")=p_type
End if
'由P_type得到p_type_e
   sql_p="select p_type_e from p_class where p_type='"&p_type&"'"
            set rs_p=server.createobject("adodb.recordset")
            rs_p.open sql_p,conn,1,1
   if Not(rs_p.BOF and rs_p.EOF) then
      p_type_e=rs_p("p_type_e")
   end if
   rs_p.close
   set rs_p=nothing
rs("p_type_e")=p_type_e
rs("p_small_type_e")=p_small_type_e
if Not founderr then
rs.update
rs.close
set rs=Nothing
closedatabase
response.redirect "admin_p_small.asp"
else
Call diserror()
response.End
End if
End if

if request.form("action")="editp" then
if request.Form("id")="" then
founderr=true
errmsg=errmsg+"
"+"

你必须指定操作的对象！"
else
if Not isInteger(request.form("id")) then
founderr=true
errmsg=errmsg+"
"+"

非法的id参数。"
End if
End if
if founderr then
Call diserror()
response.End
End if
sql="select * from p_class_small where p_small_id="&cint(request.Form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
p_old_small_type=rs("p_small_type")
p_old_small_type_e=rs("p_small_type_e")
p_small_type=trim(replace(request.form("p_small_type"),"'",""))
p_type=trim(replace(request.form("p_type"),"'",""))
p_small_type_e=trim(replace(request.form("p_small_type_e"),"'",""))
p_type_e=trim(replace(request.form("p_type_e"),"'",""))
if p_small_type="" then
founderr=true
errmsg=errmsg+"
"+"

你必须输入栏目名称！"
else
rs("p_small_type")=p_small_type
End if
if p_type="" then
founderr=true
errmsg=errmsg+"
"+"

if Not founderr then
rs.update
rs.close
set rs=Nothing
'连代更新属于此小类的信息
v_sql="select * from p_info where p_small_type='"&p_old_small_type&"'"
set v_rs=server.createobject("adodb.recordset")
v_rs.open v_sql,conn,1,3
if Not(v_rs.BOF or v_rs.EOF) then
do while not v_rs.eof
v_rs("p_small_type")=p_small_type
v_rs("p_small_type_e")=p_small_type_e
v_rs.update
v_rs.movenext
loop
End if
v_rs.close
set v_rs=Nothing
response.redirect "admin_p_small.asp"
else
Call diserror()
response.End
End if
End if

if request.form("action")="delp" then
if request.Form("id")="" then
founderr=true
errmsg=errmsg+"
"+"

你必须指定操作的对象！"
else
if Not isInteger(request.form("id")) then
founderr=true
errmsg=errmsg+"
"+"

非法的id参数。"
End if
End if
if founderr then
Call diserror()
response.End
End if
sql="select * from p_class_small where p_small_id="&cint(request.Form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if Not(rs.BOF or rs.EOF) then
rs.delete
End if
rs.close
set rs=Nothing
'连代删除属于此分类的信息
v_sql="select * from p_info where p_small_type='"&p_small_type&"'"
set v_rs=server.createobject("adodb.recordset")
v_rs.open v_sql,conn,1,3
if Not(v_rs.BOF or v_rs.EOF) then
do while not v_rs.eof
v_rs.delete
v_rs.movenext
loop
End if
v_rs.close
set v_rs=Nothing
closedatabase
response.redirect "admin_p_small.asp"
End if
End if

Call p_small_body()
closedatabase
%>

推荐专题

最新下载

热门教程

asp调用二级分类代码

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程

推荐专题

最新下载

热门教程

asp调用二级分类 代码

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程

asp调用二级分类代码