⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 talk.asp

📁 WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼
💻 ASP
字号:
🔍 
<!--#include file=INC/skin.asp-->

<%
Dim  const_txl_HomeUrl,errstr
errstr=""
const_txl_HomeUrl=""
OpenDatabase
call main
call Closedatabase
sub main
%>
<script language="javascript">
function bs() {
  document.formtalk.saystemp.focus();
}

function checksays(theForm) {
  if (document.formtalk.saystemp.value==""){
     return false;
}
document.formtalk.says.value=document.formtalk.saystemp.value;
  document.formtalk.saystemp.value='';
  return true;
}
function show_user(mylink){
 window.open(mylink,"","top=20,left=150,width=250,height=120,resizable=no,status=0,menubar=0,location=0,scrollbars=no")
}
</script>
<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="chat.css">
<title></title>
<base target="_self">
</head>
<body topmargin="6">
<form method="POST" name="formtalk" action="chk.asp" target="list" onsubmit="return(checksays(this));" >
  <input type=hidden name="says" value="">
  <%
  dim GBL_CHK_User,rs
  GBL_CHK_User=getmasterusername(Session("username"))
  if GBL_CHK_User="" then
  response.write session("chatname")
  %>
  对
  <select name="towho" id="towho">
    <option selected>所有人</option>
	<%
	set rs=conn.execute ("select distinct ec.sname,online.* from ec,online where ec.studentid=online.sname")
	while not rs.eof 
		if isnull(rs(0)) then
			Response.Write("<option value='所有游客'>所有游客</option>")
		else
			Response.Write("<option value='"&rs(0)&"'>"&rs(0)&"</option>")
		end if
		rs.movenext
	wend 
	rs.close
	%>
  </select>
  ： 
  <input name="saystemp" type="text" style="border-style: solid; border-width: 0" size="30" maxlength="250">
  <input type="submit" value="发送" name="B1" class="fmbtn" style="border: 0 solid #636563">
  &nbsp<a href=list.asp target="list"> <font color=#3c7796 face="宋体">刷新</font></a>&nbsp<a href=javascript:show_user("help.htm")><font color=#3c7796 face="宋体">帮助</font></a> 
  &nbsp<a href="default.asp" target="_blank"><font color=#3c7796>大窗</font></a> 
  <%else
dim username,sql
  response.write GBL_CHK_User
%>
  对 
  <select name="towho" id="towho">
    <option selected>所有人</option>
    <%
	set rs=conn.execute ("select distinct ec.sname,online.* from ec,online where ec.studentid=online.sname")
	while not rs.eof 
		if isnull(rs(0)) then
			Response.Write("<option value='所有游客'>所有游客</option>")
		else
			Response.Write("<option value='"&rs(0)&"'>"&rs(0)&"</option>")
		end if
		rs.movenext
	wend 
	rs.close
	%>
  </select>
  ： 
  <input name="saystemp" type="text" style="border-style: solid; border-width: 0" size="30" maxlength="250">
  <input type="submit" value="发送" name="B1" class="fmbtn" style="border: 0 solid #636563">&nbsp<a href=list.asp target="list">   
  <font color=#3c7796>刷新</font></a>&nbsp<a href=javascript:show_user("help.htm")><font color=#3c7796>帮助</font></a>
 &nbsp<a href="default.asp" target="_blank"><font color=#3c7796>大窗</font></a>
<%
end if
if isobject(rs) then
	set rs=nothing
end if
%></form>
<%end sub%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -