求助站长，admin 进来看看

蚂蚁啃骨头 · 发表于 2010-3-31 20:14:56

我在 https://bbs.52jscn.com/viewthrea ... hlight=%B7%B2%C8%CB下了一套凡人的系统，可是在后台设置里面出现这个
Microsoft VBScript 编译器错误 '800a0400'

缺少语句

\wwwroot\1111\Admin\ad_upsystem.asp, line 32

那位兄弟姐妹帮蚂蚁条调整一下好不？谢谢鸟

以下是ad_upsystem.asp的代码：



<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
if request("action")="change" then
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from venshop_system"
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
end if
rs("siteinfo")=request("sitename")&"##"&request("homepage")&"##"&request("web")&"##"&request("logo")&"##"&request("banner")&"##"&request("mail")&"##"&request("tel")&"##"&request("oicq")&"##"&request("oicq_n")&"##"&request("msn")&"##"&request("fax")&"##"&request("code")&"##"&request("ymaddr")&"##"&request("icp")&"##"&request("tongj")&"##"&request("photoh")&"##"&request("ser")&"##"&request("ser_t")&"##"&request("guestorder")&"##"&request("sort")&"##"&request("width")&"##"&request("height")&"##"&request("widtht")&"##"&request("heightt")&"##"&request("lookt")&"##"&request("lookpage")&"##"&request("lookhang")&"##"&request("mail_sever")&"##"&request("mail_user")&"##"&request("mail_pass")&"##"&request("mail_sendmail")&"##"&request("mail_sendname")&"##"&request("mail_type")&"##"&request("tjindex")&"##"&request("tejia")&"##"&request("gun")&"##"&request("commentshow")&"##"&request("baojiashow")&"##"&request("adminshow")&"##"&request("huoshow")&"##"&vbut&"##"&vword&"##"&request("keyword")&"##"&request("company")&"##"&request("showc")&"##"&request("wangwang")
rs("siteinfo")=rs("siteinfo")&"##"&request("yahoo")&"##"&request("huobi")&"##"&request("fuhao")&"##"&request("taobao")&"##"&request("yiqu")&"##"&request("paipai")&"##"&request("bizhong")&"##"&request("danwei")
rs("siteinfo")=rs("siteinfo")&"##"&request("fapiao")&"##"&request("shuidian")&"##"&request("yunfei")&"##"&request("mian")&"##"&request("kucun")&"##"&request("vwidth")&"##"&request("vheight")&"##"&request("dxt")&"##"&request("snt")&"##"&request("jft")
rs("siteinfo")=rs("siteinfo")&"##"&request("simgt")&"##"&request("delt")&"##"&request("admint")&"##"&request("sy_type")&"##"&request("sy_types")&"##"&request("sy_p")&"##"&request("sy_text")&"##"&request("sy_img")&"##"&replace(request("sy_color"),"#","")&"##"&request("sy_font")&"##"&request("sy_size")&"##"&request("sy_b")
rs("siteinfo")=rs("siteinfo")&"##"&request("prot")&"##"&request("wangwang_n")&"##"&request("zengt")&"##"&request("addt")&"##"&request("editt")&"##"&request("delet")&"##"&request("kfa")&"##"&request("kft")
rs.update
rs.close
set rs=nothing
sitedns=lcase(request.servervariables("HTTP_HOST"))
sitename=request("sitename")
sitemail=request("mail")
siteurl="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME")

call editok(editt,"ad_upsystem.asp","ad_upsystem.asp")
response.end
end if
%>
<table border="0" cellspacing="0" cellpadding="5" class="st">
<form method="POST" action="ad_upsystem.asp?action=change" name="form">
<tr><td colspan="2">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td height="26" align="center"><a href="#1">网站联系信息</a></td>
<td align="center" height="26"><a href="#2">网站显示设置</a></td>
<td align="center" height="26"><a href="#3">邮件发送设置</a></td>
<td align="center" height="26"><a href="#4">水印设置</a></td>
<td align="center" height="26"><a href="#5">货币和运费设置</a></td>
<td align="center" height="26"><a href="#6">后台操作习惯设置</a></td>
<td align="center" height="26"><a href="#7">产品显示设置</a></td>
</tr>
</table>
</td></tr>
<tr><td class="sa" colspan="2">  <a name="1">网站联系信息:</a></td></tr>
<tr><td align="right" class="s1" width="150">网站名称:</td>
<td class="s1"><input type="text" name="sitename" size="36" value="<%=sitename%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="网站的标题，如：“凡人网络”"></td></tr>
<tr><td align="right" class="s0" width="150">公司名称:</td>
<td class="s0">
<input type="text" name="company" size="36" value="<%=company%>" class=input></td></tr>
<tr><td align="right" class="s1" width="150">关键字:</td>
<td class="s1">
<input type="text" name="keyword" size="36" value="<%=keyword%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="多个关键字请用,隔开，填写关键字有利于搜索引擎优化"></td></tr>
<tr><td align="right" class="s0" width="150">网站域名:</td>
<td class="s0">
<input type="text" name="homepage" size="36" value="<%=homepage%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="网站的域名不用加http://www.，如：“Ah388.com”"></td></tr>
<tr><td align="right" class="s1" width="150">网店地址:</td>
<td class="s1"><input type="text" name="web" size="36" value="<%=web%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="商城的首页地址，如：“http://Ah388.com/70/”"></td></tr>
      <tr>
         <td width="150" align="right" class="s0">ICP备案号/证书:</td>
         <td class="s0">
<input type="text" name="icp" size="36" value="<%=icp%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="备案完全免费，登录后面地址注册提交网站信息即可！如果您的空间在凡人网络购买，我们会代为备案。"> <a target="_blank" href="http://www.miibeian.gov.cn/">打开信息产业部备案网址</a></td>
      </tr>
      <tr>
         <td width="150" align="right" class="s1">电话:</td>
         <td class="s1">
<input type="text" name="tel" size="36" value="<%=tel%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">传真:</td>
         <td class="s0">
<input type="text" name="fax" size="36" value="<%=fax%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">地址:</td>
         <td class="s1">
<input type="text" name="ymaddr" size="60
" value="<%=ymaddr%>" class=input></td>
      </tr>
<tr>
         <td align="right" class="s0" width="150">邮编:</td>
         <td class="s0">
<input type="text" name="code" size="20" value="<%=code%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">Email:</td>
         <td class="s1"><input type="text" name="mail" size="20" value="<%=mail%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">QQ:</td>
         <td class="s0"><input type="text" name="oicq" size="20" value="<%=oicq%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="注意不同QQ之间用/隔开，如：“723220/729220”"></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">QQ对应名称:</td>
         <td class="s1">
<input type="text" name="oicq_n" size="20" value="<%=oicq_n%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="对应以上QQ，之间用/隔开，如：“客户服务/技术支持”"></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">Msn:</td>
         <td class="s0">
<input type="text" name="msn" size="20" value="<%=msn%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">淘宝旺旺:</td>
         <td class="s1">
<input type="text" name="wangwang" size="20" value="<%=wangwang%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="注意不同旺旺之间用/隔开，如：“xxx/yyy”"></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">旺旺对应名称:</td>
         <td class="s0">
<input type="text" name="wangwang_n" size="20" value="<%=wangwang_n%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="注意不同名称之间用/隔开，如：“xxx/yyy”"></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">QQ和旺旺图标获取方式:</td>
         <td class="s1">
<input type="radio" value="1" name="simgt"<%if simgt=1 then%> checked<%end if%>>
始终显示在线（不管QQ和旺旺是否在线，前台总显示在线）<br>
<input type="radio" value="2" name="simgt"<%if simgt=2 then%> checked<%end if%>>
显示在线状态（显示速度稍慢，同时可能因为客服不在线影响到收益）</td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">雅虎通:</td>
         <td class="s0">
<input type="text" name="yahoo" size="20" value="<%=yahoo%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">淘宝店链接:</td>
         <td class="s1">
<input type="text" name="taobao" size="20" value="<%=taobao%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">易趣店链接:</td>
         <td class="s0">
<input type="text" name="yiqu" size="20" value="<%=yiqu%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">拍拍店链接:</td>
         <td class="s1">
<input type="text" name="paipai" size="20" value="<%=paipai%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">LOGO:</td>
         <td class="s0">
<input type="text" name="logo" size="20" value="<%=logo%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">　</td>
         <td class="s1">
<iframe name="I2" src="upfileother.asp?atype=logo" width="587" height="26" marginwidth="1" marginheight="1" scrolling="no" border="0" frameborder="0"></iframe></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">53KF在线客服账户:</td>
         <td class="s0">
<input type="text" name="kfa" size="20" value="<%=kfa%>">
<select size="1" name="kft">
<option value="1"<%if kft=1 then%> selected<%end if%>>开启</option>
<option value="0"<%if kft=0 then%> selected<%end if%>>关闭</option>
</select> 
<a target="_blank" href="http://www.ah388.com/apply.asp?stype=53kf">
<font color="#FF0000">免费申请53KF在线客服</font></a></td>
      </tr>
<input type="hidden" name="banner" size="20" value="<%=banner%>" class=input>
      <tr>
         <td class="sa" colspan="2">  <a name="2">网站显示设置:</a></td>
      </tr>

      <tr>
         <td align="right" class="s1" width="150">网站统计显示:</td>
         <td class="s1">
<select size="1" name="tongj">
<option value="1"<%if tongj=1 then%> selected<%end if%>>不显示网站统计</option>
<option value="2"<%if tongj=2 then%> selected<%end if%>>显示总访问量</option>
<option value="3"<%if tongj=3 then%> selected<%end if%>>显示小图标</option>
<option value="4"<%if tongj=4 then%> selected<%end if%>>显示88*31图标</option>
<option value="5"<%if tongj=5 then%> selected<%end if%>>显示Flash统计</option>
</select> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="首页左下角显示的统计信息，建议使用“不显示网站统计”"></td>
      </tr>

      <tr>
         <td align="right" class="s0" width="150">浮动客服窗口:</td>
         <td class="s0"><select size="1" name="ser">
<option value="1"<%if ser=1 then%> selected<%end if%>>显示</option>
<option value="0"<%if ser=0 then%> selected<%end if%>>不显示</option>
</select> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="全站右上角浮动QQ客户服务窗口，启用后可以直接在线点击您的QQ与您交谈"></td>
      </tr>

      <tr>
         <td align="right" class="s1" width="150">
浮动客服窗口透明度:</td>
         <td class="s1">
<input type="text" name="ser_t" size="6" value="<%=ser_t%>" class=input>
%
<img border="0" src="Img/ad_help.gif" class="helpimg" alt="QQ在线客服窗口透明度，输入1－100数字，填写100为不透明！"></td>
      </tr>

      <tr>
         <td align="right" class="s0" width="150">未登录定购:</td>
         <td class="s0">
<select size="1" name="guestorder">
<option value="1"<%if guestorder=1 then%> selected<%end if%>>允许</option>
<option value="0"<%if guestorder=0 then%> selected<%end if%>>禁止</option>
</select> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="选择允许：未注册用户可以定购，选择禁止：客户必须注册登录才可以定购"></td>
      </tr>
<tr>
         <td align="right" class="s1" width="150">
商品评论显示模式:</td>
         <td class="s1">
<select size="1" name="commentshow">
<option value="1"<%if commentshow=1 then%> selected<%end if%>>发表即显示</option>
<option value="0"<%if commentshow=0 then%> selected<%end if%>>管理员回复后显示</option>
</select> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="商品详细介绍页面所显示的商品评论信息"></td>
      </tr>
<tr>
         <td align="right" class="s0" width="150">
是否显示报价单:</td>
         <td class="s0">
<select size="1" name="baojiashow">
<option value="1"<%if baojiashow=1 then%> selected<%end if%>>显示</option>
<option value="0"<%if baojiashow=0 then%> selected<%end if%>>不显示</option>
</select> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="网站所有商品报价"></td>
      </tr>
<tr>
         <td align="right" class="s1" width="150">
是否显示发货单:</td>
         <td class="s1">
<select size="1" name="huoshow">
<option value="1"<%if huoshow=1 then%> selected<%end if%>>显示</option>
<option value="0"<%if huoshow=0 then%> selected<%end if%>>不显示</option>
</select></td>
      </tr>
<tr>
         <td align="right" class="s0" width="150">
参数显示位置:</td>
         <td class="s0">
<select size="1" name="showc">
<option value="1"<%if showc=1 then%> selected<%end if%>>显示在商品图片右侧</option>
<option value="0"<%if showc=0 then%> selected<%end if%>>不显示在商品图片右侧</option>
</select></td>
      </tr>

<tr>
         <td align="right" class="s1" width="150">
开启赠品功能:</td>
         <td class="s1">
<select size="1" name="zengt">
<option value="1"<%if zengt=1 then%> selected<%end if%>>开启</option>
<option value="0"<%if zengt=0 then%> selected<%end if%>>关闭</option>
</select></td>
      </tr>

<tr>
         <td align="right" class="s0" width="150">
显示管理进入链接:</td>
         <td class="s0">
<select size="1" name="adminshow">
<option value="1"<%if adminshow=1 then%> selected<%end if%>>显示</option>
<option value="0"<%if adminshow=0 then%> selected<%end if%>>不显示</option>
</select> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="网站底部“管理进入”连接，正式使用建议隐藏，有利于网站安全！"></td>
      </tr>

      <tr>
         <td class="sa" colspan="2">  <a name="3">邮件发送设置</a>:</td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">邮件发送服务器:</td>
         <td class="s1">
<input type="text" name="mail_sever" size="20" value="<%=mail_sever%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="如果不知道SMTP信息，请登录邮箱后查看帮助信息"></td>
      </tr>
<tr>
         <td align="right" class="s0" width="150">用户名:</td>
         <td class="s0">
<input type="text" name="mail_user" size="20" value="<%=mail_user%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="企业邮箱一般为邮箱全称，免费邮箱一般为@前面部分"></td>
      </tr>
<tr>
         <td align="right" class="s1" width="150">密码:</td>
         <td class="s1">
<input type="password" name="mail_pass" size="20" value="<%=mail_pass%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">发件人邮箱:</td>
         <td class="s0">
<input type="text" name="mail_sendmail" size="20" value="<%=mail_sendmail%>" class=input> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="如果您的服务器需要登录验证，请正确填写，否则无法发信"></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">发件人姓名:</td>
         <td class="s1">
<input type="text" name="mail_sendname" size="20" value="<%=mail_sendname%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">发送组件选择:</td>
         <td class="s0">
<select size="1" name="mail_type">
<option value="0"<%if mail_type=0 then%> selected<%end if%>>关闭邮件发送</option>
<option value="1"<%if mail_type=1 then%> selected<%end if%>>Jmail</option>
<option value="2"<%if mail_type=2 then%> selected<%end if%>>ObjCDOMail</option>
<option value="3"<%if mail_type=3 then%> selected<%end if%>>Aspemail</option>
</select> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="推荐Jmail，服务器必须支持相应的组件才可以使用"></td>
      </tr>

      <tr>
         <td class="sa" colspan="2">  <a name="4">水印设置</a>:</td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">组件选择:</td>
         <td class="s1">
<select size="1" name="sy_type">
<option value="close"<%if sy_type="close" then%> selected<%end if%>>关闭</option>
<option value="aspjpeg"<%if sy_type="aspjpeg" then%> selected<%end if%>>aspjpeg</option>
</select>  <img border="0" src="Img/ad_help.gif" class="helpimg" alt="请确认您的服务器是否支持ASPJPEG组件"></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">水印形式:</td>
         <td class="s0">
<select size="1" name="sy_types">
<option value="img"<%if sy_types="img" then%> selected<%end if%>>图片</option>
<option value="text"<%if sy_types="text" then%> selected<%end if%>>文字</option>
</select></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">位置:</td>
         <td class="s1">
<select size="1" name="sy_p">
<option value="0" <%if sy_p=0 then%>selected<%end if%>>左上</option>
<option value="1" <%if sy_p=1 then%>selected<%end if%>>左下</option>
<option value="2" <%if sy_p=2 then%>selected<%end if%>>居中</option>
<option value="3" <%if sy_p=3 then%>selected<%end if%>>右上</option>
<option value="4" <%if sy_p=4 then%>selected<%end if%>>右下</option>
</select></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">文字:</td>
         <td class="s0">
<input type="text" name="sy_text" size="20" value="<%=sy_text%>" class=input></td>
      </tr>
<tr>
         <td align="right" class="s1" width="150">图片:</td>
         <td class="s1">
<input type="text" name="sy_img" size="20" value="<%=sy_img%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">　</td>
         <td class="s0">
　<iframe name="I1" src="upfileother.asp?atype=sy_img" width="587" height="26" marginwidth="1" marginheight="1" scrolling="no" border="0" frameborder="0"></iframe></td>
      </tr>
      <tr>
         <td align="right" class="s1" width="150">字体颜色:</td>
         <td class="s1">
<input type="text" name="sy_color" size="20" value="<%=sy_color%>" class=input> 常见颜色代码：<font color="#FF0000">红色FF0000</font>
黑色000000 <font color="#008000">绿色008000</font> <font color="#0000FF">
蓝色0000FF</font> <font color="#FFC03E">黄色FFFF00</font>
<font color="#800080">紫色800080</font></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">字体:</td>
         <td class="s0">
<input type="text" name="sy_font" size="20" value="<%=sy_font%>" class=input>
常用中文字体：<span style="font-size: 14px">宋体 <font face="黑体">黑体</font>
<font face="隶书">隶书</font> <font face="楷体_GB2312">楷体</font> </span>
<font face="幼圆"><span style="font-size: 14px">幼圆</span></font>；
常用英文字体：<font face="Arial">Arial</font> <font face="Verdana">Verdana</font></td>
      </tr>
<tr>
         <td align="right" class="s1" width="150">字体大小:</td>
         <td class="s1">
<input type="text" name="sy_size" size="20" value="<%=sy_size%>" class=input></td>
      </tr>
      <tr>
         <td align="right" class="s0" width="150">是否加粗:</td>
         <td class="s0">
<select size="1" name="sy_b">
<option value="False"<%if sy_b="False" then%> selected<%end if%>>否</option>
<option value="Ture"<%if sy_b="Ture" then%> selected<%end if%>>是</option>
</select></td>
      </tr>


      <tr>
         <td class="sa" colspan="2">  <a name="5">货币和运费设置</a>:</td>
      </tr>
<tr>
         <td align="right" class="s1" width="150">货币类型:</td>
         <td class="s1">
<input type="text" name="huobi" size="9" value="<%=huobi%>" class=input>  <img border="0" src="Img/ad_help.gif" class="helpimg" alt="如：人民币、美元、欧元等，不显示在前台"></td>
      </tr>
<tr>
         <td align="right" class="s0" width="150">货币符号:</td>
         <td class="s0">
<input type="text" name="fuhao" size="9" value="<%=fuhao%>" class=input>  <img border="0" src="Img/ad_help.gif" class="helpimg" alt="如：￥、$、

蚂蚁啃骨头 · 发表于 2010-4-1 22:18:47

为了不扰乱会员对源码的测试，有问题咨询右侧客服不要直接回复，否则视为非法信息屏蔽会员ID！

求助站长，admin 进来看看

		自动登录	找回密码
密码			会员注册