<%@ LANGUAGE="VBSCRIPT" %> <% DbPath = SERVER.MapPath("../database/topboy-2002.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath %> <% result=Instr(1,request.ServerVariables("http_referer"),request.servervariables("http_host"),1) if result = 0 or result = null then response.redirect "manager-login.asp" end if if session("sid") <> "top" then response.redirect "manager-login.asp" end if set rs=server.createobject("adodb.recordset") sqltext="select * from topboy_type" rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext if request("hf") = "y" then vremark=replace(request("vremark"),vbcrlf,"
") vremark=replace(vremark,"'","’") sqltext="insert into topboy_message (buy,show,mdate,mtype,title,copy,price,content) values('"& request("buy") &"','"& request("show") &"',date(),'"& request("mtype") &"','"& request("title") &"', '"& request("copy") &"' ,'"& request("price") &"','"& vremark &"')" conn.execute sqltext response.redirect "manager-news-manage.asp" response.end else %>


发布信息>>>

信息类别：
信息属性：			是否作为销售商品：: Y N / 是否显示于首页：: Y N
信息标题：
参考价格：
成交价格：
信息内容:

带*号的项目为必需填写的项目；

在详细说明中无需手动添加空格，程序会自动为您在每个段落开头添加空格；

在详细说明中如果要加入图片则用以下格式： <img src="图片路径" width="宽度像素" height="高度像素" aligh="方向">
如： <img src="photos/china/yunnan/kunming-test-1.jpg" align="right">

在新闻内容中如果要加入链接则用以下格式： <a href="链接地址" target="_blank">链接名称</a>

<% end if %>