<%
on error resume next
if request("AnsKey") ="" then
SQL="Select * from Opinion where SerialNo="&request("SerialNo")
set RS=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,2,2
rs("ReadTimes") = RS("Readtimes") +1
RS.Update
Session("Subj")=RS("Subject")
Session("Quest")=RS("Qcontent")
Session("SerialNo")=RS("SerialNo")
RS.Close
end if
if Request("Anskey") = "" then
SQL="SELECT * from Reply where SerialNo="& request("SerialNo") &"and Ans like '%" &request("Anskey")&"%'"
end if
set RS=conn.execute(SQL)
Session("ActionASP")="Content"
%>
內容>>回費因曼首頁