inc.asp

都市星空BBS系统 v1.1(SQL)

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
'判断邮件地址是否正确函数,错误则返回0
function EmailField(fTestString) 
	TheAt = Instr(2, fTestString, "@")
	if TheAt = 0 then 
		EmailField = 0
	else
		TheDot = Instr(cint(TheAt) + 2, fTestString, ".")
		if TheDot = 0 then
			EmailField = 0
		else
			if cint(TheDot) + 1 > Len(fTestString) then
				EmailField = 0
			else
				EmailField = -1
			end if
		end if
	end if
end function 

'处理出错信息
sub show_error(msg)
if isempty(msg) then
msg="未知原因"
end if
%>
<script language="javascript">
mess="出错了\n" + "<%=msg%>";
alert(mess);
history.go(-1);
</script>
<%
Response.Write msg
Response.End 
end sub

'处理出错信息，采用页面返回
sub webshow_error(msg)
if isempty(msg) then
msg="未知原因"
end if
Response.Write msg
Response.End 
end sub

'转化字符串
function htmlEncode(Str)
	if isNULL(str) then
	htmlencode=""
	exit function
	end if

	dim result
	result=str
  
	result=replace (result,"<","&lt;")
	result=replace (result,">","&gt;")
	result=replace(result,chr(13),"<br>")
	result=replace (result,"&","&amp;")
	result=replace(result,"    ",chr(9))
	result=replace (result,chr(9),"　　")

	htmlencode=result
 end function
%>
<%
set rsboard=server.createobject("adodb.recordset")
sqltext="select db_board.boardid,db_board.boardname,db_board.boardmaster,db_user.id,db_user.username,db_user.name from db_board,db_user order by boardid asc"
rsboard.open sqltext,conn,1,1
%>