<% leaveword="" email="" title="" content="" if request.Form("leaveword")<>"" then leaveword=request.Form("leaveword") email=request.Form("email") title=request.Form("title") content=request.Form("content") sql="select * from lyb" rs.open sql,con,1,3 rs.addnew rs("leaveword")=leaveword rs("email")=email rs("title")=title rs("content")=content rs("lydate")=date() rs("class")="英文" rs.update rs.close end if currentpage=1 if request("currentpage")<>"" then currentpage=cint(request("currentpage")) end if sql="select * from lyb where class='英文' order by lydate desc" rs.pagesize=4 rs.open sql,con,1,3 if rs.recordcount>0 then rs.absolutepage=currentpage end if %> Dalian University Of Foreign Languages School Of Chinses studies




The message shows
<%rowcount=0 while not rs.eof and rowcount
Topic:<%=rs("title")%>
  <%=replace(rs("content"),chr(13),"
")%>
　　Message person：(<%=rs("leaveword")%> )　　 <%if rs("email")<>"" then%> ">Reply <%end if%>
<%rowcount=rowcount+1 rs.movenext wend%>
HOME <%if currentpage>1 then%> Top <%end if if currentpage Next <%end if%> End 　　This is page<%=currentpage%>　　Totally have <%=rs.pagecount%> page
 
Message person:
E-mail:
Message topic:
Message contents:
 （Attention carriage return）  
 
　　

Copyright　Dalian University Of Foreign Languages School Of Chinses studies
Tel：0411-82801297 Fax：0411-82648152
http://www.dlscs.com　E-mail:scs@dlscs.com
 Address：94 Yan'an Road ,Zhongshan District,Dalian ,P.R.China