aspºÍfsoʵÏÖÉÏ´«Îļþ
'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'µ±Óû§µÇ¼ʱ¿ÉÒÔÖ´ÐÐthen
<script>
function checkAll(){
for (i=0;i<document.forms[0].length;i++){
if (document.forms[0][i].tagName=="INPUT"){
if (document.forms[0][i].type=="radio")
{document.forms[0][i].checked="checked"}
}
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {
color: #CC3300;
font-size: 13px;
font-family: "ËÎÌå";
font-weight: bold;
}
.STYLE5 {
font-family: "ËÎÌå";
color: #FF0000;
}
.STYLE7 {
font-family: "ËÎÌå";
font-size: 13px;
}
-->
</style>
<script language="javascript">
<!--
function checkform1()
{
if (form1.AttPath.value=="")
{
alert("ÇëÊäÈëÃû³Æ£¡")
form1.AttPath.focus()
return false
}
if (form1.pic.value=="")
{
alert("ÇëÑ¡ÔñÉÏ´«Îļþ£¡")
form1.pic.focus()
return false
}
return true
}
//-->
</script>
<% '±éÀúuploadfileÎļþ¼Ð
AttPath=Request.QueryString("AttPath")
if len(AttPath)<1 then
AttPath="uploadfile"
elseif bc(server.mapPath(AttPath),server.mapPath("u
Ïà¹ØÎĵµ£º
ASPÓëJSPµÄ±È½Ï
¡¡¡¡´Ó΢ÈíÍÆ³öÁËASP(ActiveServerPage)ºó£¬ËüÒÔÆäÇ¿´óµÄ¹¦ÄÜ£¬¼òµ¥Ò×ѧµÄÌØµã¶øÊܵ½¹ã´óWEB¿ª·¢ÈËÔ±µÄϲ»¶¡£µ«ÊÇËüÈ´ÓÐ΢Èí²úÆ·µÄͨ²¡,Ö»ÄÜÔÚWindowsƽ̨ÏÂʹÓã¬ËäÈ»Ëü¿ÉÒÔͨ¹ýÔö¼Ó¿Ø¼þ¶øÔÚLINUXÏÂʹÓ㬵«ÊÇÆä¹¦ÄÜ×îÇ¿´óµÄDCOM¿Ø¼þÈ´²»ÄÜʹÓ᣶øSUN¹«Ë¾ÔÚJAVAµÄ»ù´¡Ï¿ª·¢³öµÄJSP(Java
ServerPages)Ê ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '´«²Î
strFileName="/files/"&strFileName ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......
¡¡¡¡ÕâÆªÎÄÕÂÖ÷Òª½éÉÜÁËÈçºÎʹÓÃASP¿ØÖÆWebµÄ¸÷ÖÖ´òӡЧ¹û£¬ËüÄܹ»¿ØÖÆ×Ý´ò¡¢ºá´òºÍÒ³Ãæ±ß¾àµÈ¡£
¡¡¡¡
¡¡¡¡1¡¢¿ØÖÆ"×Ý´ò"¡¢ "ºá´ò"ºÍ"Ò³ÃæµÄ±ß¾à"¡£
¡¡¡¡
¡¡¡¡£¨1£©
¡¡¡¡
¡¡¡¡< script defer>
¡¡¡¡function SetPrintSettings() {
¡¡¡¡// -- advanced features
¡¡¡¡factory.printing.SetMarginMeasure(2) ......
ºÜ¶àʱºò,ÎÒÃDzÉÓÃÔʼµÄ·½·¨À´½â¾öÒ»ÐÐÄÚÑ»·3ÕÅͼƬ,Èç¹ûÉÏ´«ÕßÖ»ÉÏ´«ÁË2ÕÅͼƬ,ÄÇô2ÕÅͼƬ¼äµÄ¾àÀë»áºÜ´ó,ÒòΪȱÉÙÁËÒ»¸ö<td> </td>.
<table border="0" cellpadding="0" cellspacing="0">
<%
dim rs,sqltext
set rs = Server.CreateObject("adodb.recordset")
sqltext="sel ......
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
Dim StrSQL,RS
StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
StrSQL=StrSQL&"AND Pin='"&passwor ......