📄 basket_change.asp
字号:
<!--#include file="connshop.asp" -->
<!--#include file="webconfig.asp"-->
<script>
function killErrors() {
return true;
}
window.onerror = killErrors;
dd
</script>
<%
Dim rss
session.codepage=65001
response.charset="utf-8"
strwebtitle=sitename
id=CLng(request("id"))
response.write c_skin_56770(c_skin_word(skin_head))
Dim subject,to_user,idate,msg
If request("action")="update" Then
conn.execute("Update [56770_lsbuy] set color='"&request("color")&"' where cpid="&id&" and hg=0")
'response.write"<meta http-equiv='' content=3;url=javascript:parent.location.reload();window.close()>"
response.write"<meta http-equiv='refresh' content=1;url=javascript:window.close()>"
else
%>
<BODY onunload="window.opener.location.reload();" BGCOLOR="#ffffff" TEXT="#00000" MARGINHEIGHT="0" MARGINWIDTH="0" TOPMARGIN="0" LEFTMARGIN="0">
<table width="100%" border="0" cellspacing="1" cellpadding="3" class="bk_b">
<form name="form1" method="post" action="basket_change.asp?action=update">
<%
Dim rspr,str_chima,str_color
set rspr = conn.execute("select p_color from [56770_product] where id="&id&"")
str_color=Trim(rspr("p_color"))
rspr.close:Set rspr=Nothing
set rs = conn.execute("select * from [56770_lsbuy] where sessionid="&session.sessionid&" and hg=0 and cpid="&id&"")
If Not rs.eof Then
If str_color<>"" Then
str_basket=str_basket&"<tr><td colspan='10' height='25'>"&www56770com_word456&"锛⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -