vipproduct_list.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
admintop()
Dim admin_flag
admin_flag=",13,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
Select Case Request("action")
	Case "addpro" : addpro()
	Case "proadd" : proadd()
	Case "del" : del()
	Case "modipro" : modipro()
	Case "promodi" : promodi()
	Case Else
		list()
        End Select
end if
sub addpro
id=request("id")
product_name=Safereplace(trim(request("product_name")))
jifen=request("jifen")
info=replace(request("info"), ">", "&gt;")
info=replace(info, "<", "&lt;")
info=replace(info, "'","’")
if info="" then info="此商品暂无介绍"
pic=Safereplace(trim(request("pic")))
if pic="" then pic="noimages.gif"
cpic=request("cpic")
if cpic="" then cpic="nonegif.gif"
cinfo=Safereplace(trim(request("cinfo")))
addtime=request("addtime")
endtime=request("endtime")
dim addtime
addtime=date()
kucun=CLng(request("kucun"))

set rs=server.createobject("ADODB.Recordset")
sql="select * from [56770_vipproduct] where product_name='"&product_name&"' order by id desc"
rs.open sql, conn, 1, 1
if not(rs.eof or rs.bof) then
        response.write"<SCRIPT lang1uage=JavaScript>alert('对不起，您所添加的商品其商品名已经存在, 请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
rs.close
set rs=nothing
response.end
end if
conn.execute "insert into [56770_vipproduct] (product_name,jifen,info,pic,cpic,endtime,kucun)values('"&product_name&"','"&jifen&"','"&info&"','"&pic&"','"&cpic&"','"&endtime&"',"&kucun&")"
set rs=server.createobject("ADODB.Recordset")
sql="select * from [56770_vipproduct] order by id desc"
rs.open sql, conn, 1, 1
id=rs("id")
rs.close
set rs=nothing
conn.execute "update [56770_vipproduct] set addtime="&sqlnowstring&" where id=" & id
response.write "<script lang1uage='javascript'>alert('购物积分换购商品添加成功！');window.document.location.href='vipproduct_list.asp';</script>" 
Response.End
end sub

sub modipro
id=request("id")
product_name=trim(request("product_name"))
product_name1=trim(request("product_name1"))
jifen=request("jifen")
info=replace(request("info"), ">", "&gt;")
info=replace(info, "<", "&lt;")
info=replace(info, "'","’")
if info="" then info="此商品暂无介绍"
pic=request("pic")
if pic="" then pic="noimages.gif"
cpic=request("cpic")
if cpic="" then cpic="nonegif.gif"
cinfo=request("cinfo")
addtime=request("addtime")
endtime=request("endtime")
kucun=CLng(request("kucun"))

if product_name1<>product_name then
set rs=server.createobject("ADODB.Recordset")
sql="select * from [56770_vipproduct] where product_name='"&product_name&"' order by id desc"
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
response.write"<SCRIPT lang1uage=JavaScript>alert('对不起，您所添加的商品其商品名已经存在,请核实！');javascript:history.go(-1)</SCRIPT>"
rs.close
set rs=nothing
end if
end if
conn.execute "update [56770_vipproduct] set product_name='"&product_name&"',jifen='"&jifen&"',info='"&info&"',pic='"&pic&"',cpic='"&cpic&"',endtime='"&endtime&"',kucun="&kucun&" where id=" & id 
set rs=server.createobject("ADODB.Recordset")
sql="select * from [56770_vipproduct] order by id desc"
rs.open sql, conn, 1, 1
id=rs("id")
rs.close
set rs=nothing
conn.execute "update [56770_vipproduct] set addtime="&sqlnowstring&" where id=" & id
response.write "<script lang1uage='javascript'>alert('购物积分换购商品修改成功！');window.document.location.href='vipproduct_list.asp';</script>" 
Response.End
end sub

sub del
id=request("id")
if id="" then 
  response.write"<SCRIPT lang1uage=JavaScript>alert('请选择您要删除的条目！');javascript:history.go(-1)</SCRIPT>"
  response.end
end if
'删除图片 
sql="select pic,cpic from [56770_vipproduct] where id in ("&id&") "
         set rs=conn.execute(sql)
         cpic=rs("cpic")
         pic=rs("pic")
         filepath="../pic/"&pic
         filepathh="../pic/"&cpic
path= server.MapPath(filepath)
pathh= server.MapPath(filepathh)
         set objfso = server.createobject("scripting.FileSystemObject")
if objfso.FileExists(path) or objfso.FileExists(pathh) then
If pic<>"noimages.gif" and cpic="nonegif.gif" then
objfso.DeleteFile(pathh) 
elseif pic="noimages.gif" and cpic<>"nonegif.gif" then
objfso.DeleteFile(path) 
elseif pic=cpic then
objfso.DeleteFile(path) 
else
objfso.DeleteFile(path) 
objfso.DeleteFile(pathh) 
end if
set objfso = nothing
else
        response.write"<SCRIPT lang1uage=JavaScript>alert('图片没有找到！');</SCRIPT>" 
end if 
product_name=request("product_name")
conn.execute "delete from [56770_vipproduct] where id in ("&id&") "
response.redirect "vipproduct_list.asp?page=" & request("page")
end sub
%>
<script lang1uage="JavaScript">
function CheckForm()
{ 
        if(document.addproduct.product_name.value.length == 0)
        {
                alert("请输入商品名.");
                document.addproduct.product_name.focus();
                return false;
        }
        if(document.addproduct.jifen.value.length == 0)
        {
                alert("请输入换取商品的积分.");
                document.addproduct.jifen.focus();
                return false;
        }
        return true;
}
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<%sub list%>
<table width="98%" border="0" cellspacing="1" cellpadding="0" vspace="0" hspace="0" bgcolor="#183789" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor=#FFFFFF>
<td height="27" class="classtop" align="center" colspan="7">积分换购商品列表</td>
</tr>
<tr class=classtd>
<form  method="post" action="vipproduct_list.asp">
<td align="center" colspan="4">按商品名称搜索：
<input type="text" name="product_name" class="form" size="30">
<input type="submit" name="Submit" value="搜索" class="button">
</td>
</form>
<td colspan=3 align="center">
<input type="button" name="Submit2" value="添加积分换购商品" onClick="location.href='?action=proadd'" class="button">
</td>
</tr>
<tr align="center">
<td class=classtop1 height="25" width="5%">选择</td>
<td class=classtop1 height="10" width="5%">ID</td>
<td class=classtop1 width="45%" align="left">商品名</td>
<td class=classtop1 width="15%">所需积分</td>
<td class=classtop1 width="10%">库存</td>
<td class=classtop1 width="15%">截止日期</td>
<td class=classtop1>操作</td>
</tr>
<%
product_name=request("product_name")
sql="select * from [56770_vipproduct] where  product_name<>''"
        if product_name<>"" then sql=sql + " and product_name like '%"&product_name&"%'"
        Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
if rs.eof then
        Response.Write("<tr class=classtd>")
Response.Write("<td colspan=""6"" height=""50"" align=""center"" >目前本类还没有换购商品，请<a href=""?action=proadd"">添加一个商品</a></td>")
Response.Write("</tr>")
else
        if not isempty(request("page"))then
        pagecount=cint(request("page"))
else
        pagecount=1
end if
rs.pagesize=20
rs.AbsolutePage=pagecount
do while not rs.eof
%>
<form name=myform action="?action=del&page=<%=cstr(pagecount)%>" method=post>
<tr class=classtd align="center">
<td align="center" height="22"><input name="id" type="checkbox" value="<%=rs("id")%>"></td>
<td align="center"><%=rs("id")%></td>
<td align="left"><%=rs("product_name")%></td>
<td align="center"><%=rs("jifen")%></td>
<td align="center"><%=rs("kucun")%></td>
<td align="center"><%if rs("endtime")>date() then response.write rs("endtime") else response.write("<font color=red>已过期</font>") end if%></td>
<td align="center"><a href="?action=promodi&id=<%=rs("id")%>">编辑</a> 
</td>
</tr>
<%
rs.movenext
i=i+1
if i >= rs.pagesize then exit do
        loop
%>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor=#FFFFFF>
<tr class=classfooter>
<td width="20%" height="20"> <input type="submit" name="Submit" value="删除" onClick="return confirm('您确定要这样操作吗？')" class="button">
<input type=button value="全部选定" onClick="this.value=check(this.form.id)" class="button"></td></form>
<form action="vipproduct_list.asp" method="post">
<td height="25">
<div align="center"> 共 <b><%=rs.recordcount%></b> 个商品, 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>, 
当前从第
<%
if pagecount <= 1 then
        response.write "<font color=red>1</font>"
else
        response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%>
个开始。
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="vipproduct_list.asp?product_name=<%=product_name%>&page=<%=cstr(pagecount+1)%>&type=<%=request("type")%>">下一页</a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="vipproduct_list.asp?product_name=<%=product_name%>&page=<%=cstr(pagecount-1)%>&type=<%=request("type")%>">
上一页</a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="vipproduct_list.asp?product_name=<%=product_name%>&page=<%=cstr(pagecount-1)%>&type=<%=request("type")%>">
上一页</a><a href="vipproduct_list.asp?product_name=<%=product_name%>&page=<%=cstr(pagecount+1)%>&type=<%=request("type")%>">
下一页</a>
<% end if%>
&nbsp; 直接到第
<select name="page">
<%for i=1 to rs.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
页
<input type="submit" name="跳转" value="跳转" class="button">
<input type="hidden" name="product_name" value=<%=product_name%>>
</div>
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
end sub
%>

<%sub proadd%>
<table width="98%" border="0" cellspacing="1" cellpadding="0" vspace="0" hspace="0" bgcolor="#183789" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor=#FFFFFF>
<td height="27" class="classtop" align="center" colspan="4">添加积分换购商品</td>
</tr>
<form action="?action=addpro" method="post" name="addproduct" onSubmit="return CheckForm();">
<tr>
<td class=classtd width="15%" >商品名称：
</td>
<td class=classtd width="55%">&nbsp;<input type="text" name="product_name" size="40">
</td>
<td class=classtd width="15%">所需积分：<input type="text" name="jifen" size="5" onKeyPress="event.returnValue=IsDigit();" class="form"> 点
</td>
<td class=classtd width="15%">库存：<input type="text" name="kucun" size="5" onKeyPress="event.returnValue=IsDigit();" class="form">
</td>
</tr>
<tr>
<td height="30" class=classtd width="15%">截止日期：</td>
<td colspan="3" class=classtd>&nbsp;<input type="text" name="endtime" size="20" value="<%=date+30%>" class="form">日期格式2004-12-12
</td>
</tr>
<tr>
<td height="30" class=classtd width="15%">商品介绍：</td>
<td colspan="3" class=classtd><br>&nbsp;<textarea name="info" rows="10" cols="50" class="text"></textarea>
</td>
</tr>
<tr>
<td class=classtd width="15%"> 商品小图片：</td>
<td class=classtd colspan="3">&nbsp;<input type="text" name="pic" size="20" class="form">
<IFRAME src="../upfile/upfilepro1.asp" frameBorder=0 width="400" height="20" scrolling=no></IFRAME>
</td>
</tr>
<tr>
<td class=classtd width="15%"> 商品大图片：</td>
<td class=classtd colspan="3">&nbsp;<input type="text" name="cpic" size="20" class="form">
<IFRAME src="../upfile/upfilepro2.asp" frameBorder=0 width="400" height="20" scrolling=no></IFRAME>
</td>
</tr>
<tr class=classfooter>
<td height="30" colspan="4" align="center">
<input type="submit" name="Submit" value="添加" class="button">
&nbsp; &nbsp;
<input type="reset" name="Submit" value="重填" class="button">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%end sub%>

<%
sub promodi
id=request("id")
set rss=server.createobject("ADODB.Recordset")
sql="select * from [56770_vipproduct] where id=" & id
rss.open sql,conn,1,1
%>
<table width="98%" border="0" cellspacing="1" cellpadding="0" vspace="0" hspace="0" bgcolor="#183789" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor=#FFFFFF>
<td height="27" class="classtop" align="center" colspan="4">编辑积分换购商品</td>
</tr>
<form action="vipproduct_list.asp" method="post" name="addproduct" onSubmit="return CheckForm();">
<tr>
<td class=classtd width="15%" >商品名称：
</td>
<td class=classtd width="45%">&nbsp;<input type="text" name="product_name" size="40" value="<%=rss("product_name")%>" class="form">
　　　</td>
<td class=classtd width="15%">所需积分：<input type="text" name="jifen" size="5" value="<%=rss("jifen")%>" onKeyPress="event.returnValue=IsDigit();" class="form">点
</td>
<td class=classtd width="25%">库存：<input type="text" name="kucun" size="5" value="<%=rss("kucun")%>" onKeyPress="event.returnValue=IsDigit();" class="form">
　　　</td>
</tr>
<tr>
<td height="30" valign="top" class=classtd width="15%">截止日期：</td>
<td colspan="3" class=classtd>&nbsp;<input type="text" name="endtime" size="20" value="<%=rss("endtime")%>" class="form">日期格式2004-12-12
</td>
</tr>
<tr>
<td height="30" valign="top" class=classtd width="15%">商品介绍：</td>
<td colspan="3" class=classtd>&nbsp;<textarea name="info" rows="10" cols="50" class="text"><%=rss("info")%></textarea>
</td>
</tr>
<tr>
<td  class=classtd width="15%"> 商品小图片：</td>
<td class=classtd width="35%">&nbsp;<input type="text" name="pic" size="20" value="<%=rss("pic")%>" class="form">
</td>
<td class=classtd width="15%">商品大图片：</td>
<td class=classtd width="35%">&nbsp;<input type="text" name="cpic" size="20" value="<%=rss("cpic")%>" class="form">
</td>
</tr>
 </TR>
    <tr> 
      <td class=classtd height="25" colspan="4">图片上传程序接口 → 图片上传后把图片名粘贴到大图片或小图片的位置即可</td>
    </tr>
    <tr> 
      <td class=classtd colspan="4"><iframe name="Upload" frameborder="0" width="100%" height="25" scrolling="no" src="../upfile/upproduct.asp"></iframe>
      </td>
    </tr>
<tr class=classfooter>
<td height="30" colspan="4" align="center">
<input type="submit" name="Submit" value="修 改" class="button">
&nbsp; &nbsp;
<input type="reset" name="Submit" value="重 填" class="button">
<input type="hidden" name="action" value="modipro">
<input type="hidden" name="id" value="<%=rss("id")%>">
<input type="hidden" name="product_name1" value="<%=rss("product_name")%>">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
rss.close
set rss=nothing
end sub
%>