±äÁ¿ÎÊÌâ

´óÌìʹ·Î÷·¨

<% for i=1 to 4 %>
<tr>
<td align="center"><%=i%></td>
<% for j=1 to 7 %>
<td  align="center">
<%Dim  w=?
%>
<input name="<%w%>"  type="text"  size=7></td>
<% Next %>
</tr>
<% Next %>


ÎÒÏë°Ñ±äÁ¿iºÍjת»»³É×Ö´®Èçw12,w37 ,w23µÈ,È»ºó°ÑÕâ¸ö×Ö´®¸³¸ø±äÁ¿w,ÔÙÔÚinputÖÐnameµÈÓÚwµÄ×Ö´®,ÔõôʵÏÖ?

¨S¡ãŒßÖØȱäE

ASPÖбäÁ¿ºÃÄÑŪ¶®,±ÈÈçÔÚ¶¨ÒåÁËnameΪ±äÁ¿²¢¸³Öµºó,Ö®ºóÔÚÒýÓÃʱȴҪ¼Ó &name& ,

¡ïº£ÀË¡ï

<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
if session("admin_id")="" then
      response.write "<script language=JavaScript>{window.alert('¶Ô²»Æð£¬ÄúÉÐδµÇ¼»òµÇ¼³¬Ê±»òµÇ¼³¬Ê±!'); window.location.href='#';              }</script>"
  response.end
  end if
  %>  
  
<% set rs=server.createobject("adodb.recordset")
        sql="select * from jg    "
        rs.open sql,conn,1,1   %>
  
   <% name=rs("name")  %>
  <title>Ìí¼Ó<%=name%>µÄ¿Î±í</title>

<table   border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FAE7F1" >
<form method="post" action="kb_add_sav.asp" name="form1"  >
<tr><td>
<table width=100%><tr>
<td align="center" >½Ú´Î</td>
<% for j=1 to 7 %>
<td align="center">
<% dim rmb
     rmbs(j) %>
ÐÇÆÚ <%=rmb %>
</td>
<% next %>
</tr>

<% for i=1 to 4 %>
<tr>
<td align="center"><%=i%></td>
<% for j=1 to 7 %>
<td  align="center">
<%    ws="w"&CStr(j)&CStr(i)
%>
<input name="<% =ws %>"  type="text"  size=7></td>
<% Next %>
</tr>
<% Next %>

<tr><td colspan="8" align="center">Îç ¼ä ÐÝ Ï¢</td></tr>
<% for i=5 to 7 %>
<tr>
<td align="center"><%=i%></td>
<% for j=1 to 7
    wa="w"&CStr(j)&CStr(i)   
%>
<td>
<input name="<% =wa %>"  type="text"   size=7></td>
</td>
<% next%>
</tr>
<% next %>




</td></tr>
<tr><td align="center" colspan=8>


      <p ><br><br><input type="submit" name="Submit" value="Ìí¼Ó¿Î±í"style="width:80;background-color: #FFFF66; color: #000000; border: 1 solid #00CC00">
</p>



</td></tr></form>

</table>
<%
Function rmbs(num)
num = FormatNumber(num, 2)
Dim numList
Dim rmbList
Dim numLen
Dim numChar
Dim numstr
Dim n
Dim n1, n2
Dim hz
numList = "0Ò»¶þÈýËÄÎåÁùÈհ˾ÅÊ®"
rmbList = "·Ö½ÇԪʰ°ÛǪÍòÊ°°ÛǪÒÚÊ°°ÛǪÍò"

If num > 9999999999999.99 Then
    rmb = "³¬³ö·¶Î§µÄÈËÃñ±ÒÖµ"
    Exit Function
End If
numstr = CStr(num * 100)
numLen = Len(numstr)
n = 1
Do While n <= numLen
    numChar = CInt(Mid(numstr, n, 1))
    n1 = Mid(numList, numChar + 1, 1)
    n2 = Mid(rmbList, numLen - n + 1, 1)
    If Not n1 = "jjÁã" Then
        hz = hz + CStr(n1) + CStr(n2)
    Else
        If n2 = "ÒÚ" Or n2 = "Íò" Or n2 = "Ôª" Or n1 = "Áã" Then
          Do While Right(hz, 1) = "Áã"
            hz = Left(hz, Len(hz) - 1)
            Loop
        End If
        If (n2 = "ÒÚ" Or (n2 = "Íò" And Right(hz, 1) <> "ÒÚ") Or n2 = "Ôª") Then
            hz = hz + CStr(n2)
        Else
            If Left(Right(hz, 2), 1) = "Áã" Or Right(hz, 1) <> "ÒÚ" Then
             hz = hz + n1
            End If
        End If
    End If
    n = n + 1
Loop
Do While Right(hz, 1) = "Áã"
    hz = Left(hz, Len(hz) - 1)
Loop
If Right(hz, 1) = "Ôª" Then
    hz = hz + "Õû"
End If
rmb = left(hz,1)
End Function%>



  <%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->

<%
if session("admin_id")="" then
      response.write "<script language=JavaScript>{window.alert('¶Ô²»Æð£¬ÄúÉÐδµÇ¼»òµÇ¼³¬Ê±»òµÇ¼³¬Ê±!'); window.location.href='#';              }</script>"
  response.end
  end if
  %>  
  


<% name=trim(request("name"))
if name="" Or name=Null then  
response.write "<script language=javascript>{window.alert('ÐÕÃû²»ÄÜΪ¿Õ!Çëµã»÷¡°È·¶¨¡±·µ»Ø');window.history.go(-1);}</script>"
end if %>

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from kb"
rs.open sql,conn,1,2
rs.addnew   
rs("name")=name
       for i=1 to 7
              for j=1 to 7
                                    
                                   wt=request.form("w"&CStr(j)&CStr(i))
                                   rs("w"&CStr(j)&CStr(i))=wt
              next                                                                                                   
          next  
    rs.update  
    rs.close
%>

<script language=javascript>{window.alert('¿Î±íÌí¼Ó³É¹¦!Çëµã»÷¡°È·¶¨¡±·µ»Ø');window.history.go(-1);}</script>


»ù±¾Éϲ¶àÁË,û°ì·¨,ÐÂÊÖÀí½âÁ¦²»¹»

ÂúÌìÐÇ

<% for i=1 to 4 %>
<tr>
<td align="center"><%=i%></td>
<% for j=1 to 7 %>
<td  align="center">
<%
   Dim  w
   w="w"&CStr(i)&CStr(j)
%>
<input name="<%=w%>"  type="text"  size=7></td>
<% Next %>
</tr>
<% Next %>