function.asp

一个赌大小的游戏

<%
'Designed By L.C.H
'调用东东
'Http://www.ywask.com
%>
<%
'L.C.H-001建立连接数据库记录
Function RsName(Rs_Name,Sql,A,B)
Set Rs_Name=Server.CreateObject("Adodb.RecordSet")
Rs_Name.open Sql,conn,A,B
End Function
'************************************************************************
'L.C.H-002释放记录集
Sub CloseRs()
rs.close
set rs=nothing
End Sub
'************************************************************************
'L.C.H-003释放conn
Sub CloseConn()
conn.close
set conn=nothing
End Sub
'************************************************************************
'L.C.H-004显示错误提示且返回上一页
Function ShowError(a)
response.write("<script language=javascript>alert('"&a&"');javascript:history.go(-1)")
response.write("</script>")
response.end()
End Function
'************************************************************************
'L.C.H-005显示错误提示且重新载入另一页
Function ShowErrorTo(a,b)
response.write("<script language=javascript>alert('"&a&"');")
response.write("this.location.href='"&b&"';</script>")
response.end()
End Function
'************************************************************************
'L.C.H-006显示错误提示且关闭该窗口
Function ShowErrorClose(a)
response.write("<script language=javascript>alert('"&a&"');")
response.write("javascript:window.close();</script>")
response.end()
End Function
'************************************************************************
'L.C.H-007分页调用
Function PageGo(sql)
response.write "<table width='99%' border='1' align='center' cellPadding='0' cellSpacing='0' bordercolor='#71CC71' bgcolor='#E9F8E9' class='12'>"
response.write "<form method=Post action='Index.asp?"&sql&"'>"
response.write "<tr><td height='24' bordercolor='#E9F8E9'><div align='center'>"
   If currentpage > 1 Then
      response.write "<a href='Index.asp?"&sql&"page="+cstr(1)+"'><font color='#ff0000'>首页</font></a><font color='#333333'><b>-</b></font>"  
      Response.write "<a href='Index.asp?"&sql&"page="+Cstr(currentpage-1)+"'><font color='#ff0000'>前页</font></a><font color='#333333'><b>-</b></font>"
   Else
      Response.write "<font color='#333333'>首页-</font>"
      Response.write "<font color='#333333'>前页-</font>"      
   End if
   If currentpage < rs.PageCount Then
      Response.write "<a href='Index.asp?"&sql&"page="+Cstr(currentPage+1)+"'><font color='#ff0000'>后页</font></a><font color='#333333'><b>-</b></font>"
      Response.write "<a href='Index.asp?"&sql&"page="+Cstr(rs.PageCount)+"'><font color='#ff0000'>尾页</font></a>&nbsp;&nbsp;"
   Else
      Response.write "<font color='#333333'>后页-</font>"
      Response.write "<font color='#333333'>尾页</font>&nbsp;&nbsp;"       
   End if
Response.write "<font color='#333333'>页次:</font>" & "<font color=#ff0000 face='Geneva, Arial, Helvetica, sans-serif'>" & Cstr(CurrentPage) &  "</font>" & "<font color='#333333' face='Geneva, Arial, Helvetica, sans-serif'>/" & Cstr(rs.pagecount) & "</font>&nbsp;"
Response.write "<font color=#ff0000 face='Geneva, Arial, Helvetica, sans-serif'>" & Cstr(MaxPerPage) & "</font>" & "<font color='#333333' face='Geneva, Arial, Helvetica, sans-serif'>条/页&nbsp" & "共</font>" & "<font color=#ff0000 face='Geneva, Arial, Helvetica, sans-serif'>" & Cstr(rs.RecordCount) & "</font>" & "<font color='#333333'>条信息</font>&nbsp;&nbsp;"
response.write "<font color='#333333'>转到：</font><input type='text' name='page' size=4 maxlength=4 class='Input' value="&Currentpage&">&nbsp;"
response.write "<input type='submit'  value='转到'  name='cndok' class='button'></span>&nbsp;&nbsp;"   
response.write "</div></td></tr></form></table>"
End Function
'************************************************************************
'L.C.H-008禁止外部提交
Sub Remote()
if not (instr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables ("SERVER_NAME"),1)=8) then
	Call ShowError("参数错误！")
end if 
end Sub
'************************************************************************
'L.C.H-010是否为数字
Function IsDigit(a)
	if isnumeric(a)=false then
		Call ShowError("参数错误！")
	end if
end Function
'************************************************************************
'L.C.H-011传递ID的有效性
Function Isid(a)
	if a="" or isnumeric(a)=false then
		Call ShowError("参数错误！")
	end if
end Function
'************************************************************************
'L.C.H-012关闭当前弹出窗口，并且刷新父窗口
Sub Refresh()
	response.write("<script language='javascript'>")
	response.write("alert('操作成功！');")
	response.write("opener.location.reload();")
	response.write("top.close();")
	response.write("</script>")
	response.end()
end sub 
'************************************************************************
'L.C.H-013打开弹出窗口，并且刷新父窗口
Sub Refresh2()
	response.write("<script language='javascript'>")
	response.write("opener.location.reload();")
	response.write("</script>")
end sub 
'************************************************************************
'___________________赌大小结果判断
Function BSResult(a) 
	select case a
		case 3,4,5,6,7,8,9,10
		a=1
		case 11,12,13,14,15,16,17,18
		a=2
	end select
End Function
'___________赌大小后，显示庆祝语言
Function BSText1(a,abc)
	abc=4
	randomize
	abc=Int(abc*rnd)
	select case abc
		case 0
		a="你猜对了，给你一颗棒棒糖吃"
		case 1
		a="哇，猜的这么准，你没出千吧"
		case 2
		a="居然被你答对了，肯定是凑巧"
		case 3
		a="完全正确，你很有赌徒的潜质"
	end select
End Function
'___________赌大小后，显示失败语言
Function BSText2(a,c) 
	abc=4
	randomize
	abc=Int(abc*rnd)
	c=abc+4
	select case abc
		case 0
		a="你答错了，看我怎么打你PP"
		case 1
		a="唉，又错了，你真的好笨哦"
		case 2
		a="哥们，这么简单你都猜不对"
		case 3
		a="哈哈，你又栽在我手里了哦"
	end select
End Function

%>