qollar.asp

1.添加留言：带*号项为必填项

<%
dim startimes,conns,connstrs,dbs
dim qid,webname
startimes = Timer()
dbs = "\database\#sunbtob.asp"
Set conns = Server.CreateObject("ADODB.Connection")
connstrs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&dbs&"")
conns.Open connstrs
%>

<%set rss=server.CreateObject("adodb.recordset")
            rss.Open "select top 1 * from qollar where id=1",conns,1,1
            qid=trim(rss("qid"))
            webname=trim(rss("webname"))
			%>
<SCRIPT id='pworm_im_id' src='http://im.pworm.com/js/web/pworm_im.js?id=<%=qid%>&ti=<%=webname%>'></SCRIPT>
<%rss.Close
  set rss=nothing
%>