Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPµ¼³öExcelÊý¾ÝµÄËÄÖÖ·½·¨

 ASPµ¼³öExcelÊý¾ÝµÄËÄÖÖ·½·¨ 
À´Ô´£º aspsky  ×÷Õߣº tonny 
¡¡¡¡Ò»¡¢Ê¹ÓÃOWC
¡¡¡¡Ê²Ã´ÊÇOWC£¿
¡¡¡¡OWCÊÇOffice Web CompentµÄËõд£¬¼´MicrosoftµÄOffice Web×é¼þ£¬ËüΪÔÚWebÖлæÖÆÍ¼ÐÎÌṩÁËÁé»îµÄͬʱҲÊÇ×î»ù±¾µÄ»úÖÆ¡£ÔÚÒ»¸öintranet»·¾³ÖУ¬Èç¹û¿ÉÒÔ¼ÙÉè¿Í»§»úÉÏ´æÔÚÌØ¶¨µÄä¯ÀÀÆ÷ºÍһЩ¹¦ÄÜÇ¿´óµÄÈí¼þ£¨ÈçIE5ºÍOffice 2000£©£¬ÄÇô¾ÍÓÐÄÜÁ¦ÀûÓÃOffice Web×é¼þÌṩһ¸ö½»»¥Ê½Í¼Ðοª·¢»·¾³¡£ÕâÖÖģʽÏ£¬¿Í»§¶Ë¹¤×÷Õ¾½«ÔÚÕû¸öÈÎÎñÖзֵ£ºÜ´óµÄ±ÈÖØ¡£
£¼%Option Explicit
Class ExcelGen
Private objSpreadsheet
Private iColOffset
Private iRowOffset
Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iColOffset = 2
End Sub
Sub Class_Terminate()
Set objSpreadsheet = Nothing 'Clean up
End Sub
Public Property Let ColumnOffset(iColOff)
If iColOff £¾ 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property
Public Property Let RowOffset(iRowOff)
If iRowOff £¾ 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property Sub GenerateWorksheet(objRS)
'Populates the Excel worksheet based on a Recordset's contents
'Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
objSpreadsheet.Columns(iCol).AutoFitColumns
'ÉèÖÃExcel±íÀïµÄ×ÖÌå
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '¾ÓÖÐ
iCol = iCol + 1
Next 'objField
'Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet


Ïà¹ØÎĵµ£º

ASPÖÐÕýÔò±í´ïʽµÄÓ¦ÓÃ

¡¡¡¡Ò»¡¢ÕýÔò±í´ïʽ¸ÅÊö
Èç¹ûÔ­À´Ã»ÓÐʹÓùýÕýÔò±í´ïʽ£¬ÄÇô¿ÉÄܶÔÕâ¸öÊõÓïºÍ¸ÅÄî»á²»Ì«ÊìϤ¡£²»¹ý£¬ËüÃDz¢²»ÊÇÄúÏëÏóµÄÄÇôÐÂÆæ¡£
Çë»ØÏëÒ»ÏÂÔÚÓ²ÅÌÉÏÊÇÈçºÎ²éÕÒÎļþµÄ¡£Äú¿Ï¶¨»áʹÓà ? ºÍ * ×Ö·ûÀ´°ïÖú²éÕÒÄúÕýѰÕÒµÄÎļþ¡£? ×Ö·ûÆ¥ÅäÎļþÃûÖеĵ¥¸ö×Ö·û£¬¶ø * ÔòÆ¥ÅäÒ»¸ö»ò¶à¸ö×Ö·û¡£Ò»¸öÈç £§data?.dat£§ µÄģʽ¿É ......

asp±Ê¼Ç£¨ÕûÀíÓ²ÅÌ£¬ÕÒµ½¸ÃÎļþ£©

 ½ñÌìÖØÐÂÕûÀíµçÄÔ£¬ÕÒµ½Ò»¸öÎļþ£¬¿´ÁËÏÂÈÕÆÚ£¨2006.11.5£© £¬Å²»Ð¡ÐÄÔÙ¶ªÁË£¬´æµ½ÍøÉÏÀ´É¹É¹¡£
°²×°ÓëÅäÖÃ
1.5.1°²×°IIS
¿ØÖÆÃæ°å_  Ìí¼Óɾ³ý³ÌÐò_Ìí¼Óɾ³ýWindows×é¼þ_ 
"internetÐÅÏ¢·þÎñ(IIS)"¶Ô»°¿ò_ÏêϸÐÅÏ¢——"Word Wide Web·þÎñÆ÷" _ µ¥»÷Á½¸ö“È·¶¨”—&mda ......

Asp¸üÐÂÊý¾Ý¿âµÄ¼¸ÖÖ·½·¨

aspÖвåÈëÓëÐÞ¸ÄÊý¾ÝµÄ¼¸ÖÖ·½Ê½¡£ÎªÁË·½±ã½â˵£¬ÎÒÃÇÏȽ¨Á¢Ò»¸öÃûΪtestµÄ±í£¬±íÄÚÖ»ÓÐÁ½¸öÊý¾Ý
Ïî:usernameºÍemail,·Ö±ðÓÃÀ´´æ´¢Óû§ÃûÓëÓÊÏ䵨ַ¡£
1.ÀûÓÃinsertÓï¾ä²åÈëÊý¾Ý£º
insertÊÇsqlÓï¾äµÄ»ù±¾Ö¸ÁîÖ®Ò»£¬ Ó÷¨ºÜ¼òµ¥£¬ÕâÀïÎÒÖ»½«Æä»ù±¾¸ñʽÁгö.
´úÂëÈçÏ£º
       set conn=s ......

asp»ñÈ¡ÉÏÒ»Ò³µØÖ·µÄ·½·¨

<%
If Request.ServerVariables("HTTP_REFERER")<>"" Then
      tmpstr=Request.ServerVariables("HTTP_REFERER")
Else
     tmpstr="index.htm"
End If
response.Redirect(tmpstr)
%>
´úÂë½âÊÍ£º
Request.ServerVariables("HTTP_REFERER")ÊÇ»ñÈ¡ÉÏÒ ......

aspºÍmysql·ÖÒ³´úÂë

 <!--#include file="zheboconn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>aspºÍmysql·ÖÒ³´úÂë</title>
<style type="text/css">
<!--
.STYLE3 {
 fon ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ