| |
胶东在线网开通一周年“有奖寄语”征集活动期间，我们收到了来自不同业界，不同地域网民的贺词贺电，大家在对胶东在线以往工作给予肯定的同时，又对我们提出了新的要求，这一切都将成为胶东在线进一步发展的动力。胶东在线网全体工作人员在此向大家表示最诚挚的感谢。
为了保证活动的“公正、公平、公开”性，我们邀请了参加本次寄语活动的郑承清、高平、吴颖杰三位网民共同参与抽奖活动(奖品由中国建设银行、烟台市商业银行提供），现将由他们随机抽取的获奖号码公布如下：
01726931、78619021、28805178、49282473、69465273、75132387
|
|
|
|
尊敬的用户：
在本网留言版留言，请遵守中华人民共和国有关法律、法规，承担一切因您的行为而直接或间接引起的法律责任...请参照 《胶东在线留言版管理条例》。
|
|
|
<%'以下是留言信息显示结果
Public Function getConDB_info_free()
Set Con_info_free=Server.CreateObject("ADODB.Connection")
con_str="DSN=info_free;uid=info_free;pwd=info_free;database=info_free"
Con_info_free.Open con_str
Session("userconn_info_free") = Con_info_free
End Function
Public Function changeStr(str )
str=replace(str," "," ")
str=replace(str,"'","’")
str=replace(str,"<","<")
str=replace(str,vbcrlf,"
")
changeStr=str
End Function%>
<%
pagenum=request("pagenum")
if pagenum="" or not isnumeric(pagenum) then
pagenum=1
end if
pagenum=cint(pagenum)
getConDB_info_free()
strSql="select * from zhounian_jiyu where checked='y' and info_type='2003jiyu' order by info_id desc"
Set RS=Server.CreateObject("ADODB.RecordSet")
rs.cachesize=11
rs.cursortype=1
'on error resume next '出错处理
RS.Open strSql,Session("userconn_info_free")
'rs.movefirst
rs.pagesize=10 '每页显示记录
rs.absolutepage=pagenum ' 当前记录页
%>
<%for j=1 to rs.pagesize '每页显示记录数%>
| 姓名： |
<% response.write (rs("name"))%>
|
<%=rs("person_id")%>
|
<%response.write (rs("sex"))%>
|
职业:<%=rs("career")%> |
填写日期:<%=dateValue(rs("entry_date"))%>
|
| 寄语： |
<% response.write changeStr(rtrim(rs("advice")))%>
|
<%if trim(rs("answer"))<>"" then%>
| 回复： |
<% response.write changeStr(rtrim(rs("answer")))%>
|
<%end if%>
|
<% RS.MoveNext
if rs.eof then exit for
next
%>
|
<%
response.write ("共有:"&rs.recordcount&"条网友寄语， ")
response.write("这是第"&pagenum&"页，共有"&rs.pagecount&"页: " )
for i=1 to rs.pagecount
response.write (""&i&" ")
next
rs.close
set rs=nothing
set session("userconn_info_free")=nothing
%>
|
|
|
