📄 shop.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
if request("action")="newshop" then
name1=replace(trim(request("name")),"'","''")
jiage=replace(trim(request("jiage")),"'","''")
pic=replace(trim(request("pic")),"'","''")
place=replace(trim(request("place")),"'","''")
time_now=replace(trim(request("time_now")),"'","''")
time_end=replace(trim(request("time_end")),"'","''")
seller=replace(trim(request("seller")),"'","''")
qq=replace(trim(request("qq")),"'","''")
phone=replace(trim(request("phone")),"'","''")
email=replace(trim(request("email")),"'","''")
price_first=replace(trim(request("price_first")),"'","''")
easy_infor=replace(trim(request("easy_infor")),"'","''")
tag=replace(trim(request("tag")),"'","''")
xiangguan=replace(trim(request("xiangguan")),"'","''")
url=replace(trim(request("url")),"'","''")
ClassName=request("ClassName")
mContent = trim(Request.form("cnWords"))
mContent = Replace(mContent,"<script","<sscript")
mContent = Replace(mContent,"/script>","/scripts>")
mContent = Replace(mContent,"/script >","/scripts>")
mimageNum = Request.form("imageNum")
firstImageName = trim(Request.form("editFirstImageName"))
user=request("user")
ok=request("ok")
set rs=server.createobject("adodb.recordset")
sql="select * from shops where (bh is null)"
rs.open sql,conn,1,3
if classname="" then
response.Redirect("admin_wrong.asp?url=shop.asp&reason=你可能没选择分类或者没添加分类!")
end if
if name1="" then
response.Redirect("admin_wrong.asp?url=shop.asp&reason=你可能没填写商城标题!")
else
rs.addnew
rs("shop_name")=name1
rs("bigclassname")=classname
rs("tag")=tag
rs("xiangguan")=xiangguan
rs("shop_infor")=mcontent
rs("shop_pic")=pic
rs("shop_money")=jiage
rs("shop_place")=place
rs("sell_time")=time_now
rs("sell_end_time")=time_end
rs("seller_name")=seller
rs("seller_qq")=qq
rs("seller_phone")=phone
rs("seller_email")=email
rs("sell_first_money")=price_first
rs("easy_infor")=easy_infor
rs("go_to_url")=url
rs.update
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from shops where shop_name='"&name1&"'"
rs.open sql,conn,1,3
num=rs("bh")
set rs1=server.createobject("adodb.recordset")
sql1="select * from example where bh=3"
rs1.open sql1,conn,1,3
moban=rs1("example")
response.Write(moban)
moban=replace(moban,"E_name",name1)
moban=replace(moban,"E_content",mcontent)
moban=replace(moban,"E_pic",pic)
moban=replace(moban,"E_money",jiage)
moban=replace(moban,"E_place",place)
moban=replace(moban,"E_time_now",time_now)
moban=replace(moban,"E_time_end",time_end)
moban=replace(moban,"E_seller_name",seller)
moban=replace(moban,"E_qq",qq)
moban=replace(moban,"E_email",email)
moban=replace(moban,"E_first_money",price_first)
moban=replace(moban,"E_easy_infor",easy_infor)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath("shop/"&num&".html"))
fout.WriteLine moban
fout.close
conn.close
set conn=nothing
response.Redirect("admin_right.asp?url=shop.asp&reason=商城添加成功,现在将进入发布商城页面!")
end if
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>shop</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style></head>
<body>
<div>
<div align="center">
<table width="861" border="0" bgcolor="#FFFFFF" class="tb1">
<tr>
<td><table width="861%" border="0">
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><span class="STYLE2">新建商城项目</span></td>
</tr>
</table>
<p class="STYLE8">商城生成的文件默认为admin/shop/...</p></td>
</tr>
<tr>
<td><form name="form1" method="post" action="shop.asp?action=newshop">
<table width="861" border="0" class="STYLE3">
<tr>
<td width="278"><div align="left">商品名称:</div></td>
<td width="573"><label>
<div align="left">
<input name="name" type="text" class="STYLE3" id="name">
</div>
</label></td>
</tr>
<tr>
<td><div align="left">商品分类:</div></td>
<td><div align="left">
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "select * from shop_class"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目!!"
else
%>
<select name="classname" class="STYLE3" id="classname">
<option value="<%=trim(rs("ClassName"))%>" selected><%=trim(rs("ClassName"))%></option>
<%
dim selclass
selclass=rs("ClassName")
rs.movenext
do while not rs.eof
%>
<option value="<%=trim(rs("ClassName"))%>"><%=trim(rs("ClassName"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
<a href="add_lanmu.asp?add=shop">管理/添加</a>栏目</div></td>
</tr>
<tr>
<td><div align="left">商品价格：</div></td>
<td>
<div align="left">
<input name="jiage" type="text" class="STYLE3" id="jiage">
</div></td>
</tr>
<tr>
<td><div align="left">商品图片：</div></td>
<td>
<div align="left">
<input name="pic" type="text" class="STYLE3" id="pic">
(shangdu team推荐你使用网络地址,以免恶意用户上传木马) </div></td>
</tr>
<tr>
<td><div align="left">商品所在地：</div></td>
<td>
<div align="left">
<input name="place" type="text" class="STYLE3" id="place">
</div></td>
</tr>
<tr>
<td><div align="left">出售时间：</div></td>
<td>
<div align="left">
<input name="time_now" type="text" class="STYLE3" id="time_now" value="<%=now%>">
</div></td>
</tr>
<tr>
<td><div align="left">出售截止时间：</div></td>
<td>
<div align="left">
<input name="time_end" type="text" class="STYLE3" id="time_end">
</div></td>
</tr>
<tr>
<td><div align="left">发布商：</div></td>
<td>
<div align="left">
<input name="seller" type="text" class="STYLE3" id="seller">
</div></td>
</tr>
<tr>
<td><div align="left">发布者qq:</div></td>
<td>
<div align="left">
<input name="qq" type="text" class="STYLE3" id="qq">
</div></td>
</tr>
<tr>
<td>发布者电话:</td>
<td><input name="phone" type="text" class="STYLE3" id="phone"></td>
</tr>
<tr>
<td><div align="left">发布者e-mail:</div></td>
<td>
<div align="left">
<input name="email" type="text" class="STYLE3" id="email">
</div></td>
</tr>
<tr>
<td><div align="left">商品信息:</div></td>
<td><div align="left">单击<span class="STYLE8">设计</span>开始输入</div></td>
</tr>
<tr>
<td><div align="left"></div></td>
<td><div align="left">
<iframe id="eWebEditor1" src="eWebEditor/ewebeditor.asp?id=cnWords&style=standard&savefilename=editFirstImageName" frameborder="0" scrolling="no" width="550" height="350"></iframe>
</div></td>
</tr>
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">tag:</td>
<td><label>
<input name="tag" type="text" class="STYLE7" id="tag">
</label></td>
</tr>
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">相关标签:</td>
<td><input name="xiangguan" type="text" class="STYLE7" id="xiangguan"></td>
</tr>
<tr>
<td><div align="left"></div></td>
<td><div align="left"></div></td>
</tr>
<tr>
<td><div align="left">调用前台信息:</div></td>
<td><div align="left"></div></td>
</tr>
<tr>
<td><div align="left">初始价：</div></td>
<td><div align="left">
<input name="price_first" type="text" class="STYLE3" id="price_first">
(初始价作为优惠价,会显示 <span class="STYLE8"><s>300元</s></span> )</div></td>
</tr>
<tr>
<td><div align="left">简单说明：</div></td>
<td><div align="left">
<input name="easy_infor" type="text" class="STYLE3" id="easy_infor" size="50">
</div></td>
</tr>
<tr>
<td>跳转url:</td>
<td><input name="url" type="text" class="STYLE3" id="url" size="50">
(如无特殊情况请不要填写,系统会自动修改)
<input name=cnWords type=hidden ID="cnWords" value="">
<input name=imageNum type=hidden ID="imageNum" value="<%=mImageNum%>">
<input name=editFirstImageName type=hidden ID="editFirstImageName" value=""></td>
</tr>
<tr>
<td> </td>
<td><label></label></td>
</tr>
<tr>
<td> </td>
<td><input name="Submit" type="submit" class="STYLE7" value="我要提交!">
<input name="Submit2" type="reset" class="STYLE7" value="重新修改!"></td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -