<%dim action action=request.QueryString("action") if action="save" then set rs=server.CreateObject("adodb.recordset") rs.Open "select * from webinfo ",conn,1,3 rs("webtitle")=trim(request.Form("webtitle")) rs("weburl")=trim(request.Form("weburl")) rs("keywords")=trim(request.Form("keywords")) rs("description")=trim(request.Form("description")) rs("webname")=trim(request.Form("webname")) rs("webemail")=trim(request.Form("webemail")) rs("address")=trim(request.Form("address")) rs("postcode")=trim(request.Form("postcode")) rs("phone")=trim(request.Form("phone")) rs("mobilephone")=trim(request.Form("mobilephone")) rs("fax")=trim(request.Form("fax")) rs("dibu")=trim(request.Form("dibu")) rs("tjscript")=request.Form("tjscript") rs("webqq")=trim(request.Form("webqq")) rs("qqstate")=trim(request.Form("qqstate")) rs("qqsite")=trim(request.Form("qqsite")) rs("icp")=trim(request.Form("icp")) rs.update rs.close set rs=nothing response.Write "" end if%> <%call log_chk()%>
后台管理： >> 信息添加 >> 系统设置
<%set rs=server.CreateObject("adodb.recordset") rs.Open"select * from webinfo",conn,1,1%>
网站网址：
">
网站标题：
"> (代码中的title)
网站名称：
">
网站底部：
<%=trim(rs("dibu"))%>
在线咨询QQ(腾讯)：
<%=trim(rs("webqq"))%>
如果多个号码每段代码请用英文“||”隔开
客服QQ状：
>打开
value="0">关闭
客服QQ位置：
>靠左
value="right">靠右
优化关键字：
<%=trim(rs("keywords"))%>
如果多个关键字请用英文逗号隔开
描述：
<%=trim(rs("description"))%>
商桥代码：
<%=rs("tjscript")%>
