<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%option Explicit response.charset="utf-8" dim listnum,t,tlnum,totalPut, CurrentPage, TotalPages,filename,filen,thisn,totalnumber Dim ThisID,lmid ThisID=5 lmid=request("id") If lmid="" Or Not IsNumeric(lmid) Then lmid=0 %><% %>

<% filename="?id=" & lmid & "&" showaction %>