|
|
|
| |
|
<%
dim aid
aid=trim(request("aid"))
dim conn,rs,strsql,atitle,acontent
set conn=opendb()
set rs=server.CreateObject("adodb.recordset")
strsql="select * from tb_questionandanswer where article_id='" & processquotes(aid) & "'"
rs.open strsql,conn,1,1
if not rs.eof then
atitle=rs("article_title") : acontent=rs("article_content")
else
atitle="没有查找到指定的问题数据！" : acontent=" "
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
| <%=atitle%> |
| <%=acontent%> |
 |
|
|
|
|
