<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'转换ID
function makeid(types,action,id)
Dim dist
	id = Cint(id)
	dist = ""
	if types = "tch" then
		if action = "in" then
			dist = (id + 10000)/2
		else
			dist = id*2 - 10000
		end if
	else
		if action = "in" then
			dist = (id + 9999)/2
		else
			dist = id*2 - 9999
		end if
	end if
makeid = Cint(dist)
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'过滤<>
function html(dist)
html = replace(replace(replace(dist,"<","&lt;"),">","&gt;"),chr(13),"　　<br>")
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Session检测
Sub Check_Session(types)
Dim Session_Name
Session_Name = types & "_ID"
If IsEmpty(Session(Session_Name)) Then
response.write"<SCRIPT language=JavaScript>alert('    请登陆先！');</SCRIPT>"
Server.Transfer("index.asp")
End If
end Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>