Çóexcelµ¼ÈësqlserverÔ´Â룡aspµÄ£¡
ÈçÌ⣡
sqlserver¹ÜÀíÆ÷Óе¼È빦ÄܰÉ
ÔΣ¡ÄѵÀÒª¿Í»§È¥²Ù×÷Êý¾Ý¿â£¿£¡ÎÞÓïÁË£¡
ÔõôûÈ˻شðÄØ£¿£¡£¡£¡
¿Í»§½«excelÉÏ´«£¬ÉÏ´«µ½µÄÊÇ·þÎñÆ÷£¬¶ø²»ÊÇÔÚ±¾µØ£¡
¶ÁÊý¾Ý£¬Ð´Êý¾Ý£¬Ó¦¸ÃÊÇÕâÑù
http://topic.csdn.net/t/20030404/11/1617960.html
ÓÃsql×Ô´øµÄµ¼Èë¾Í¿ÉÒÔ£¡¹À¼ÆÊÇÏëÒªÔÚºǫֱ́½ÓʵÏÖÉÏÊöЧ¹û°É£¡
VB code:
Response.Charset="GB2312"
excelpath=server.mappath(Request("excelpath")) 'ÎļþÔÚ·þÎñÆ÷ÖеÄ·¾¶
dim uploadconn
set xlsConn=CreateObject("ADODB.Connection")
xlsConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="& excelpath
xlssql = "SELECT * from [Sheet1$]"
set rs = xlsConn.execute(xlssql)
while not rs.eof
sql = "insert into test values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"','"& fixsql(rs(4)) &"')"
response.Write sql&"<br>"
conn.execute(sql)
rs.movenext
wend
xlsConn.close
set xlsConn = nothing
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"¡¯","¡¯¡¯")
end if
Ïà¹ØÎÊ´ð£º
ÎÒÃÇÓÐÒ»¸öÍøÕ¾Ä£°å£¬www.c111.com.cn,Ï£ÍûÐÞ¸ÄһЩµØ·½£º
1£©µã»÷×ó²à¡°·þÎñÆ·ÅÆ¡±µÄÆäÖÐÒ»¸öС·ÖÀ࣬Èç¡°×ãÇò¡±£¬½çÃæµÄÓÒ²à¾Í³öÏÖÈçwww.c111.com.cn/1.jpg£¬µã»÷1.jpgÉÏ·½µÄÆäÖÐÒ»¸öÆ·ÅÆlogo£¬ÏÂÃæ¾Í³öÏÖÏà¹ØµÄÍ ......
ÎÒÕÒÁËÒ»¸öα¾²Ì¬´úÂ룬ÈçÏ£º
index.asp
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset") & ......
ÔÏÈÓÐÒ»¸öÏîÄ¿ÊÇÓÃaspдµÄ£¬ÒòΪϵͳÀ©Õ¹£¬ÎÒÏëÌí¼ÓһЩģ¿é»òÍøÒ³£¬ÏëÓÃasp.netд£¬È»ºóÔÚaspÖÐredirectµ½aspxÎļþÖУ¬ÇëÎÊÊÇ·ñ¿ÉÒÔ×öµ½£¬ÈçºÎÔÚIISÖнøÐÐÅäÖá£
ÕâÑù¿ÉÒÔʡȥºÜ¶à¹¤×÷Á¿£¬ÒòΪϵͳÒÔǰÊDZðÈËдµÄ ......
ÔÏÈÓÐÒ»¸öÏîÄ¿ÊÇÓÃaspдµÄ£¬ÒòΪϵͳÀ©Õ¹£¬ÎÒÏëÌí¼ÓһЩģ¿é»òÍøÒ³£¬ÏëÓÃasp.netд£¬È»ºóÔÚaspÖÐredirectµ½aspxÎļþÖУ¬ÇëÎÊÊÇ·ñ¿ÉÒÔ×öµ½£¬ÈçºÎÔÚIISÖнøÐÐÅäÖá£
ÕâÑù¿ÉÒÔʡȥºÜ¶à¹¤×÷Á¿£¬ÒòΪϵͳÒÔǰÊDZ ......
ǰ¶Îʱ¼äÅöµ½Ò»µÀÃæÊÔÌâÈçÏ£º
test.aspxÒ³ÃæÓÐÈçÏ´úÂ룺
Response.Write(Test.GetDate());
TestÀàÈçÏ£º
public class Test
{
static string dt="";
public static s ......