📄 modi_shop.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
dim bhx
bhx="1"
if (request("bh")<>"")then
bhx=request("bh")
end if
if request("action")="repare" 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")),"'","''")
url=replace(trim(request("url")),"'","''")
tag=replace(trim(request("tag")),"'","''")
xiangguan=replace(trim(request("xiangguan")),"'","''")
bigclassname=request("classname")
For i = 1 To Request.Form("cnwords").Count
mContent = mContent & Request.Form("cnwords")(i)
Next
mContent = trim(Request.form("cnWords"))
mContent = Replace(mContent,"<script","<sscript")
mContent = Replace(mContent,"/script>","/scripts>")
mimageNum = Request.form("imageNum")
firstImageName = trim(Request.form("editFirstImageName"))
user=request("user")
ok=request("ok")
set rs2=server.createobject("adodb.recordset")
sql2="select * from shops where bh="+bhx
rs2.open sql2,conn,1,3
response.Write("sql2=")
response.Write(sql2)
if name1="" then
response.Redirect("admin_wrong.asp?url=shop_manage.asp&reason=修改失败,你可能没填写商城名称,系统将转入管理页面!")
else
rs2("shop_name")=name1
rs2("shop_infor")=mcontent
rs2("shop_pic")=pic
rs2("tag")=tag
rs2("bigclassname")=bigclassname
rs2("xiangguan")=xiangguan
rs2("shop_money")=jiage
rs2("shop_place")=place
rs2("sell_time")=time_now
rs2("sell_end_time")=time_end
rs2("seller_name")=seller
rs2("seller_qq")=qq
rs2("seller_phone")=phone
rs2("seller_email")=email
rs2("sell_first_money")=price_first
rs2("easy_infor")=easy_infor
rs2("go_to_url")=url
rs2.update
rs2.close
set rs2=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from shops where shop_name='"&bhx&"'"
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/"&bhx&".html"))
fout.WriteLine moban
fout.close
conn.close
set conn=nothing
rs.close
set rs=nothing
end if
response.Redirect("admin_right.asp?url=manage_download.asp&reason=下载修改成功")
end if
sql = "Select * from shops where bh="+ bhx
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>modi_shop</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<div>
<div align="center">
<form name="form1" method="post" action="modi_shop.asp?action=repare&bh=<%=bhx%>">
<table width="861" border="0" bgcolor="#FFFFFF" 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" value="<%=rs("shop_name")%>">
<%=bhx%></div>
</label></td>
</tr>
<tr class="STYLE3">
<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>
</div></td>
</tr>
<tr>
<td><div align="left">商品价格：</div></td>
<td><div align="left">
<input name="jiage" type="text" class="STYLE3" id="jiage" value="<%=rs("shop_money")%>">
</div></td>
</tr>
<tr>
<td><div align="left">商品图片：</div></td>
<td><div align="left">
<input name="pic" type="text" class="STYLE3" id="pic" value="<%=rs("shop_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" value="<%=rs("shop_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="<%=rs("sell_time")%>">
</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" value="<%=rs("sell_end_time")%>">
</div></td>
</tr>
<tr>
<td><div align="left">发布商：</div></td>
<td><div align="left">
<input name="seller" type="text" class="STYLE3" id="seller" value="<%=rs("seller_name")%>">
</div></td>
</tr>
<tr>
<td><div align="left">发布者qq:</div></td>
<td><div align="left">
<input name="qq" type="text" class="STYLE3" id="qq" value="<%=rs("seller_qq")%>">
</div></td>
</tr>
<tr>
<td>发布者电话:</td>
<td><input name="phone" type="text" class="STYLE3" id="phone" value="<%=rs("seller_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" value="<%=rs("seller_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">
<input type="hidden" name="cnWords" value="<%=Server.HTMLEncode(rs("shop_infor"))%>"><iframe ID="eWebEditor1" src="eWebEditor/ewebeditor.asp?id=cnWords&style=standard" 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><input name="tag" type="text" class="STYLE7" id="tag"></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" value="<%=rs("sell_first_money")%>">
(初始价作为优惠价,会显示 <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" value="<%=rs("easy_infor")%>" size="50">
</div></td>
</tr>
<tr>
<td>跳转url:</td>
<td><input name="url" type="text" class="STYLE3" id="url" value="<%=rs("go_to_url")%>" size="50">
(如无特殊情况请不要填写,系统会自动修改)
<input type="hidden" name="newsId" value="<%=newsid%>">
<input name=cnWords2 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>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -