[dnb-prod] =?Big5?B?pKOlsqRXuXG4o7jJst+vWqRdr+C+x6ZuuXG4ow==?=

[行銷大贏家]

Title: E �\�� - EXCEL 2002 �оǥ���

<[EMAIL PROTECTED]"VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_Email_data_STRING MM_editTable = "tblApply" MM_editRedirectUrl = "../../success1.asp" MM_fieldsStr = "�q�ʪ��~|value|�q�����|value|���B|value|�q�ʤH|value|�٩I|value|�l���ϸ�|value|����|value|�m����|value|�a�}|value|���|value|���q�q��|value|���a�q��|value|E_Mail|value|�v�t�ɶ�|value|��|value|�Ƶ�|value" MM_columnsStr = "�q�ʪ��~|',none,''|�q�����|',none,''|���B|',none,''|�q�ʤH|',none,''|�٩I|',none,''|�l���ϸ�|',none,''|����|',none,''|�m����|',none,''|�a�}|',none,''|���|',none,''|���q�q��|',none,''|���a�q��|',none,''|E_Mail|',none,''|�v�t�ɶ�|',none,''|��|none,none,NULL|�Ƶ�|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> �@ [EMAIL PROTECTED] ���Ҫ����лP�]�w [EMAIL PROTECTED] �}�һP�x�s�ɮ� ��ƪ���J�P�s�� 1 ��ƪ���J�P�s�� 2 �ۭq�M�� �ƻs�B�h���P�K�W �R���P�M�� ��P�C �����P��ư򥻮榡 SUM�BAVERAGE MAX�BMIN�BCOUNT LARGE�BSMALL�BINT�BROUND ��ƪ��Ƨ� �]�w�榡�Ʊ��� �ĤG�椸�G [EMAIL PROTECTED]@ �ѷӦ�}���w�q 2002�w������ �Ǵ����Z�p���� �E�E���k��Ӫ���� [EMAIL PROTECTED]@�Ϫ� �Ϫ�����d�򪺭ק� �Ϫ������� �Ϫ��i�������� ����M�ɶ������ ����M�ɶ����p�� ����M�ɶ������ �~�֩M�~�ꪺ�p��   �ĤT�椸�G EXCEL ���ﶵ�ާ@ 1 EXCEL ���ﶵ�ާ@ 2 VLOOKUP �P HLOOKUP ��� �p�p�B�z��Ϫ���X���� ���J���� [EMAIL PROTECTED]@�����s�� IF ��� : ���Z����� [EMAIL PROTECTED] [EMAIL PROTECTED]@���P�x�s��     �W�ȯS�f���u�n 399 ���]�f��A�I�ڡA�w�t�l�H�B�z�O 100 �� �^ ���~�W�١GE �\�� - EXCEL 2002 �оǥ��� ( ���t 3 ������ ) [EMAIL PROTECTED]@�W�G [EMAIL PROTECTED] �п�� ���� �p�j �Ѯv �D�� �ժ� ����a�}�G �l���ϸ� �d�� [EMAIL PROTECTED] [EMAIL PROTECTED]@���G ���q�q�ܡG ���v�q�ܡG �� [EMAIL PROTECTED] �q�l�l��G �� �ȥ���g�_�h�L�k�T�{�^��I �e�F�ɬq�G 09:00-17:00 09:00-12:00 14:00-17:00 18:00-21:00 ���ƶ��G �ۥѶ�g�Ϊť� �Ƶ��G���� �f�~�Ħv�t�H�e�覡�A�`���b�a�аO�o��N�a�H�B�޲z���ΪB�������N���I�ڡC [EMAIL PROTECTED]@[EMAIL PROTECTED] ���O�ĥ��i�f��A�I�ڡj�覡�A�Ѷl�t�V�z���O�A���ΦA��ߥI�F���o�S����f�~�A�o�O�ثe�̤�K�w�����ʪ��A�ȡI�]���бz��g���H��������åI�ڪ��a�}�~��K�I [EMAIL PROTECTED]@[EMAIL PROTECTED] 24�p�ɤ��Y�L�q�ܩ� email [EMAIL PROTECTED] �@ --- Drum&Bass Arena Producers Discussion List http://www.breakbeat.co.uk You are currently subscribed to dnb-prod as: [EMAIL PROTECTED] To unsubscribe send a blank email to [EMAIL PROTECTED] �p�G�z���Q�A��������T���A�п�J�z���q�l�l��G