天津医科大学代谢病医院

您现在所在的位置：首页 -> 专家问答

<% If Session("Admin")="Login" Then %> 退出管理 <% Else %> 管理留言 <% End If %> <% If Session("Admin")="Login" Then %> 修改密码 <% End If %>

<% if request("action")="Edit" then Set Rs = Server.CreateObject("ADODB.RecordSet") Sql="Select * From words Where id="&Request.QueryString("id") Rs.Open Sql,Conn,1,1 view2="" if rs("view")=1 then view2="checked" end if %>

编辑留言内容及回复
留言内容：	<%words= rs("words") hh =replace(words,"[/url]","</a>") hh =replace(hh,"[url","<a") hh =replace(hh,"/]",">") response.write hh %>
回复：	<%=Rs("reply")%> > 通过审批
">

<%end if%>

<% if request("ac")="Admin_Login" then %>

管理登陆
用户名：
密码：

<% end if %> <% if request("action")="cx" then%>

查询系统
查询内容

<% end if %> <% if request("action")="Add_New" then%>

留　言
姓名：	*10个字内	选择头像:
性别：	男女
QQ：
主页：
来自：
电子邮箱：	*
	字体大小颜色：
留言内容：	*
	最多字数：已用字数：剩余字数：

<%end if%>
<% nr=request("cxnr") if nr="" then dim nr nr=request.form("cxnr") 'sql="select COUNT(*) as gbcount From words where title like " + nr+ " or words like " +nr 'sql="select COUNT(*) as gbcount From words " sql="select * from words where words not like ('%http%') order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,2 else sql="select * from [words] Where words not like ('%http%') and words like '%"&trim(nr)&"%'order by id DESC" set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,2 end if if rs.eof and rs.bof then 'response.write "

还没有任何留言

" %> 对不起，没有找到您想要的< <%=nr%>> 留言 <% else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage=totalPut \ MaxPerPage else currentpage=totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"zjwd.asp" else if (currentPage-1)*MaxPerPage1 then lou=currentPage*10 end if do while not rs.eof lou=lou+1 words=rs("words") %>

【<%=rs.recordcount-lou+1%>】<%=rs("name")%>

<% If Rs("sex")=1 Then Response.Write "

" Else Response.Write "

" End If %> ">

" target="_blank">

来自:<%=Rs("come")%>" width="16" height="16"> <%=year(Rs("date"))%>年<%=month(Rs("date"))%>月<%=day(Rs("date"))%>日 <% If Session("Admin") = "Login" Then %> <%=Rs("ip")%> &Page=<%=CurrentPage%>">

" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')">

<% end if %>

<%if rs("head")="" then %>

<% else %>

.gif"> <% end if %>

<% if rs("view")=1 then %> <%xx= words xx =replace(words,"[/url]","") xx =replace(xx,"[url","") response.write xx %>

斑竹回复:

<%=rs("reply")%>

<% else%> 本留言需要经过审批才能查看 <%end if %>

<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end sub %> <% function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n=totalnumber \ maxperpage else n=totalnumber \ maxperpage + 1 end if response.write "

" response.write "

　" response.write " 共"&totalnumber&"条行业信息 " if CurrentPage<2 then response.write "首页上一页 " else response.write "首页 " response.write "上一页 " end if if n-currentpage<1 then response.write "下一页尾页" else response.write "下一页 " response.write "尾页" end if response.Write " 页次："& CurrentPage &"/"& n &"页 "& maxperpage &"条/页" response.write " 转到：" response.write "

" end function %>