addproducts.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
If Cint(AdminGroup(2))<>1 then
Response.Redirect("Default.asp")
Response.End()
End If
%>
<!--#include file="top.asp"-->
<%
dim sclassid
response.Write("<table border='0' align='center' cellpadding='3' cellspacing='1' class='tablecolor'><tr><td height='25' align='center' class='banner'>")
if request("id")="" then 
response.Write("产品添加") 
else
response.Write("产品修改")
end if
response.Write("</td></tr></table>")
select case request("action")
case "savepro"
call savepro()
case else
call normal()
end select
sub normal()
dim id,pid,pName,spic,Hits,elite,content,bpic,isuser,price,sclassid,item1,item2,item3,item4,item5,item6,item7,item8,item9,item10,item11,item12,item13,item14,item15
sclassid=request("sclassid")
id=request.QueryString("id")
if id<>"" then
dim rs
set rs=conn.execute("select * from products where id="&clng(id))
if rs.bof and rs.eof then
response.Write("<script>alert('该产品不存在或者已被删除！');history.back()</script>")
response.End()
end if
pid=rs("pid")
pName=rs("pName")
spic=rs("spic")
bpic=rs("bpic")
Hits=rs("Hits")
elite=rs("elite")
content=rs("content")
isuser=rs("isuser")
price=rs("price")
sclassid=rs("sclassid")
item1=rs("item1")
item2=rs("item2")
item3=rs("item3")
item4=rs("item4")
item5=rs("item5")
item6=rs("item6")
item7=rs("item7")
item8=rs("item8")
item9=rs("item9")
item10=rs("item10")
item11=rs("item11")
item12=rs("item12")
item13=rs("item13")
item14=rs("item14")
item15=rs("item15")
rs.close
set rs=nothing
end if
response.Write("<script src='../inc/ubbcode.js'></script>")
response.Write("<table border='0' align='center' cellpadding='3' cellspacing='1' class='tablecolor'>")
response.Write("<form action='?action=savepro' method=POST name=frmAnnounce>")
response.Write("<tr><td width='30%' class='tablebody'><strong>所属类别：</strong></td><td class='tablebody'><select name=sclassid id=sclassid><option value=''>-----</option>")
	  dim brs,srs
	  set brs=server.CreateObject("adodb.recordset")
	  set srs=server.CreateObject("adodb.recordset")
	  brs.open "select * from bclass",conn,1,1
	  do while not brs.eof
	  response.Write("<option value=''>"&brs("bclassName")&"</option>")
	  srs.open "select * from sclass where bclassid="&brs("id")&"",conn,1,1
	  do while not srs.eof
response.Write("<option value="&srs("id")&"")
if  cstr(sclassid)=cstr(srs("id")) then response.Write(" selected ")
response.Write(">├"&srs("sclassName")&"</option>")
	  srs.movenext
	  loop
	  brs.movenext
	  srs.close
	  loop
	  brs.close
	  set brs=nothing
	  set srs=nothing
response.Write("</select></td></tr>")
response.Write("<tr><td width='150' class='tablebody'><strong>产品型号：</strong></td><td class='tablebody'><input name=pid value='"&pid&"' size='40' maxlength=255></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>产品名称：</td><td class='tablebody'><input name='pName' type='text' id='pName' value='"&pName&"' size='40' maxlength='255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>产品价格：</td><td class='tablebody'><input name='price' type='text' value='")
if price="" then
response.Write("0") 
else response.Write(price)
end if
response.Write("' size='15' maxlength='255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>产品图片（小）:</td><td class='tablebody'><iframe name='ad' frameborder=0 width='100%' height=24 scrolling=no src='pro_upload.asp?action=spic'></iframe></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>图片地址:</td><td class='tablebody'><input name='spic' type='text' id='spic' value='"&spic&"' size='40' maxlength='255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>产品图片（大）:</td><td class='tablebody'><iframe name='ad' frameborder=0 width='100%' height=24 scrolling=no src='pro_upload.asp?action=bpic'></iframe></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>图片地址:</td><td class='tablebody'><input name='bpic' type='text' value='"&bpic&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>创作主旨:</td><td class='tablebody'><input name='item1' type='text' value='"&item1&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>适用客户:</td><td class='tablebody'><input name='item2' type='text' value='"&item2&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>页面数量:</td><td class='tablebody'><input name='item3' type='text' value='"&item3&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>动态效果:</td><td class='tablebody'><input name='item4' type='text' value='"&item4&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>功能模块:</td><td class='tablebody'><input name='item5' type='text' value='"&item5&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>免费赠送:</td><td class='tablebody'><input name='item6' type='text' value='"&item6&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>开发语言:</td><td class='tablebody'><input name='item14' type='text' value='"&item14&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>数据库(模块):</td><td class='tablebody'><input name='item7' type='text' value='"&item7&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>集团邮箱:</td><td class='tablebody'><input name='item15' type='text' value='"&item15&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>语言版本:</td><td class='tablebody'><input name='item8' type='text' value='"&item8&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>网站维护:</td><td class='tablebody'><input name='item9' type='text' value='"&item9&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>域名注册:</td><td class='tablebody'><input name='item10' type='text' value='"&item10&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>虚拟主机:</td><td class='tablebody'><input name='item11' type='text' value='"&item11&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>制作周期:</td><td class='tablebody'><input name='item12' type='text' value='"&item12&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>立即申请:</td><td class='tablebody'><input name='item13' type='text' value='"&item13&"' size='40' maxlength'255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>其他设置:</td><td class='tablebody'><input name='Hits' type='text' value='")
if hits="" then response.Write("0") else response.Write(hits) end if
response.Write("' size='5' maxlength='5'>&nbsp;")
response.Write("</td></tr>")
response.Write("<tr><td valign='top' class='tablebody'><b>产品备注：</b><br><li>HTML标签：√<li>UBB标签：√<li>贴图标签：√<li>多媒体标签：√<br><br></td>")
response.Write("<td valign='top' class='tablebody'>")
%>
<!--#include file="../inc/getubb.asp"-->
<%
response.Write("<textarea  cols=60 name=Content rows=6 wrap=VIRTUAL>")
if content="" then response.Write("暂无说明") else response.Write(content) end if
response.Write("</textarea></td></tr>")
response.Write("<tr><td align='center' class='tablebody'>&nbsp;</td><td class='tablebody'><input type='hidden' name='id' value='"&id&"'><input type=Submit value='发 表' name=Submit>&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset name=Submit2 value='清 除'></td></tr></form></table>")
end sub
sub savepro()
dim content,id,userid,sclassid,hits,spic,bpic,pid,pname,elite,isuser,price,item1,item2,item3,item4,item5,item6,item7,item8,item9,item10,item11,item12,item13,item14,item15
sclassid=request.Form("sclassid")
userid=request.Cookies("admin")("userid")
id=request.Form("id")
pid=checkStr(request.Form("pid"))
pname=checkStr(request.Form("pname"))
spic=checkStr(request.Form("spic"))
bpic=checkStr(request.Form("bpic"))
content=checkStr(request.Form("content"))
hits=checkStr(request.Form("hits"))
elite=cint(request.Form("elite"))
isuser=cint(Request.Form("isuser"))
price=checkStr(Request.Form("price"))
item1=checkStr(Request.Form("item1"))
item2=checkStr(Request.Form("item2"))
item3=checkStr(Request.Form("item3"))
item4=checkStr(Request.Form("item4"))
item5=checkStr(Request.Form("item5"))
item6=checkStr(Request.Form("item6"))
item7=checkStr(Request.Form("item7"))
item8=checkStr(Request.Form("item8"))
item9=checkStr(Request.Form("item9"))
item10=checkStr(Request.Form("item10"))
item11=checkStr(Request.Form("item11"))
item12=checkStr(Request.Form("item12"))
item13=checkStr(Request.Form("item13"))
item14=checkStr(Request.Form("item14"))
item15=checkStr(Request.Form("item15"))
if sclassid="" then
response.Write("<script>alert('请选择产品类别！');history.back()</script>")
response.End()
end if
if pid="" then
response.Write("<script>alert('产品型号不能为空！');history.back()</script>")
response.End()
end if
if pname="" then
response.Write("<script>alert('产品名称不能为空！');history.back()</script>")
response.End()
end if
if hits="" or not isnumeric(hits) then
response.Write("<script>alert('点击数错误！');history.back()</script>")
response.End()
end if
if id<>"" then
conn.execute("update products set pid='"&pid&"',pname='"&pname&"',price='"&price&"',spic='"&spic&"',bpic='"&bpic&"',content='"&content&"',hits="&hits&",elite="&elite&",isuser="&isuser&",userid="&userid&",updatetime=now(),sclassid="&sclassid&",item1='"&item1&"',item2='"&item2&"',item3='"&item3&"',item4='"&item4&"',item5='"&item5&"',item6='"&item6&"',item7='"&item7&"',item8='"&item8&"',item9='"&item9&"',item10='"&item10&"',item11='"&item11&"',item12='"&item12&"',item13='"&item13&"',item14='"&item14&"',item15='"&item15&"' where id="&clng(id)&"")
response.Write("<script>alert('更新成功！');location='addproducts.asp?Sclassid="&sclassid&"&id="&id&"'</script>")
response.End()
else
conn.execute("insert into products (pid,pname,price,spic,bpic,content,userid,sclassid,elite,isuser,hits,item1,item2,item3,item4,item5,item6,item7,item8,item9,item10,item11,item12,item13,item14,item15) values('"&pid&"','"&pname&"','"&price&"','"&spic&"','"&bpic&"','"&content&"',"&userid&","&sclassid&","&elite&","&isuser&","&hits&","&item1&","&item2&","&item3&","&item4&","&item5&","&item6&","&item7&","&item8&","&item9&","&item10&","&item11&","&item12&","&item13&","&item14&","&item15&")")
response.Write("<script>alert('添加成功！');location='addproducts.asp?Sclassid="&sclassid&"'</script>")
response.End()
end if
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->