<%
'=================异度空间通用函数=====================
'网站地址:  www.ydspace.org And www.ydspace.net
'老大是:  凌峰				E-Mail: whitefox@ydspace.org
'老二是:  耶律无双			E-Mail: ylws1977@yahoo.com.cn
'老三是:  天下最帅			E-Mail: root@ydspace.org
'老四是:  最坏不是我			E-Mail:
'老五是:  小炎				E-Mail:
'老六是:  欧阳佳俊			E-Mail:
'老幺是:  玄天尊			E-Mail: admin@realhack.org
'================够晕吧??俺站有7个管理员呢,乱哄哄的-_-=====================

'道具中心刷钱Bug修正
Sub UpdateUserInfo(UserWealth,UserCP,UserEP,UserPower,UserMoney,UserTicket)
	Dim cUserInfo
	cUserInfo=Session(Dvbbs.CacheName & "UserID")
	cUserInfo(2)=Now()
	cUserInfo(37)=cUserInfo(37)+Clng(UserMoney)
	cUserInfo(38)=cUserInfo(38)+Clng(UserTicket)
	cUserInfo(21)=cUserInfo(21)+Clng(UserWealth)
	cUserInfo(22)=cUserInfo(22)+Clng(UserEP)
	cUserInfo(23)=cUserInfo(23)+Clng(UserCP)
	cUserInfo(24)=cUserInfo(24)+Clng(UserPower)
	Session(Dvbbs.CacheName & "UserID") = cUserInfo
End Sub

'非法参数过滤
Public Function Checkstr(Str)
	If Isnull(Str) Then
		CheckStr = ""
		Exit Function 
	End If
	Str = Replace(Str,"'","''")
	Str = Replace(Str,"--","－－")
	Str = Replace(Str,";","；")
	Str = Replace(Str,",","，")
	Str = Replace(Str,"(","（")
	Str = Replace(Str,")","）")
	Str = Replace(Str,"0x","Ox")
	Str = Replace(Str,"@","＠")
	Str = Replace(Str,"%","％")
	Str = Replace(Str,"<","＜")
	Str = Replace(Str,">","＞")
	Checkstr = Str
End Function

'通用跳转过程
Sub showmessage(show_message,url_forward)
%>
<table class=tableborder1 cellspacing=1 cellpadding=3 align=center>
  <tr>
    <th height=27 align="center"><%=dvbbs.stats%></th>
  </tr>
  <tr>
    <td class=TableBody1 align=center>
	<br>
	<%=show_message%><br><br>
 	<%if url_forward <> "" then%>
		<a href=<%=url_forward%>>如果您的浏览器没有自动跳转，请点击这里</a><br><br>
		<meta http-equiv="refresh" content="5;url='<%=url_forward%>'">
	<%end if%>
    </td>
  </tr>
</table>
<%
Dvbbs.Footer
response.end
end Sub
'====以下略!因为这个插件里用不到,所以被偶K掉了哈^_^=====
%>