<%
'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

%>