| 林间漫步： |
<%
xgid=replace(request("id")," ","")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from xg_tree where id="&xgid
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write ""
response.end
else
password=rs("password")
if rs("sort")=1 then
sortname="爱情"
elseif rs("sort")=2 then
sortname="学业"
elseif rs("sort")=3 then
sortname="事业"
elseif rs("sort")=4 then
sortname="生活"
else
sortname="梦想"
end if
%>
<%
Function ahtcy(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for j = 1 to x
if asc(mid(txt,j,1)) < 0 or asc(mid(txt,j,1)) >255 then
y = y + 2
else
y = y + 1
end if
if y >= length then
txt = left(trim(txt),j)
exit for
end if
next
ahtcy= txt
else
ahtcy= ""
end if
End Function
%>
<%
Randomize(Timer())
SQL = "SELECT TOP 10 id,name,content FROM xg_tree ORDER BY Rnd(-(ID + " & Int((10000 * Rnd) + 1) & "))"
Set RS2 = Server.CreateObject("ADODB.RecordSet")
RS2.Open SQL,Conn,1,1
If Not RS2.EOF Then
RS2.MoveFirst
For I = 1 To RS2.RecordCount
Response.Write "" & RS2("name") & "： "
Response.Write ahtcy(RS2("content"),30) & "
"
Response.Write ""
RS2.MoveNext
Next
End If
RS2.Close
Set RS2 = Nothing
%>
|
|
| 树苗编号： |
<%=rs("id")%> |
| 树苗地址： |
|
|
|
| 树的主人： |
<%=rs("name")%> |
| 树 林： |
<%=sortname%>林区 |
| 种树日期： |
<%=rs("time")%> |
| 浇 水 量： |
<%=rs("hits")%> |
| 最后浇水： |
<%=rs("lasttime")%> |
| 愿 望： |
<%
content=replace(rs("content"),chr(13),"
")
content=replace(content," "," ")
response.write content
%>
|
|
<%if request("edit")="del" or request("edit")="password" then%>
<%else%>
|
<%end if%>
|
|
