سوال: بردن اطلاعات به excel [بایگانی]

هواشناس

شنبه 30 آبان 1388, 12:28 عصر

بنام خدا
مي توني از تاپيك هاي زير استفاد ه كني:

http://barnamenevis.org/forum/images/statusicon/thread.gif Asp To Pdf (http://www.barnamenevis.org/forum/showthread.php?t=160418)
http://barnamenevis.org/forum/images/statusicon/thread.gif ASp to Excel (http://www.barnamenevis.org/forum/showthread.php?t=160312)

<%Sub print%>
<%'Print Page%>
<SCRIPT Language="Javascript">
function printit(){
if (window.print) {
window.print() ;
} else {
var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
WebBrowser1.ExecWB(6, 2);//Use a 1 vs. a 2 for a prompting dialog box WebBrowser1.outerHTML = "";
}
}
</script>
<SCRIPT Language="Javascript">
var NS = (navigator.appName == "Netscape");
var VERSION = parseInt(navigator.appVersion);
if (VERSION > 3) {
document.write('<form>');
document.write('<center><input type=button value="چاپ صفحه" name="Print" onClick="printit()"></center>');
document.write('</form><br>');
}
</script>
<%End Sub%>
<%Sub exportitem%> :در آخر صفحه براي تعيين نوع خروجي
<center>
« اکسل:<input name="submit"type="submit" value="excel" size="20" />» 
« ورد:<input name="submit"type="submit" value="word" size="20" />» 
« صفحه وب:<input name="submit"type="submit" value="view" size="20" />» <br />
« نسخه پرینت:<input name="submit"type="submit" value="print" size="20" />
</center>
<%End Sub%>

<%Sub export%>: در ابتداي صفحه جواب براي دريافت نتيجه
<% submit=lcase(trim(Request.form("submit")))%>
<% select case submit
case "excel"
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "www.Site.ir .::. Info@Site.ir", "attachment;filename="&Request.ServerVariables("SCRIPT_NAME")&".xls"

case "word"
Response.ContentType = "application/msword"
Response.AddHeader "www.Site.ir .::. Info@Site.ir", "attachment;filename="&Request.ServerVariables("SCRIPT_NAME")&".doc"
case "print"
call print
case "view"
%><link rel="stylesheet" type="text/css" href="../Common/Css.css" media="all" /><%
end select%>
<%End Sub%>