%news_id=Request.QueryString("id")
function htmlencode2(str) '×a?ˉ×?·?′?
if isNULL(str) then
htmlencode2=""
exit function
end if
dim result
result=str
result=replace(result,chr(13)," ")
result=replace(result," ",chr(9))
result=replace (result,chr(9),"????")
htmlencode2=result
end function
if news_id="" or not isnumeric(news_id)then
Response.Write "
??2??e!??D??¢2?′??ú?òò?é?3y!
"
else
news_id=cint(news_id)
sqlstr="select t_news_sort.newsort as boardname,t_news_purpose.* from t_news_purpose,t_news_sort where t_news_purpose.newsort=t_news_sort.id and t_news_purpose.id=" & news_id
set myrs=server.CreateObject("adodb.recordset")
myrs.Open sqlstr,conn,1,1
if myrs.RecordCount<>0 then
%>