<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>voice6 V.7</TITLE>
<META http-equiv=Content-Type content="text/html; charset=UTF-8">
<META http-equiv=Content-Language content=ar-sa>
<Script language="VBScript">
PUBLIC ugid_, upass_, unick_, ucheck_, uCateID_
ugid_ = 0
unick_ = ""
upass_ = ""
ucheck_ = ""
uCateID_ = ""
SUB login
opencate 1, 7
END SUB
SUB logout
unick_ = ""
upass_ = ""
logouttab.style.display = "block"
loginedtab.style.display = "none"
END SUB
SUB opencate(sidx, cateid)
IF uid.value = "" THEN MsgBox "أكتب أسمك قبل الدخول" : EXIT SUB
IF uid.value<>"" THEN
unick_ = uid.value
ucheck_ ="Y"
uCateID_ = cateid
userid.innerText = unick_
logouttab.style.display = "none"
loginedtab.style.display = "block"
IF sidx > 1 or sidx < 1 THEN sidx = 1
url = "voice1.aspx?g=" & cateid
url = url & "&n=" & unick_
window.open url, "_blank", "width=788,height=544,toolbar=no,top=0,left=0,location=no,directories=no,status=yes,menubar=no,scrollbars=no,resizable=yes"
END IF
END SUB
SUB openadmin
window.location.href = "admin.aspx"
END SUB
</Script>
</HEAD>
<BODY text=#ffffff vLink=#000000 aLink=#000000 link=#000000 bgColor="#FF6699" leftMargin=0 topMargin=10 marginwidth="0" marginheight="0">
<div align="center">
<table id="logouttab" width="200" border="0">
<TR>
<TD align=middle height="18">
<font face="Tahoma"size="2" color="#000000">
<span lang="ar-sa">أدخل اسمك</span></font></TD>
</tr>
<tr>
<td><div align="center">
<INPUT Enabled name=uid style="BORDER-RIGHT: 1px outset; BORDER-TOP: 1px outset; FONT-SIZE: 9pt; BORDER-LEFT: 1px outset; BORDER-BOTTOM: 1px outset; BACKGROUND-COLOR: #f1f1f1; TEXT-ALIGN: center" maxLength=25 size=25>
</div></td>
</tr>
<tr>
<td><div align="center"><FONT face=Tahoma>
<INPUT Enabled class=form style="BORDER-RIGHT: #000000 1px outset; BORDER-TOP: #000000 1px outset; BORDER-LEFT: #000000 1px outset; COLOR: #000000; BORDER-BOTTOM: #000000 1px outset; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: #FF6699" onclick="vbscript:opencate 1, 7" tabIndex=1 type=submit value="ادخل الدردشة"20">
</FONT></div>
</td>
</tr>
<tr>
<td align="center" height="5">
</tr>
<tr>
<td><div align="center">
<INPUT Enabled type="button" style="BORDER-RIGHT: #000000 1px outset; BORDER-TOP: 1px outset; FONT-SIZE: 12px; BACKGROUND: #6e132b; BORDER-LEFT: 1px outset; WIDTH: 130px; COLOR: #000000; BORDER-BOTTOM: 1px outset; FONT-FAMILY: Tahoma; BORDER-DOWN: 1px solid; BACKGROUND-COLOR: #FF6699" onclick="VBScript:openadmin" value="دخول الاعضاء والمراقبين">
</div></td>
</tr>
</table>
<table id="loginedtab" style="font-family: Tahoma; font-size: 9pt; display:none" height=100 border=0 bordercolor="lightblue" bordercolordark="#FFFFFF" width="200">
<tr>
<td> <div align="center">أسمك الحالي <span id="userid"><font color="#FFFF00">##UNICK##</font></span></div></td>
</tr>
<tr>
<td valign=top width=200> <div align="center"><br>
<br>
<input class=form type="button" name="btgo" value="خروج" style="BORDER-RIGHT: #000000 1px outset; BORDER-TOP: #000000 1px outset; BORDER-LEFT: #000000 1px outset; COLOR: #000000; BORDER-BOTTOM: #000000 1px outset; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: #FF6699" onClick="VBScript:logout">
</div></td>
</tr>
</table>
</div>
</BODY></HTML>
الأربعاء مايو 07, 2008 7:12 am
