📄 findauc.asp
字号:
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>起拍日期：</td><td> </td><td align=left><input type=text name=availdate value='"& rsauc("aucavaildate") &"'></td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>截止日期：</td><td> </td><td align=left><input type=text name=closedate value='"& rsauc("aucclosedate") &"'></td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>起 拍 价：</td><td> </td><td align=left><input type=text name=startingbid value="& rsauc("aucstartingbid") &"> 元/件</td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>竞价阶梯：</td><td> </td><td align=left><input type=text name=minimumincrement value="& rsauc("aucminimumincrement") &"> 元</td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>保 留 价：</td><td> </td><td align=left><input type=text name=reserveprice value="& rsauc("aucreserveprice") &"> 元/件</td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>一 口 价：</td><td> </td><td align=left><input type=text name=buyprice value="& rsauc("aucbuyprice") &"> 元/件</td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>当前竞价：</td><td> </td><td align=left><input type=text name=currentbid value="& rsauc("auccurrentbid") &"></td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>当前买主：</td><td> </td><td align=left><input type=text name=currentbidder value="& rsauc("auccurrentbidder") &"></td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>竞价次数：</td><td> </td><td align=left><input type=text name=bidtimes value="& rsauc("bidtimes") &"> 次</td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>一口价次数：</td><td> </td><td align=left><input type=text name=ykjbidtimes value="& rsauc("ykjbidtimes") &"> 次</td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>买方限制：</td><td> </td><td align=left>"& vbcrlf
response.write" <Select name=limit>"& vbcrlf
Dim BBRUser_Limit,CN_BBRs_str0,CN_BBRs_str1,CN_BBRs_str2
BBRUser_limit=rsauc("limit")
if Not isNum(BBRUser_limit) then BBRUser_limit="0"
CN_BBRs_str0=BBRUser_limit
CN_BBRS_str1="0,100,200,400,800,1600"
CN_BBRS_str2="无限制，一星级，二星级，三星级，四星级，五星级"
Call SelectOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2)
response.write" </Select>"& vbcrlf
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>新旧程度：</td><td> </td><td align=left>"& vbcrlf
response.write" <Select name=oldnew>"& vbcrlf
CN_BBRs_str0=rsauc("oldnew")
CN_BBRs_str1="全新，九成新，八成新，七成新，六成新，五成新，四成新，三成新，两成新，一成新"
CN_BBRs_str2="全新，九成新，八成新，七成新，六成新，五成新，四成新，三成新，两成新，一成新"
Call SelectOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2)
response.write" </Select>"& vbcrlf
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>保 修：</td><td> </td><td align=left>"& vbcrlf
Dim CN_BBRradio_name
CN_BBRradio_name="baoxiu"
CN_BBRs_str0=rsauc("baoxiu")
CN_BBRs_str1="有，无"
CN_BBRs_str2="有，无"
Call RadioOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2,CN_BBRradio_name)
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>发 票：</td><td> </td><td align=left>"& vbcrlf
CN_BBRradio_name="fapiao"
CN_BBRs_str0=rsauc("fapiao")
CN_BBRs_str1="有，无"
CN_BBRs_str2="有，无"
Call RadioOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2,CN_BBRradio_name)
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>运 费：</td><td> </td><td align=left>"& vbcrlf
CN_BBRradio_name="yunfei"
CN_BBRs_str0=rsauc("yunfei")
CN_BBRs_str1="买家付，卖家付，双方各半"
CN_BBRs_str2="买家付，卖家付，双方各半"
Call RadioOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2,CN_BBRradio_name)
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>支 付：</td><td> </td><td align=left>"& vbcrlf
CN_BBRradio_name="zhifu"
CN_BBRs_str0=rsauc("zhifu")
CN_BBRs_str1="银行支付，邮局支付，信用卡支付，其他支付"
CN_BBRs_str2="银行，邮局，信用卡，其他"
Call RadioOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2,CN_BBRradio_name)
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>送 货：</td><td> </td><td align=left>"& vbcrlf
CN_BBRradio_name="songhuo"
CN_BBRs_str0=rsauc("songhuo")
CN_BBRs_str1="特快专递，邮寄，托运，其他方式送货"
CN_BBRs_str2="特快专递，邮寄，托运，其他方式送货"
Call RadioOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2,CN_BBRradio_name)
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>首页推荐：</td><td> </td><td align=left>"& vbcrlf
response.write" <Select name=BBR_AdminCommend>"& vbcrlf
CN_BBRs_str0=cstr(rsauc("BBR_AdminCommend"))
CN_BBRs_str1="0，1"
CN_BBRs_str2="不推荐，推荐"
Call SelectOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2)
response.write" </Select>"& vbcrlf
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>掌柜推荐：</td><td> </td><td align=left>"& vbcrlf
response.write" <Select name=BBR_SellerCommend>"& vbcrlf
CN_BBRs_str0=Cstr(rsauc("BBR_SellerCommend"))
CN_BBRs_str1="0，1"
CN_BBRs_str2="不推荐，推荐"
Call SelectOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2)
response.write" </Select>"& vbcrlf
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>是否结束：</td><td> </td><td align=left>"& vbcrlf
response.write" <Select name=ended>"& vbcrlf
CN_BBRs_str0=rsauc("aucended")
CN_BBRs_str1="N，Y"
CN_BBRs_str2="否，是"
Call SelectOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2)
response.write" </Select>"& vbcrlf
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=right>提醒次数：</td><td> </td><td align=left>"& vbcrlf
response.write" <Select name=emailssent>"& vbcrlf
CN_BBRs_str0=rsauc("aucemailssent")
CN_BBRs_str1="0,1,2,3,4"
CN_BBRs_str2="0次,1次,2次,3次,更多"
Call SelectOper(CN_BBRS_str0,CN_BBRS_str1,CN_BBRS_str2)
response.write" </Select>"& vbcrlf
response.write" </td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=Right>商品描述：</td><td> </td>"& vbcrlf
response.write" <td align=left><textarea rows=10 cols=58 name=description>"& ReHtmlEncode(rsauc("aucdescription")) &"</textarea></td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr height=38 class=td>"& vbcrlf
response.write" <td align=center colspan=3><input name=submit type=submit value=""修改商品信息""> <input name=back type=button value=""返回列表"" Onclick=""history.back(-1);""></td>"& vbcrlf
response.write"</tr>"& vbcrlf
response.write"<tr class=td>"& vbcrlf
response.write" <td align=center colspan=3>"& vbcrlf
Dim rs_img,img_url
sql="select * from aucimages where aucid="& rsauc("aucid") &" order by img_order"
set rs_img=conn.execute(sql)
if rs_img.bof or rs.eof then
img_url="skins/"& SKINS_FOLDER &"/nopic.gif"
else
img_url=rs_img("img_url")
end if
rs_img.close
set rs_img=nothing
response.Write"<img src=""../"& img_url &""" border=""0"">"
%>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -