ورود

View Full Version : سوال: تبدیل کدهای client به server


farah
چهارشنبه 25 شهریور 1388, 12:45 عصر
سلام دوستان میشه کمکم کنید من یک برنامه به صورت کلاینت نوشتم ولی باید تبدیل به سرور کنم چه کاری باید انجام دهم این کد برنامه من هست ممنون میشم که کمک کنید .

<html dir=rtl>
<meta http-equiv="Content-Language" content="fa">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<%@ codepage = 1256 %>
<head>
<title>کد دیجیت بانک ملی</title>
</head>
<body bgcolor="#BFD9FF">
<FORM METHOD=POST action=Cdigit.asp >
</FORM>
<div align="center">
<table border="0" width="91%" id="table1" height="99">
<tr>
<td height="68" width="33%">&nbsp;</td>
<td height="68" width="32%">
<p align="center">
<img border="0" src="Pictures/Site/pdigit.gif" width="281" height="34"></td>
<td height="68" width="33%">&nbsp;</td>
</tr>
<tr>
<td height="68" colspan="3">&nbsp;<p align="right">
<font face="Tahoma" size="2" color="#0000FF">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<span lang="fa">
&nbsp;</span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span lang="fa">
برای دیدن کد دیجیت بانک ملی خود شماره دانشجویی خود را وارد کرده و
دکمه انجام عملیات را کلیک کنید</span></font><font face="Tahoma" size="2" color="#0000FF"><span lang="en-us">
.</span></font></p>
<p>&nbsp;</td>
</tr>
<tr>
<td height="43" width="33%">&nbsp;</td>
<td height="43" width="32%" align="center">
<blockquote>
<blockquote>
<p align="center" dir="ltr">
<input NAME="TextBox1" size="15" dir="rtl"></p>
</blockquote>
</blockquote>
</td>
<td height="43" width="33%">&nbsp;</td>
</tr>
<tr>
<td width="33%">&nbsp;</td>
<td width="32%" align="center">
<INPUT TYPE="button" NAME="CMDBUTTON1" font="B Koodak" size="3"color="#FFFFFF" VALUE="انجام عملیات " LANGUAGE="VBScript" OnClick="SHOWMESSAGE" style="background-color:#0066CC; color:#FFFFFF; font-family:Tahoma; font-size:10px; font-weight:bold" dir="rtl"></td>
<td width="33%">&nbsp;</td>
</tr>
<tr>
<td width="33%">&nbsp;</td>
<td width="32%" align="center">
<blockquote>
<blockquote>
<p align="center" dir="ltr">
</font>
</p>
</blockquote>
</blockquote>
</td>
<td width="33%">&nbsp;<p>&nbsp;</td>
</tr>
</table>
</div>
<SCRIPT LANGUAGE="VBScript">
<!--Option Explicit

Sub SHOWMESSAGE()
Dim h,i,L,k,r
Dim str
dim s,le
dim sum,arr
sum = 0
k = 0
h=0
str=Trim(TextBox1.VALUE)
L=Len(TextBox1.VALUE)

If L > 15 Then
MsgBox"شماره دانشجوئی شما اشتباه است "
' TextBox1.value =" "
Else
if L=0 Then
MsgBox"شماره دانشجوئی خود را وارد کنید "
END If
End If

arr= Array ("8","7","6","5","4","3","2","1","9","10","11","12","13","14","15")
For i=0 to L-1
h=Cint(Right(str,1))
sum = sum + ( h * arr(k+i))
s=InstrRev(str,h,-1,1)
le=s-1
str=left(str,le)
next
r=sum Mod 99
' If r < 15 Then
' r=0
' End If
str=CSTR(r)
msgbox "کد دیجیت شما "& str &" می باشد "
' TextBox1.value =" "
End Sub
-->
</SCRIPT>
<p>&nbsp;</p>
<p align="center">
</p>
<p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;
</p>
<p>&nbsp;</p>
<p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p>
</body>
</html>
م
aryaei2000
پنج شنبه 26 شهریور 1388, 11:36 صبح
لطفا کدتون رو داخل تگ [code] قرار بدید.
farah
شنبه 28 شهریور 1388, 12:24 عصر
سلام ممنون از پاسخ گوئی شما ولی من منظور شما رو متوجه نشدم خواهشمندم برایم توضیح دهید که داخل تگ چی بزارم
aryaei2000
شنبه 28 شهریور 1388, 18:31 عصر
مظورم این بود که ک هاتون رو بین دو تگ(CODE) و (/CODE) {اصلش با کروشه هست.}
قرار بدید.
من خودم میزارمشون.


<html dir=rtl>
<meta http-equiv="Content-Language" content="fa">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<%@ codepage = 1256 %>
<head>
<title>کد دیجیت بانک ملی</title>
</head>
<body bgcolor="#BFD9FF">
<FORM METHOD=POST action=Cdigit.asp >
</FORM>
<div align="center">
<table border="0" width="91%" id="table1" height="99">
<tr>
<td height="68" width="33%">&nbsp;</td>
<td height="68" width="32%">
<p align="center">
<img border="0" src="Pictures/Site/pdigit.gif" width="281" height="34"></td>
<td height="68" width="33%">&nbsp;</td>
</tr>
<tr>
<td height="68" colspan="3">&nbsp;<p align="right">
<font face="Tahoma" size="2" color="#0000FF">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<span lang="fa">
&nbsp;</span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span lang="fa">
برای دیدن کد دیجیت بانک ملی خود شماره دانشجویی خود را وارد کرده و
دکمه انجام عملیات را کلیک کنید</span></font><font face="Tahoma" size="2" color="#0000FF"><span lang="en-us">
.</span></font></p>
<p>&nbsp;</td>
</tr>
<tr>
<td height="43" width="33%">&nbsp;</td>
<td height="43" width="32%" align="center">
<blockquote>
<blockquote>
<p align="center" dir="ltr">
<input NAME="TextBox1" size="15" dir="rtl"></p>
</blockquote>
</blockquote>
</td>
<td height="43" width="33%">&nbsp;</td>
</tr>
<tr>
<td width="33%">&nbsp;</td>
<td width="32%" align="center">
<INPUT TYPE="button" NAME="CMDBUTTON1" font="B Koodak" size="3"color="#FFFFFF" VALUE="انجام عملیات " LANGUAGE="VBScript" OnClick="SHOWMESSAGE" style="background-color:#0066CC; color:#FFFFFF; font-family:Tahoma; font-size:10px; font-weight:bold" dir="rtl"></td>
<td width="33%">&nbsp;</td>
</tr>
<tr>
<td width="33%">&nbsp;</td>
<td width="32%" align="center">
<blockquote>
<blockquote>
<p align="center" dir="ltr">
</font>
</p>
</blockquote>
</blockquote>
</td>
<td width="33%">&nbsp;<p>&nbsp;</td>
</tr>
</table>
</div>
<SCRIPT LANGUAGE="VBScript">
<!--Option Explicit

Sub SHOWMESSAGE()
Dim h,i,L,k,r
Dim str
dim s,le
dim sum,arr
sum = 0
k = 0
h=0
str=Trim(TextBox1.VALUE)
L=Len(TextBox1.VALUE)

If L > 15 Then
MsgBox"شماره دانشجوئی شما اشتباه است "
' TextBox1.value =" "
Else
if L=0 Then
MsgBox"شماره دانشجوئی خود را وارد کنید "
END If
End If

arr= Array ("8","7","6","5","4","3","2","1","9","10","11","12 ","13","14","15")
For i=0 to L-1
h=Cint(Right(str,1))
sum = sum + ( h * arr(k+i))
s=InstrRev(str,h,-1,1)
le=s-1
str=left(str,le)
next
r=sum Mod 99
' If r < 15 Then
' r=0
' End If
str=CSTR(r)
msgbox "کد دیجیت شما "& str &" می باشد "
' TextBox1.value =" "
End Sub
-->
</SCRIPT>
<p>&nbsp;</p>
<p align="center">
</p>
<p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;
</p>
<p>&nbsp;</p>
<p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp; </p>
</body>
</html>
kashaneh
پنج شنبه 02 مهر 1388, 12:32 عصر
دوست عزیز... کد شما رو تا حد امکان تغییر دادم تا به طور ساده بتوانید کار خود را شروع کنید.... البته تا رسیدن به نقطه مطلوب فاصله دارید... سایر تغییرات لازم را، خود اعمال کنید... موفق باشید

* کدهای زیر در قالب یک فایل asp ذخیره و اجرا کنید *



<html dir=rtl>
<meta http-equiv="Content-Language" content="fa">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<%@ codepage = 1256 %>
<head>
<title>کد دیجیت بانک ملی</title>
</head>
<body bgcolor="#BFD9FF">
<div align="center">
<table border="0" width="91%" id="table1" height="99">
<tr>
<td height="68" colspan="3">&nbsp;<p align="right">
<font face="Tahoma" size="2" color="#0000FF">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<span lang="fa">
&nbsp;</span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span lang="fa">
برای دیدن کد دیجیت بانک ملی خود شماره دانشجویی خود را وارد کرده و دکمه انجام
عملیات را کلیک کنید</span></font><font face="Tahoma" size="2" color="#0000FF"><span lang="en-us">
.</span></font></p>
<p>&nbsp;</td>
</tr>
<tr>
<td width="33%">&nbsp;</td>
<td width="32%" align="center">
<form method="get" action="?" name="myfrm">
<input NAME="TextBox1" size="15" dir="rtl">
<INPUT TYPE="submit" NAME="CMDBUTTON1" color="#FFFFFF" VALUE="انجام عملیات " style="background-color:#0066CC; color:#FFFFFF; font-family:Tahoma; font-size:10px; font-weight:bold" dir="rtl"></td>
</form>
<td width="33%">&nbsp;</td>
</tr>
</table>
</div>
<%
Dim h,i,L,k,r
Dim str
dim s,le
dim sum,arr
sum = 0
k = 0
h=0
str=request.queryString("TextBox1")
L=Len(str)

If L > 15 Then
response.write "شماره دانشجوئی شما اشتباه است "
response.end
Else
if L=0 Then
response.write "شماره دانشجوئی خود را وارد کنید "
response.end
END If
End If

arr= Array ("8","7","6","5","4","3","2","1","9","10","11","12 ","13","14","15")
For i=0 to L-1
h=Cint(Right(str,1))
sum = sum + ( h * arr(k+i))
s=InstrRev(str,h,-1,1)
le=s-1
str=left(str,le)
next
r=sum Mod 99
str=CSTR(r)
response.write ("کد دیجیت شما "& str &" می باشد ")
-->
%></body>
</html>