<% '定义日期加零函数 '---------------------------------------------------------------------- Function AddZero(str, n) If Len(str) < n then AddZero = string( n - Len(str), "0") & str Else AddZero = str End if End function '---------------------------------------------------------------------- '---------------------------------------------------------------------- ID = Request.QueryString("id") If ID = "" Then 'call alertAndBack("没有接收到相应参数！") Response.Write("") Response.End() Else If IsNumeric(ID) <> True Then Response.Write("") Response.End() end If end if '---------------------------------------------------------------------- '查询数据库 表 resource '---------------------------------------------------------------------- SelectSQL = "Select * From [resource] Where ID = "&ID set Rs = Server.CreateObject("Adodb.RecordSet") Rs.open SelectSQL, conn, 1, 1 '---------------------------------------------------------------------- %> <% If Rs.eof = True or Rs.bof = True Then Response.Write("") Response.End() Else %>

返回首页 返回资源库首页 " class="a_links">返回资源库目录 <% '给日期加零 '---------------------------------------------------------------------- dim datNow dim intMonth, intDay dim strMonth, strDay dim strNow datNow = Rs("LastUpdatetime") intMonth = month(datNow) intDay = day(datNow) strMonth = AddZero(intMonth, 2) strDay = AddZero(intDay, 2) strNow = year(datNow) & "-" & strMonth & "-" & strDay '---------------------------------------------------------------------- %> <%=Rs("Title")%> （<%=strNow%>） <%response.Write(Rs("Content"))%> <% intKeyWord = Rs("KeyWord") If intKeyWord = "" Then strKeyWord = " " Else strKeyWord = "[标签]："&intKeyWord End If %> <%=strKeyWord%>

<%End if%>