% id=request.QueryString("id") If id="" Then server_v40=Request.ServerVariables("QUERY_STRING") id=Int(replace(replace(server_v40,"/",""),".html","")) End If Call ReadNews() %> <% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function%>
|
|