fk.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 208 行
ASP
208 行
<!--#include file="conn.asp"-->
<%
if request.cookies("bookshop")("username")="" then
response.write "<font size=2>对不起，您还没有登录!</font><a href=logins.asp><font color=red size=2>请点击登录</font></a>"
response.end
end if
%>
<html>
<head>
<!--#include file="webtop.asp"-->
<title><%=webname%>--意见反馈</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">
<%
dim action
action=request.QueryString("action")
Set rsfk= Server.CreateObject("ADODB.Recordset")
rsfk.Open "SELECT * FROM shop_fk where fklginuser='"&request.Cookies("bookshop")("username")&"'order by fkid desc",conn, 1, 1
if rsfk.eof And rsfk.bof then%>
<br>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="356" valign="top" bgcolor="#F2F8FF">
<%select case action
case ""
%>
<div align="center"><font color="#FF0000">尊敬的客户，欢迎您到这里留言，我们会及时回复，谢谢 ！</font>
<table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF"><form name="fkinfo" method="post" action="fk.asp?action=save">
<tr bgcolor="#F2F8FF">
<td width="15%" align="center" style="padding-left:10px">类 型：</td>
<td height="22" style="padding-left:10px"><select name="fkleixing" id="fkleixing">
<option value="1">简单的留言</option>
<option value="2">对网站的意见</option>
<option value="3">对公司的建议</option>
<option value="4">具有合作意向</option>
<option value="5">产品投诉</option>
<option value="6">服务投诉</option>
</select></td>
</tr>
<tr bgcolor="#F2F8FF">
<td align="center" style="padding-left:10px">主 题：</td>
<td height="22" style="padding-left:10px"><input name="fksubject" type="text" id="fksubject" size="28"></td>
</tr>
<tr bgcolor="#F2F8FF">
<td align="center" style="padding-left:10px">姓 名：</td>
<td height="22" style="padding-left:10px"><input name="fkusername" type="text" id="fkusername" size="12"></td>
</tr>
<tr bgcolor="#F2F8FF">
<td align="center" style="padding-left:10px">E-mail：</td>
<td height="22" style="padding-left:10px"><input name="fkemail" type="text" id="fkemail" size="28"></td>
</tr>
<tr bgcolor="#F2F8FF">
<td align="center" style="padding-left:10px">来 自：</td>
<td height="22" style="padding-left:10px"><input name="fklaizi" type="text" id="fklaizi" size="28">
如：北京</td>
</tr>
<tr bgcolor="#F2F8FF">
<td align="center" style="padding-left:10px">电 话：</td>
<td height="22" style="padding-left:10px"><input name="fktel" type="text" id="fktel" size="20"></td>
</tr>
<tr bgcolor="#F2F8FF">
<td align="center" style="padding-left:10px">留言信息：<br></td>
<td style="padding-left:10px">[请注意适当使用<font color="#FF0000">Enter</font>键来换行]<br>
<textarea name="fkcontent" cols="52" rows="8" id="fkcontent"></textarea></td>
</tr>
<tr bgcolor="#F2F8FF">
<td colspan=2 height="28" style="padding-left:120px"><input type="submit" name="Submit4" value="提交信息" onclick="return checkfk();"></td>
</tr></form>
</table></div>
<%
case "save"
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_fk",conn,1,3
rs.addnew
rs("fksubject")=trim(request("fksubject"))
rs("fkleixing")=request("fkleixing")
rs("fkcontent")=htmlencode2(trim(request("fkcontent")))
rs("fkusername")=trim(request("fkusername"))
rs("fklginuser")=request.cookies("bookshop")("username")
rs("fkemail")=trim(request("fkemail"))
rs("fktel")=trim(request("fktel"))
rs("fklaizi")=trim(request("fklaizi"))
rs("fkdate")=now
rs("fkip")=Request.ServerVariables("remote_addr")
rs.update
session("fkfk")=minute(now)
response.Redirect "showmessage.asp?"
end select%>
</td>
</tr>
</table>
<%
else
select case action
case ""
response.Redirect "showmessage.asp?"
case "savelist"
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_fk",conn,1,3
rs.addnew
rs("fksubject")=trim(request("fksubject"))
rs("fkleixing")=request("fkleixing")
rs("fkcontent")=htmlencode2(trim(request("fkcontent")))
'///////姓名选择性填写
if trim(request("fkusername"))="" then
rs("fkusername")=rsfk("fkusername")
else
rs("fkusername")=trim(request("fkusername"))
end if
rs("fklginuser")=request.cookies("bookshop")("username")
rs("fkemail")=rsfk("fkemail")
rs("fktel")=rsfk("fktel")
'///////来自选择性填写
if trim(request("fklaizi"))="" then
rs("fklaizi")=rsfk("fklaizi")
else
rs("fklaizi")=trim(request("fklaizi"))
end if
rs("fkdate")=now
rs("fkip")=Request.ServerVariables("remote_addr")
rs.update
session("fkfk")=minute(now)
response.Redirect "showmessage.asp?"
end select%>
</td>
</tr>
</table>
<%end if
set rs=nothing
set rsfk=nothing%>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function checkfk()
{
if(checkspace(document.fkinfo.fksubject.value)) {
document.fkinfo.fksubject.focus();
alert("您没有填写主题！");
return false;
}
if(checkspace(document.fkinfo.fkusername.value)) {
document.fkinfo.fkusername.focus();
alert("请填写您的姓名！");
return false;
}
if(checkspace(document.fkinfo.fklaizi.value)) {
document.fkinfo.fklaizi.focus();
alert("请填写您来自哪里！");
return false;
}
if(checkspace(document.fkinfo.fkcontent.value)) {
document.fkinfo.fkcontent.focus();
alert("请填写反馈信息内容！");
return false;
}
if(document.fkinfo.fkemail.value.length!=0)
{
if (document.fkinfo.fkemail.value.charAt(0)=="." ||
document.fkinfo.fkemail.value.charAt(0)=="@"||
document.fkinfo.fkemail.value.indexOf('@', 0) == -1 ||
document.fkinfo.fkemail.value.indexOf('.', 0) == -1 ||
document.fkinfo.fkemail.value.lastIndexOf("@")==document.fkinfo.fkemail.value.length-1 ||
document.fkinfo.fkemail.value.lastIndexOf(".")==document.fkinfo.fkemail.value.length-1)
{
alert("Email地址格式不正确！");
document.fkinfo.fkemail.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.fkinfo.fkemail.focus();
return false;
}
}
//-->
</script> ⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?