dispbbs.aspʾסַķ

dispbbs.aspļ

1ҵ
Dim k,rndnum,TopicAddata,Topic_Ads,UserSign,TopicBody
ں
,userid˶ţ

2ҵ
Response.Write SQL(40,i)

Response.Write "','"
Response.Write fulladdress(userid)

3β%>ǰд룺
function fulladdress(userid)
dim housedb,connhouse,constr,sucmsg
housedb="data/house.mdb"   'ݿ
Set connhouse = Server.CreateObject("ADODB.Connection")
constr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(housedb)
connhouse.Open constr
dim sql,rslive
sql="select streetname+address as fulladdress,a.houseid from live a,street b,house c,[user] d where a.houseid=c.houseid and c.streetid=b.streetid and a.userid=d.userid and d.username='" & username & "'"
set rslive=connhouse.execute(sql)
if rslive.eof and rslive.bof then
 fulladdress="޼ҿɹ飬¶޽ͷ"
else
 fulladdress="<a href=z_house_visit.asp?houseid=" & rslive("houseid") & " target=_blank>" & rslive("fulladdress") & "</a>"
end if
rslive.close
set rslive=nothing
End Function

4̨ģܹ->ҳģ(page_dispbbs)->->template.html(2)ҵ
&nbsp;&nbsp;ע᣺{$regdate}<BR>

{$fulladdress}

5̨ģܹ->ҳģ(page_dispbbs)->->template.html(4)
ڵһҵLockPageں,fulladdress(˶)
ҵ
str = str.replace(/{\$userep}/gi,userEP);

str = str.replace(/{\$fulladdress}/gi,'&nbsp;&nbsp;סַ'+fulladdress+'<br>');



dispuser.aspʾסַķ

1β%>ǰд
function fulladdress(userid)
dim housedb,connhouse,constr,sucmsg
housedb="data/house.mdb"   'ݿ
Set connhouse = Server.CreateObject("ADODB.Connection")
constr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(housedb)
connhouse.Open constr
dim sql,rslive
sql="select streetname+address as fulladdress,a.houseid from live a,street b,house c,[user] d where a.houseid=c.houseid and c.streetid=b.streetid and a.userid=d.userid and d.username='" & username & "'"
set rslive=connhouse.execute(sql)
if rslive.eof and rslive.bof then
 fulladdress="޼ҿɹ飬¶޽ͷ"
else
 fulladdress="<a href=z_house_visit.asp?houseid=" & rslive("houseid") & " target=_blank>" & rslive("fulladdress") & "</a>"
end if
rslive.close
set rslive=nothing
End Function

2ҵ'̳Բ

dim userid


3ҵ
TempPart3=Replace(TempPart3,"{$UserGroup}",UserInfo(18))

TempPart3=Replace(TempPart3,"{$fulladdress}",fulladdress(userid))

4̨ģܹ->ҳģ(page_dispuser)->->template.html(3)
ҵ
<tr> 
<td class=tablebody1 align=right>עڣ</td>
<td class=tablebody1><b>{$UserJoinDate}</b></td>
<td class=tablebody1 align=right>ϴε¼</td>
<td class=tablebody1><b>{$UserLastLogin}</b></td>
</tr>

<tr> 
<td class=tablebody1 align=right>ס  ַ</td>
<td class=tablebody1><b>{$fulladdress}</b></td>
<td class=tablebody1 align=right></td>
<td class=tablebody1></td>
</tr>


ʾķ
inc/Dv_ClsMain.aspļ
ҵ
IsTopTable = 1
һ֮ӣ
		%>
<table align=center width=98%>
<tr><td width=100%>
<iframe name="ad" frameborder=0 width=100% height=16 scrolling=no src=z_house_jiyu.asp></iframe>
</td></tr>
</table>
<%


̨ӷ
̨ģܹ->ҳģ(page_admin)->->template.html(0)
ҵ
̳˵</a>
ں
||@@<a href=z_house_admin.asp target=main></a>