<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/w2tp.asp" -->
<!--#include file="Alipay_Payto.asp"-->
<%

function   gets(  str )
	if len(str)>2 then
		str=right(str,2)
	end if
	if len(str) <2 then
			str1=""
			for i=1 to (2 - len(str) )
				str1="0" &  str1 
			next
	end if
		str1=str1 & str 
	gets=str1
end function


	Set AlipayObj	=    New creatAlipayItemURL
	
	toid		=	DelStr(request("toid"))
	projectid	=	request("projectid")
	vip			=	AlipayObj.getIP()
	'out_trade_no		=	request.Form("out_trade_no")
	shijian		=	now()
	
	if toid="" 		then toid=request.Form("toid")
	if toid = "" 	then toid="1001"
	if projectid="" then projectid=request.Form("projectid")
	if projectid="" then projectid="1"
	
	
		Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
		Recordset1_cmd.ActiveConnection = MM_w2tp_STRING
		Recordset1_cmd.CommandText = "SELECT MAX(id) as id FROM paylist  "  
		Set Recordset1 = Recordset1_cmd.Execute
		SSSID=int(Recordset1.Fields.Item("ID").Value)+1
		Recordset1.Close()
		'Recordset1_cmd.Close()
		Set Recordset1 = Nothing
		Set Recordset1_cmd = Nothing
	
	
	out_trade_no=toid&"A"&projectid&"B"&gets(year(shijian))
	out_trade_no=out_trade_no&gets(month(shijian) )
	out_trade_no=out_trade_no&gets(day(shijian) )
	out_trade_no=out_trade_no&gets(hour(shijian) )
	out_trade_no=out_trade_no&gets(minute(shijian) )
	out_trade_no=out_trade_no&gets(second(shijian) )
	out_trade_no=out_trade_no&"C"&SSSID
	 

	tempo="toid="&toid&"&price="&request.Form("total_fee")&"&projectid="&projectid&"&out_trade_no="&out_trade_no
	%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_w2tp_STRING
    MM_editCmd.CommandText = "INSERT INTO paylist ([count], toid, projectid, ip ,payid) VALUES (?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("total_fee"), Request.Form("total_fee"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("toid")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, MM_IIF(Request.Form("projectid"), Request.Form("projectid"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255,vip) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, out_trade_no) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "go.asp?"&tempo
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
	Response.End()
  End If
End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_w2tp_STRING
Recordset1_cmd.CommandText = "SELECT * FROM votes WHERE ID = ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, int(Recordset1__MMColParam)) ' adDouble

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>网络投票</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="images/css22.css">
<META content="MSHTML 6.00.6000.20861" name=GENERATOR>
<style type="text/css">
<!--
.STYLE1 {
	color: #330000
}
.STYLE2 {
	color: #333333;
	font-size: 12px;
}
.STYLE3 {
	color: #FF0000;
	font-weight: bold;
	font-size: 12px;
}
-->
</style>
</HEAD>
<BODY>
<TABLE cellSpacing=0 cellPadding=0 width=380 align=center 
background=images/kq_08.gif border=0>
  <FORM name="form1" action="<%=MM_editAction%>" method=POST>
    <TBODY>
      <TR>
        <TD><IMG height=56 src="images/kq_01.gif" width=381></TD>
      </TR>
      <TR>
        <TD><DIV align=left>
            <TABLE cellSpacing=0 cellPadding=10 width=350 align=center border=0>
              <TBODY>
                <TR>
                  <TD class=tab2 vAlign=top width="100%" bgColor=#FFCCCC> <% If Not Recordset1.EOF or Not Recordset1.BOF Then 
				  
						toid=Recordset1.Fields.Item("toid").Value
						%><DIV  align=center class="STYLE1"><strong><%=toid%></strong>&nbsp;&nbsp;
                     
                        <strong> <%chinese2unicode(Recordset1.Fields.Item("username").Value)%> </strong>
                        <%
						projectid=(Recordset1.Fields.Item("projectid").Value)
						%>
                        
                    </DIV><% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %></TD>
                </TR>
              </TBODY>
            </TABLE>
          </DIV></TD>
      </TR>
      <TR>
        <TD><DIV align=left>
            <TABLE cellSpacing=0 cellPadding=5 width=350 align=center border=0>
              <TBODY>
                <TR>
                  <TD vAlign=bottom colSpan=3><IMG height=28 
            src="images/kq_03.gif" width=122></TD>
                </TR>
                <TR>
                  <TD width=99 height=42><DIV align=center><IMG height=29 src="images/but_1.gif" 
            width=74></DIV></TD>
                  <TD width=109><DIV align=center><IMG height=29 src="images/but_5.gif" 
            width=74></DIV></TD>
                  <TD width=112><DIV align=center><IMG height=29 src="images/but_10.gif" 
            width=74></DIV></TD>
                </TR>
                <TR>
                  <TD><DIV align=center> 
                      <INPUT type="radio" value="1" name="total_fee" />
                    </DIV></TD>
                  <TD><DIV align=center>
                      <INPUT type="radio" value="5" name="total_fee" />
                    </DIV></TD>
                  <TD><DIV align=center>
                      <INPUT name="total_fee" type=radio value="10" checked />
                    </DIV></TD>
                </TR>
              </TBODY>
            </TABLE>
            <input name="toid" type="hidden" id="toid" value="<%=toid%>">
            <input name="projectid" type="hidden" id="projectid" value="<%=projectid%>">
            <input name="ip" type="hidden" id="ip" value="<%=vip%>">
            <input name="out_trade_no" type="hidden" id="out_trade_no" value="<%=out_trade_no%>">
            <input type="hidden" name="MM_insert" value="form1">
          </DIV></TD>
      </TR>
      <TR>
        <TD><TABLE cellSpacing=0 cellPadding=2 width=350 align=center border=0>
            <TBODY>
              <TR>
                <TD colSpan=2><IMG height=23 src="images/kq_06.gif" 
            width=122></TD>
              </TR>
              <TR>
                <TD><DIV class=txt align=center>
                    <div align="left"><span class="STYLE2">网络投票，可能稍有延迟，24之内会进行同步，敬请谅解。</span><br>
                      <center>
                        <span class="STYLE3">请选择&gt;&gt;&gt;&gt;</span>
                      </center>
                    </div>
                  </DIV></TD>
                <TD><DIV align=center><%if datediff("s",now(),"2009-3-29 08:00:00")<20   then
					%>投票时间已经结束！<%
					else%>
                    <input type="image" name="imageField" id="imageField" src="images/kq_13.gif"><%
					end if %>
                  </DIV></TD>
              </TR>
              <TR>
                <TD width="39%">&nbsp;</TD>
                <TD width="61%">&nbsp;</TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
      <TR>
        <TD><IMG height=26 src="images/kq_14.gif" 
width=381></TD>
      </TR>
    </TBODY>
  </FORM>
</TABLE>
</BODY>
</HTML>
<%function chinese2unicode(Str) 
dim i 
dim Str_one 
dim Str_unicode 
for i=1 to len(Str) 
Str_one=Mid(Str,i,1) 
Str_unicode=Str_unicode&chr(38) 
Str_unicode=Str_unicode&chr(35) 
Str_unicode=Str_unicode&chr(120) 
Str_unicode=Str_unicode& Hex(ascw(Str_one)) 
Str_unicode=Str_unicode&chr(59) 
next 
Response.Write Str_unicode 
end function
Recordset1.Close()
Set Recordset1 = Nothing
%>