")
response.end
end if
dim id
id=request("id")
Set RS = Server.CreateObject("ADODB.RecordSet")
function UBBCode(strContent,sq)
dim re
dim repic
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
'修改以改變圖片
re.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])"
repic=sq&"$2"
'內表格,但圖片多的時候會亂
stable="
")
'無圖片顯示
'strContent=re.Replace(strContent,"看圖")
set re=Nothing
UBBCode=strContent
end function
%>
时时调整20分钟一期
<%call wdim2()%>
<%
spastr=" "
sql="select * from zwgknr where id="& id
'pic="depjieshaopic"
rs.Open sql, Conn, 0, 2
nr=rs("nr")
name=rs("name")
yd=rs("yd")+1
sj=rs("shijian")
sj1=now()
sj1=FormatDateTime(dateadd("d",-150,sj1),2)
ifhtml=rs("ifhtml")
htmlfile=rs("htmlfile")
shtmlfile="/dizhendownfile/"&htmlfile
afile=rs("afile")
sfile=""
if afile<>"" then
sfile="/dizhendownfile/"&afile
sfile=""&afile&""
end if
if (id>90 and id<139) then
nr=spastr & Replace(nr,vbcrlf," ")
nr=replace(nr,"VbV","'")
nr=ubbcode(nr,pic)
end if
%>