?? commend.asp
字號(hào):
<!--#include file="../Session.asp"-->
<%
if request("add")="yes" and request("cpid")<>"" then
if request("cpid")="" or isNumeric(Request("cpid"))=False then
Response.Write("<script>alert(""商品編號(hào)錯(cuò)誤！"");history.back();</script>")
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Merchandise where id="&request("cpid")&""
rs.open sql,conn,0,1
if (rs.eof and rs.bof) then
Response.Write("<script>alert(""沒(méi)有此商品！"");history.back();</script>")
response.end
rs.close
end if
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from Commend where BigId="&request("BigId")&""
rs1.open sql,conn,1,1
if rs1.RecordCount<6 and request("BigId")=0 then
conn.execute("Insert into Commend(cpid,TradeName,SmallPic,BigId)values("&request("cpid")&",'"&rs("TradeName")&"','"&rs("SmallPic")&"',"&request("BigId")&")")
elseif rs1.RecordCount<5 then
conn.execute("Insert into Commend(cpid,TradeName,SmallPic,BigId)values("&request("cpid")&",'"&rs("TradeName")&"','"&rs("SmallPic")&"',"&request("BigId")&")")
else
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql="select * from Commend where BigId="&request("BigId")&" order by Date"
rs2.open sql,conn,0,1
id=rs2("id")
rs2.close
conn.execute("Update Commend set cpid="&request("cpid")&",TradeName='"&rs("TradeName")&"',SmallPic='"&rs("SmallPic")&"',BigId="&request("BigId")&",[Date]='"&now()&"' where id="&id&"")
end if
rs1.close
end if
if request("del")="yes" then
conn.execute("Delete From Commend where id="&request("id")&"")
Response.redirect "Commend.asp?page="&request("page")&""
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/site.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="52" colspan="4" align="center" class="tdstyle"><strong><font color="#000000" size="3">推薦商品</font></strong></td>
</tr>
<tr>
<td width="15%" height="25" align="center" valign="middle" class="tdstyle"><strong>商品ID</strong></td>
<td width="60%" align="center" class="tdstyle"><strong>商品名稱(chēng)</strong></td>
<td width="15%" align="center" class="tdstyle"><strong>位 置</strong></td>
<td width="10%" align="center" class="tdstyle"><strong>刪 除</strong></td>
</tr>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Commend order by Date desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write"<tr><td height=25 colspan=4 align=center class=text>暫無(wú)記錄，請(qǐng)及時(shí)添加！</td></tr></Table>"
'response.end
end if
rs.pagesize=15
if request("page")="" or isNumeric(request("page"))=false then
page = 1
else
page=int(request("page"))
end if
if page>rs.pagecount then
page=rs.pagecount
end if
if not rs.BOF then
rs.Move rs.PageSize*(page-1)
end if
i=1
do while not rs.eof and i<=rs.pagesize
%>
<tr>
<td height="20" align="center" valign="middle" class="tdstyle"><%=rs("cpid")%></td>
<td align="center" valign="middle" class="tdstyle"><%=rs("TradeName")%></td>
<td align="center" valign="middle" class="tdstyle">
<%
if rs("BigId")="0" then
Response.Write("首頁(yè)")
else
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select BCName from BigClass where BigId="&rs("BigId")&""
rs1.open sql,conn,0,1
Response.Write(""&rs1("BCName")&"")
rs1.close
end if%></td>
<td align="center" valign="middle" class="tdstyle"><input name="submit3" type="button" class="button2" value="刪 除" onClick="if(confirm('您確定要改變嗎?')) location.href='?del=yes&id=<%=rs("id")%>&page=<%=page%>'"></td>
</tr><%
i=i+1
rs.MoveNext
loop%>
<tr><form name=form method=get action=?>
<td height="30" colspan="4" align="center" valign="middle" class="tdstyle">
<%if rs.recordcount<>0 then
if page-1 mod 10=0 then
p=(page-1) \ 10
else
p=(page-1) \ 10
end if
response.write "頁(yè)次："& page &"/"& rs.pagecount &"頁(yè) 每頁(yè)"& rs.pagesize &" 共"& rs.recordcount &"條記錄"&_
" 分頁(yè)："
if p*10>0 then response.write "<a href='?page="&p*10&"' title=上十頁(yè)>[<<]</a> "
uming_i=1
for ii=p*10+1 to P*10+10
if ii=page then
response.write "<font color=#ff0000>["+Cstr(ii)+"]</font> "
else
response.write "<a href='?page="&ii&"'>["+Cstr(ii)+"]</a> "
end if
if ii=rs.pagecount then exit for
uming_i=uming_i+1
next
if ii<=rs.pagecount and uming_i=11 then response.write "<a href='?page="&ii&"' title=下十頁(yè)>[>>]</a> "
response.write(" 跳頁(yè)：<input type=text name=page size=2 maxlength=3 class=input1> <input type=submit name=Submit value=Go class=button>")
end if
rs.close%>
</td>
</form>
</tr>
</table>
<form action="?add=yes" method="post" name="myform" id="form">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="40" colspan="2" align="center" class="tdstyle">商品ID:
<input name="cpid" type="text" class="input1" id="cpid" size="12" maxlength="20">
顯示頁(yè)面:
<select name="BigId" class="input1" id="BigId">
<option value="0" selected>首頁(yè)</option>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from BigClass order by BigId"
rs.open sql,conn,0,1
do while not rs.eof%>
<option value="<%=rs("BigId")%>"><%=rs("BCName")%></option>
<%rs.movenext
loop
rs.close%>
</select>
<input name="Submit3" type="submit" class="button" value="添 加">
注：每個(gè)頁(yè)面最多能推薦5-6個(gè)商品。 </td>
</tr>
</table>
</form>
<br><br>
</body>
</html>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -