周髀算经怎么算:大家来给看下ASP页面,为什么放到服务器上我执行就没反映别人就可以?

来源:百度文库 编辑:高校问答 时间:2024/05/14 23:48:06
请高手留下QQ,太多了,发不完!
<%
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../db/mcsc#636.mdb")
Set conn = Server.CreateObject("ADODB.connection")
conn.Open connstr
%>
<html>
<head>
<title>添加歌曲</title>
</head>
<body topmargin ="0" leftmargin ="0" bgcolor="#99CCFF">
<script language="javascript">
function checkform(){
if(document.form1.name.value==""){
alert("歌曲名不能为空!");
document.form1.name.focus();
return false;
}
if(document.form1.FileName.value==""){
alert("文件路径不能为空!");
document.form1.FileName.focus();
return false;
}
}
</script>
<table border="0" width="500" id="table2"><form name="form1" method="POST" action="musicadd.asp" onSubmit="return checkform();">
<tr>
<td width="80"><font size="2">歌曲名称</font></td>
<td><input type="text" name="name" size="20"></td>
</tr>
<tr>
<td <input type="text" name="singer" size="20" value="无"></td>
</tr>
<tr>
<td width="80"><font size="2">会员ID</font></td>
<td>
<!--webbot bot="Validation" s-data-type="Integer" s-number-separators="," --><input type="text" name="associator" size="20" value="0"></td>
</tr>
<tr>
</tr>
<tr>
<td colspan="2">
<input type="hidden" name="sub" value="sub">
<input type="submit" name="submit" value="确定新增"><input type="reset" value="清空重填" name="B2">
</td>
</tr></form>
</table>
</body>
</html>
<%
if request.form("sub")="sub" then
a_id=trim(request.form("associator"))
m_name=trim(request.form("name"))
m_type=trim(request.form("type"))
m_lyricwriter=trim(request.form("lyricwriter"))
m_musicwriter=trim(request.form("musicwriter"))
m_singer=trim(request.form("singer"))
m_lyric=trim(request.form("lyric"))
m_path=trim(request.form("FileName"))
m_click=trim(request.form("click"))
m_taxisflag=trim(request.form("R1"))

set rs=server.CreateObject("adodb.recordset")
sql="select * from music"
rs.open sql,conn,1,3
rs.addnew
rs("a_id")=a_id
rs("m_name")=m_name
rs("m_type")=m_type
rs("m_lyricwriter")=m_lyricwriter
rs("m_musicwriter")=m_musicwriter
rs("m_singer")=m_singer
rs("m_lyric")=m_lyric
rs("m_path")=m_path
rs("m_taxisflag")=m_taxisflag
rs("m_click")=m_click
rs("m_update")=date()
rs("m_updatetime")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=Nothing
End If
%>

你服务器的权限不够吧!