Çó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
Ïà¹ØÎÊ´ð£º
ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏß±à¼Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏß±à¼Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......
aspÏÂÃæ£¬µ±Òª¸ù¾Ý²»Í¬µÄȨÏÞÏÔʾһЩ¹¦Äܰ´Å¥µÄ»°»áд³É
<%
if ȨÏÞ=1 then
%>
<input type="submit" name="Submit" value="Ìá½»" />
<%
end i ......
ÓÐÁ½¸ö±äÁ¿ imgUrl1ºÍimgUrl2
Url1="images/1.jpg"
Url2="images/2.jpg"
Óиöjavascript³ÌÐò£¬Ïë°ÑUrl1ºÍUrl2´øµ½javascriptÀïÃæµÄimgUrl2ºÍimgUrl2£¬²»ÖªµÀÔõôŪ
<script type="t ......
ÔÏÈÓÐÒ»¸öÏîÄ¿ÊÇÓÃaspдµÄ£¬ÒòΪϵͳÀ©Õ¹£¬ÎÒÏëÌí¼ÓһЩģ¿é»òÍøÒ³£¬ÏëÓÃasp.netд£¬È»ºóÔÚaspÖÐredirectµ½aspxÎļþÖУ¬ÇëÎÊÊÇ·ñ¿ÉÒÔ×öµ½£¬ÈçºÎÔÚIISÖнøÐÐÅäÖá£
ÕâÑù¿ÉÒÔʡȥºÜ¶à¹¤×÷Á¿£¬ÒòΪϵͳÒÔǰÊDZðÈËдµÄ ......
ÇëÎÊһϣ¬ÍâÍøÁ½Ì¨SQLSERVERʵÀýÊý¾Ý´«Ê䣬ÓÐûÓвÉÓÃÊý¾ÝѹËõºÍ¼ÓÃÜ¡£Ñ¹Ëõ±ÈÊǶàÉÙ£¬¼ÓÃÜÊÇʲô¼ÓÃÜËã·¨£¿Ïà¹ØÎĵµÄÄÀï¿ÉÒÔÕÒµ½£¿Ð»Ð»
ÎÒÒ²ÏëÖªµÀ£¡¹Ø×¢´ËÌù£¡
¹Ø×¢¡«¡«
Êý¾Ý¿â´óÅ£¶¼ÄÄÈ¥Á˰¡£¿
......